【计算机类职业资格】二级VISUAL+BASIC笔试-379及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-379及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-379及答案解析.doc（24页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-379 及答案解析(总分：82.00，做题时间：90 分钟)一、选择题(总题数：35，分数：57.00)1.有如下程序：Private Sub Form_Click()Dim i As Integer, Sum As Integersum=0For i=2 To 10If i Mod 20 And i Mod 3=0 Thensum=sum+iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为_。A) 12 B) 30 C) 24 D) 18（分数：2.00）A.B.C.D.2.关于语句“Open“a1txt”For

2、Append as #10”的说法正确的是( )。A) 打开一个已存在的文件，可以读也可以写B) 打开的文件必须存在，只能写C) 若文件存在则覆盖它，只能写D) 若文件存在，则在原有的内容后面写（分数：1.00）A.B.C.D.3.结构化程序设计主要强调的是A) 程序的规模 B) 程序的效率C) 程序设计语言的先进性 D) 程序易读性（分数：1.00）A.B.C.D.4.软件测试的过程是_。.集成测试.验收测试.系统测试.单元测试(A) 、(B) 、(C) 、(D) 、（分数：2.00）A.B.C.D.5.要使菜单项 MenuOne 在程序运行时失效，使用的语句是A) MenuOne.Visi

3、ble=True B) MenuOne.Visible=FalseC) MenuOne.Enabled=True D) MenuOne.Enabled=False（分数：2.00）A.B.C.D.6.下列叙述中正确的是( )。A程序设计就是编制程序B程序的测试必须由程序员自己去完成C程序经调试改错后还应进行再测试D程序经调试改错后不必进行再测试（分数：2.00）A.B.C.D.7.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As Int

4、egerFor i=0 To 50i=i+3n=n+1if i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 2 B) 3 C) 4 D) 5（分数：2.00）A.B.C.D.8.Microsoft Visual Basic 6.0 包括三种版本，其中不包括 _。A) 通用版 B) 企业版 C) 学习版 D) 专业版（分数：1.00）A.B.C.D.9.设有如下程序：Private Sub Commandl_click()Dim c As Integer,d As Integerc=4d=InputBo

5、x(“请输入一个整数“)Do While d0If dc Thenc=c+1End Ifd=InputBox(“请输入一个整数“)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9、 0，则输出结果是A) 12 B) 11 C) 10 D) 9（分数：1.00）A.B.C.D.10.算法分析的目的是 _。A) 找出数据结构的合理性 B) 找出算法中输入和输出之间的关系C) 分析算法的易懂性和可靠性 D) 分析算法的效率以求改进（分数：1.00）A.B.C.D.11.在窗体上绘制一个名称为 Label1 的标签，然后编

6、写如下事件过程：Private Sub Form_Click()Dim arr(10,10)As IntegerDim i As Integer,j As IntegerFor i =2 To 4For j =2 To 4arr(i,j)=i*jNext jNext iLabel1.Caption=Str(arr(2,2)+arr(3,3)End Sub程序运行后，单击窗体，在标签中显示的内容是( )。A12 B13 C14 D15（分数：2.00）A.B.C.D.12.设有下列二叉树：（分数：2.00）A.B.C.D.13.下列各赋值语句，不正确的是( )。Ax+y=5 BiNumber=1

7、5CLabe11.caption=“time“ DsLength=x+y（分数：2.00）A.B.C.D.14.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyaseii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是 A单击鼠标 B双击文本框 C鼠标滑过文稿本框 D按下键盘上的某个键（分数：1.00）A.B.C.D.15.以下为 Visual Basic 学习版的控件的是A) 数据绑定控件B) ActiveX 控件C) 自动化管理器 D) 报表控件（分数：1.00）

8、A.B.C.D.16.下面( )语句执行后，窗体 Forml 从内存退出。AUnLoad Forml BLoad FormlCForml.Hide DForml.Visiable=False（分数：2.00）A.B.C.D.17.下面的 4 个数组中，语句语法正确的是 _ 。A) Dim a10 B) Def fn(10) C) Dim a(10) D) Dimension a(10)（分数：1.00）A.B.C.D.18.设 a4，b5，c6，执行语句 Print ab And bc 后，窗体上显示的是( )ATrue BFalseC出错信息 D0（分数：2.00）A.B.C.D.19.表达

9、式 Val(“.123E2“)的值是( )。A)123 B)12.3 C)0 D)123e2CD（分数：2.00）A.B.C.D.20.下面的语句用 Array 函数为数组 a 的各元素赋整数值：aArray(1,2,3,4,5,6,7,8,9)对数组变量 a 的正确定义是A) Dim a B) Dim a As IntegerC) Dim a(9) As Integer D) Dim a() As IntegEr（分数：1.00）A.B.C.D.21.在 Visual Basic 中，下列运算符中优先级最高的是_。A) * B) / C) D) Not（分数：2.00）A.B.C.D.22.

10、下面程序段执行结果为x=Int(Rnd()+4)Select Case xCase 5Print“excellent“Case4Print“good“Case 3Print“pass“Case ElsePrint“fail“End SelectA) excellent B) good C) pass D) fall（分数：2.00）A.B.C.D.23.设 a=5，b=4，c=3，d=2 下列表达式的值是32*b Or a=c And bC Or cdA) 1 B) True C) False D) 2（分数：1.00）A.B.C.D.24.以下关于多重窗体程序的叙述中，错误的是_。(A) 用

11、 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体(B) 在多重窗口程序中，各窗体的菜单是彼此独立的(C) 在多重窗口程序中，可以根据需要指定启动窗体(D) 对于多重窗口程序，需要单独保存每个窗体（分数：2.00）A.B.C.D.25.对下列二叉树（分数：2.00）A.B.C.D.26.设有如下 3 个关系表：（分数：2.00）A.B.C.D.27.以下能够触发文本框 Change 事件的操作是A文本框失去焦点 B文本框获得焦点 C设置文本框的焦点 D改变文本框的内容（分数：1.00）A.B.C.D.28.表达式 Abs(-5)+Len(“ABCDE“)的值是_。A) 5ABCDE B)

12、 -5ABCDE C) 10 D) 0（分数：2.00）A.B.C.D.29.下列过程定义语句中，形参个数为不确定数量的过程是A)Private Sub Pro3(x As Double，y As Single)B)Private Sub Pro3(Arr(3)，Option x，Option y)C)Private Sub Pro3(ByRef x，ByVal y，Arr()D)Private Sub Pro3(ParamArray Arr()（分数：1.00）A.B.C.D.30.实体联系模型中，实体与实体之间的联系不可能是A一对一 B多对多 C一对多 D一对零（分数：1.00）A.B.C

13、.D.31.以下叙述中正确的是A) 窗体的 Name 属性指定窗体的名称，用来标识一个窗体B) 窗体的 Name 属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的 Name 属性的值D) 对象的 Name 属性值可以为空（分数：2.00）A.B.C.D.32.设 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ab)Or(cd)，“A“，“B“)后，x 的值为A) “a“ B) “b“ C) “B“ D) “A/（分数：2.00）A.B.C.D.33.以下叙述不正确的是_。A) 在 Sub 过程中可以调用 Function 过程B) 在用 Call 调用

14、Sub 过程时必须把参数放在括号里C) 在 Sub 过程中可以嵌套定义 FunctionD) 用 Static 声明的过程中的局部变量都是 Static 类型（分数：2.00）A.B.C.D.34.执行语句 Open “TC.dat“ For Random As #1 Len=50 后，对文件 TC.dat 中的数据能执行的操作是( )。A) 只读操作 B) 只写操作C) 既可以读，也可以写 D) 追加操作（分数：2.00）A.B.C.D.35.在 Visual Basic 中最基本的对象是_，它是应用程序的基石，也是其他控件的容器。A) 文本框 B) 命令按钮 C) 窗体 D) 标签（分数：

15、2.00）A.B.C.D.二、填空题(总题数：11，分数：25.00)36.以下循环的执_。k=0Do Until k=10k=k+1Loop（分数：1.00）填空项 1:_37.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值。请完善程序。Function SumF(n As Integer)As Singles=0For i=1 To ns=_Next iSuraF=sEnd FunctionPrivate Sub Form_Click( )Sum1=SumF(100)PrintPrint “sum1=“ :sum1End Sub（分数：2.00）填空项 1:_要

16、打印出 50 个在-100100 之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。Option Base 1Private Sub Command1_Click( )Dim b( )Randomize_Dox = RndIf x 0.5 Then y = 1 Else y = -1t = y * Int(Rnd * 100)+ 1_Do While k jIf t b(k)Thenk = k + 1ElseExit DoEnd IfLoopIf k = j ThenReDim Preserve b(k)b(k)= tPrint b(k);j = j + 1End I

17、fLoop Until j 50Print_Max = b(1)For n = 2 To 50If b(n) Max Then_p = nEnd IfNext nPrint “最大数是：“; MaxPrint “位置在第“; p; “个“End Sub（分数：8.00）填空项 1:_填空项 1:_填空项 1:_填空项 1:_下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As

18、SingleEnd TypeDim Ksc As AngPrivate Sub Form Click()Dim Y As SingleOpen _Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i*Y)Ksc.Cosx：Cos(i*Y)_Next iClose #2End Sub（分数：4.00）填空项 1:_填空项 1:_38.在长度为 n 的线性表中顺序查找元素 x 时，查找成功的平均查找长度为 1。（分数：2.00）填空项 1:_39.程序有顺序、重复和条件三种基本控制结构，它们的共同特点是只有一个入口和 1 个出口。（分数：1.00）填空项

19、1:_40.结构图是描述软件结构的工具，基本图符有矩形、带实心圆的箭头和带空心圆的箭头等，箭头表示模块间调用关系，其中用带实心圆的箭头表示传递的是 1。（分数：1.00）填空项 1:_41.设只包含根结点的二叉树的高度为 0，则高度为 k 的二叉树的最小结点数为 1。（分数：1.00）填空项 1:_42.数据库保护分为安全性控制、 1、并发性控制和数据的恢复。（分数：2.00）填空项 1:_43.在 KeyDown 和 KeyUp 事件过程中，当参数 Shift 的值为十进制数 1，2，4 时，分别代表Shift、_、_。（分数：1.00）填空项 1:_44.以下程序的作用是生成一个如下图的矩

20、阵，该程序不完整，请补充完改程序。 （分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-379 答案解析(总分：82.00，做题时间：90 分钟)一、选择题(总题数：35，分数：57.00)1.有如下程序：Private Sub Form_Click()Dim i As Integer, Sum As Integersum=0For i=2 To 10If i Mod 20 And i Mod 3=0 Thensum=sum+iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为_。A) 12 B) 30 C) 24 D) 18（分数：2.

21、00）A. B.C.D.解析：解析 本题程序的功能是：将从 2 到 10 中既是奇数(i Mod 20)又是 3 的倍数(i Mod 3=0)的数求和，在 2 到 10 中满足条件的数字是 3，9，其和是 12。2.关于语句“Open“a1txt”For Append as #10”的说法正确的是( )。A) 打开一个已存在的文件，可以读也可以写B) 打开的文件必须存在，只能写C) 若文件存在则覆盖它，只能写D) 若文件存在，则在原有的内容后面写（分数：1.00）A.B.C.D. 解析：解析 打开文件时，读写模式为 Append，如果指定的文件不存在，则创建它，只能在文件中写，如果文件已经存在

22、，则在文件的后面写。3.结构化程序设计主要强调的是A) 程序的规模 B) 程序的效率C) 程序设计语言的先进性 D) 程序易读性（分数：1.00）A.B.C.D. 解析：解析 结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、模块化及限制使用 go to 语句，总的来说可使程序结构良好、易读、易理解、易维护。4.软件测试的过程是_。.集成测试.验收测试.系统测试.单元测试(A) 、(B) 、(C) 、(D) 、（分数：2.00）A.B.C. D.解析：5.要使菜单项 MenuOne 在程序运行时失效，使用的语句是A) MenuOne.Visible=True B) MenuOne.Vi

23、sible=FalseC) MenuOne.Enabled=True D) MenuOne.Enabled=False（分数：2.00）A.B.C.D. 解析：解析 菜单控件的主要属性有：Caption、Name、Index、Enabled、Visible 等，其中 Enabled 和Visible 属性值为逻辑值，Visible 属性用于表示菜单项是否可见，Enabled 属性用于表示菜单项是否可用。当 Enabled 属性值为 False 时，表示菜单项当前不可用；当属性值为 True 时，表示菜单项可用。6.下列叙述中正确的是( )。A程序设计就是编制程序B程序的测试必须由程序员自己去完

24、成C程序经调试改错后还应进行再测试D程序经调试改错后不必进行再测试（分数：2.00）A.B.C. D.解析：7.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i=0 To 50i=i+3n=n+1if i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 2 B) 3 C) 4 D) 5（分数：2.00）A.B. C.D.解

25、析：解析 本题的循环控制变量 i 除去会按照 For 语句的规则按照默认步长 1 增长以外。在循环体内还做了相应的操作来改变其值。当 i 为 0 时，执行第一次循环，通过循环体中的 i=i+3，使得变量 i=3，同时 n 的值变为 1；本次循环结束后，i 变量加上默认步长 1，i=4，进行第二次循环，再执行i=i+3，i=7，n=2；第二次循环结束后，i 变量再次加上默认步长 1，i=8，进行第三次循环时，i=i+3，i=11，n=3由于此时 i10 条件成立，执行 Exit For 语句退出循环，再执行 Text1.Text=Str(n)，由于此时 n=3，所以显示在文本框的值为 3，选项

26、B 为正确答案。8.Microsoft Visual Basic 6.0 包括三种版本，其中不包括 _。A) 通用版 B) 企业版 C) 学习版 D) 专业版（分数：1.00）A. B.C.D.解析：解析 Microsoft Visual Basic6.0 包括三种版本，分别是：学习版、专业版、企业版。9.设有如下程序：Private Sub Commandl_click()Dim c As Integer,d As Integerc=4d=InputBox(“请输入一个整数“)Do While d0If dc Thenc=c+1End Ifd=InputBox(“请输入一个整数“)LoopP

27、rint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9、 0，则输出结果是A) 12 B) 11 C) 10 D) 9（分数：1.00）A.B.C.D. 解析：解析 Do While 语句是条件为 True 时，执行循环体。本题中当 dc 时，执行 c=c+1，即在输入对话框中输入 5、6、7、8、9 时执行该语句，也就是该语句被执行了 5 次，故 c=4+1*5=9。而当在输入对话框中输入 0 时，循环结束，此时 d=0。所以最后输出结果为 9。10.算法分析的目的是 _。A) 找出数据结构的合理性 B) 找出算法中输入和输出之

28、间的关系C) 分析算法的易懂性和可靠性 D) 分析算法的效率以求改进（分数：1.00）A.B.C.D. 解析：解析 算法分析是指对一个算法的运行时间和占用空间做定量的分析，一般计算出相应的数量级，常用时间复杂度和空间复杂度表示。分析算法的目的就是要降低算法的时间复杂度和空间复杂度，提高算法的执行效率。11.在窗体上绘制一个名称为 Label1 的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10,10)As IntegerDim i As Integer,j As IntegerFor i =2 To 4For j =2 To 4arr(i,j)=

29、i*jNext jNext iLabel1.Caption=Str(arr(2,2)+arr(3,3)End Sub程序运行后，单击窗体，在标签中显示的内容是( )。A12 B13 C14 D15（分数：2.00）A.B. C.D.解析：12.设有下列二叉树：（分数：2.00）A.B. C.D.解析：解析 本题考查二叉树的遍历。所谓二叉树的前序遍历(DLR)是指在访问根结点、遍历左子树与遍历右子树这三者中，首先访问根结点，然后遍历左子树，最后遍历右子树，并且，在遍历左右子树时，上述规则同样适用，即“根左右”，故该二叉树的前序遍历结果为“ATBZXCYP”。13.下列各赋值语句，不正确的是( )

30、。Ax+y=5 BiNumber=15CLabe11.caption=“time“ DsLength=x+y（分数：2.00）A. B.C.D.解析：14.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyaseii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是 A单击鼠标 B双击文本框 C鼠标滑过文稿本框 D按下键盘上的某个键（分数：1.00）A.B.C.D. 解析：解析 只要按下键盘上的任何键，都可以触发 KeyPress 事件。故选择 D 项。 A 项触发的事件

31、为MouseDown 或 MouseUp，B 项触发文本框的 DblClick 事件，而 C 触发了文本框的 MouseMove 事件。15.以下为 Visual Basic 学习版的控件的是A) 数据绑定控件B) ActiveX 控件C) 自动化管理器 D) 报表控件（分数：1.00）A. B.C.D.解析：解析：Visual Basic 学习版中包括内部控件、网格控件、数据绑定控件和 Tab 对象，所以数据绑定控件是 Visual Basic 学习版中的控件；报表控件为专业版中的控件；而自动化管理器是企业版的控制系统。16.下面( )语句执行后，窗体 Forml 从内存退出。AUnLoad

32、 Forml BLoad FormlCForml.Hide DForml.Visiable=False（分数：2.00）A. B.C.D.解析：17.下面的 4 个数组中，语句语法正确的是 _ 。A) Dim a10 B) Def fn(10) C) Dim a(10) D) Dimension a(10)（分数：1.00）A.B.C. D.解析：解析 选项 B 和 D 中的关键字错误，选项 A 中使用了方括号，数组应使用圆括号。18.设 a4，b5，c6，执行语句 Print ab And bc 后，窗体上显示的是( )ATrue BFalseC出错信息 D0（分数：2.00）A. B.C.

33、D.解析：解析 在一个包含多种运算的表达式中，优先级顺序为：首先进行函数运算，接着进行算术运算，然后进行关系运算(=、)，最后进行逻辑运算(NotAndOrXorEqvImp)。按优先级顺序本题逐步运算结果为：45 And 56True And TrueTrue。19.表达式 Val(“.123E2“)的值是( )。A)123 B)12.3 C)0 D)123e2CD（分数：2.00）A.B. C.D.解析：解析 Val 函数返回包含于字符串内的合法数字。使用 Val 函数时应注意下列两点；Val 函数能够识别第一个可用的小数点分隔符；在不能识别为数字的第个字符上停止读入字符串，如果第一个字符

34、不为数字字符，返回 0 值。题中.123E2=0.12310 2=12.3，因此表达式 Val(“.123E2“)的值为 12.3。20.下面的语句用 Array 函数为数组 a 的各元素赋整数值：aArray(1,2,3,4,5,6,7,8,9)对数组变量 a 的正确定义是A) Dim a B) Dim a As IntegerC) Dim a(9) As Integer D) Dim a() As IntegEr（分数：1.00）A. B.C.D.解析：解析 本题是对 Array 函数的一种考查。Array 函数用来给数组元素赋初值时，它要求数组必须是一个变体变量名，如：Dim VarVa

35、rArray(1,2,3,4,5)是将 1 到 5 分别赋给 Var(0)、Var(1)、 Var(2)、Var(3)、Var(4)。Array 函数的实际参数应是用逗号分割的数据列表。根据以上的知识点，分析各选项可知 A 项是正确的。21.在 Visual Basic 中，下列运算符中优先级最高的是_。A) * B) / C) D) Not（分数：2.00）A. B.C.D.解析：解析 运算符优先级别算术运算，关系运算，逻辑运算算术运算符运算优先级：(指数)，(取负)，(乘法)*，(浮点除法)(整数除法)(取模)MOD(加法)+。22.下面程序段执行结果为x=Int(Rnd()+4)Sele

36、ct Case xCase 5Print“excellent“Case4Print“good“Case 3Print“pass“Case ElsePrint“fail“End SelectA) excellent B) good C) pass D) fall（分数：2.00）A.B. C.D.解析：解析 在 Visual Basic 中，组成变量名的英文字母不区分大小写，例 Single 和 single 是一样的，在定义了一个变量之后，只要字符相同，则不管它大小写是否相同，指的都是同一个变量。23.设 a=5，b=4，c=3，d=2 下列表达式的值是32*b Or a=c And bC O

37、r cdA) 1 B) True C) False D) 2（分数：1.00）A.B. C.D.解析：解析 本题考的是关系运算符和逻辑运算符的执行顺序。当运算符不只一种时，要先处理关系运算符，然后再处理逻辑运算符。关系运算符的优先顺序是相同的，而逻辑运算符的执行顺序是：Not，And，Ou Xor， Eqv，Imp。本题中先运行关系运算，32*b 为 False，a=c 为 False，bc 为True，cd 为 True；然后执行 And 运算，为 False，再执行第一个 Or，为 False，最后执行第二个 Or，即 False Or True 为 True。24.以下关于多重窗体程序的

38、叙述中，错误的是_。(A) 用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体(B) 在多重窗口程序中，各窗体的菜单是彼此独立的(C) 在多重窗口程序中，可以根据需要指定启动窗体(D) 对于多重窗口程序，需要单独保存每个窗体（分数：2.00）A. B.C.D.解析：25.对下列二叉树（分数：2.00）A. B.C.D.解析：26.设有如下 3 个关系表：（分数：2.00）A.B.C. D.解析：解析 对于两个关系的合并操作可以用笛卡儿积表示。设有 n 元关系 R 和 m 元关系 S，它们分别有 P 和 Q 个元组，则 R 与 S 的笛卡儿积记为 RS，它是一个 m+n 元关系，元组个数

39、是 pg，由题意可得，关系 T 是由关系 R 与关系 S 进行笛卡儿积运算得到的。27.以下能够触发文本框 Change 事件的操作是A文本框失去焦点 B文本框获得焦点 C设置文本框的焦点 D改变文本框的内容（分数：1.00）A.B.C.D. 解析：解析 文本框的属性、方法、事件都很重要。本题的 Change 事件是由文本框的内容被改变这一动作触发的。选项 A 触发了文本框的 LostFocus 事件；B 项触发了文本框的 GotFocus 事件；C 项使用了文本框的 SetFocus 方法。28.表达式 Abs(-5)+Len(“ABCDE“)的值是_。A) 5ABCDE B) -5ABCD

40、E C) 10 D) 0（分数：2.00）A.B.C. D.解析：解析 两个函数的返回值均为数值型。Abs(number)：返回参数的绝对值，类型和参数相同。Len(string)：返回 String 字符串内字符的数目，或是存储一变量所需的字节数。29.下列过程定义语句中，形参个数为不确定数量的过程是A)Private Sub Pro3(x As Double，y As Single)B)Private Sub Pro3(Arr(3)，Option x，Option y)C)Private Sub Pro3(ByRef x，ByVal y，Arr()D)Private Sub Pro3(Pa

41、ramArray Arr()（分数：1.00）A.B.C.D. 解析：解析：本题考核可选参数、可变参数的定义方法。 在虚参中，As 关键字用于说明变量或数组的类型；Option 关键字用于说明虚参是可选的 ByRef 关键字用于说明传址的数据传送方式；ByVal 关键字用于说明传值的数据传送方式；ParamArray 关键字用于说明参数的个数是不确定的，即过程可以接受任意个数的参数。30.实体联系模型中，实体与实体之间的联系不可能是A一对一 B多对多 C一对多 D一对零（分数：1.00）A.B.C.D. 解析：解析 实体联系模型中实体与实体之间的联系有一对一(11)，一对多或多对一(1m 或

42、m1)，多对多(mn)其中一对一是最常用的关系。31.以下叙述中正确的是A) 窗体的 Name 属性指定窗体的名称，用来标识一个窗体B) 窗体的 Name 属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的 Name 属性的值D) 对象的 Name 属性值可以为空（分数：2.00）A. B.C.D.解析：解析 要正确区分 Name 与 Caption 属性。Name 属性主要用来为窗体或控件命名，相当于一个身份标识，在同一窗体中，窗体及控件的 Name 应各不相同。Caption 属性指该控件或窗体显露在外的标题，具体到窗体上指窗体的标题栏文本，如果是控制按钮，则指控制按钮上的文

43、本。同时，Visual Basic 规定 Name 属性只能在设计阶段改变，不能在运行阶段改变。32.设 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ab)Or(cd)，“A“，“B“)后，x 的值为A) “a“ B) “b“ C) “B“ D) “A/（分数：2.00）A.B.C.D. 解析：解析 本题考查 IIf 的用法。 IIf 函数是“IfThenElse”结构的简写形式，IIf 是“Immediate If”的缩略。它的一般格式为： Result=IIf(条件,True 部分,False 部分)，用来执行简单的条件判断操作。“Result”是函数的返回值，“

44、条件”是逻辑表达式，当“条件”为 True 时，IIf 函数返回“True 部分”，而当“条件”为 False 时返回“False 部分”。“True 部分”和“False 部分”可以是表达式、变量或函数。IIf 函数中的 3 个参数都不能省略，而且要求“True 部分”、“False 部分”及结果变量的类型一致。题目中(ab)Or(cd)的结果是 True，所以 x 的值为“A”，选项 D 正确。33.以下叙述不正确的是_。A) 在 Sub 过程中可以调用 Function 过程B) 在用 Call 调用 Sub 过程时必须把参数放在括号里C) 在 Sub 过程中可以嵌套定义 Functio

45、nD) 用 Static 声明的过程中的局部变量都是 Static 类型（分数：2.00）A.B.C. D.解析：解析 Visual Basic 中，可以直接使用过程名调用过程，也可以结合 Call 关键字调用。使用Call 调用过程时，参数列表必须用括号包含起来。Visual Basic 语言不支持函数与过程的嵌套定义。Static 关键字可以指定局部变量为静态类型变量。34.执行语句 Open “TC.dat“ For Random As #1 Len=50 后，对文件 TC.dat 中的数据能执行的操作是( )。A) 只读操作 B) 只写操作C) 既可以读，也可以写 D) 追加操作（分数

46、：2.00）A.B.C. D.解析：解析 题中的语句是以 Random 方式打开了一个随机文件 TC.dat，随机文件打开后，可以同时进行读、写操作。35.在 Visual Basic 中最基本的对象是_，它是应用程序的基石，也是其他控件的容器。A) 文本框 B) 命令按钮 C) 窗体 D) 标签（分数：2.00）A.B.C. D.解析：解析 窗体是应用程序顶层的、最常见的和必不可少的对象，它是其他对象的载体。二、填空题(总题数：11，分数：25.00)36.以下循环的执_。k=0Do Until k=10k=k+1Loop（分数：1.00）填空项 1:_ （正确答案：10）解析：解析 k 从

47、 0 开始每次加 1，当 k 条件为 10 时，将不在进入循环，故整个循环执行了 10 次。37.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值。请完善程序。Function SumF(n As Integer)As Singles=0For i=1 To ns=_Next iSuraF=sEnd FunctionPrivate Sub Form_Click( )Sum1=SumF(100)PrintPrint “sum1=“ :sum1End Sub（分数：2.00）填空项 1:_ （正确答案：s+1/i）解析：解析 从公式可以看出，第一项为 1/1，第二项为 1/2，第三项为 1/3，第 n 项为 1/n。也就是说，分母每次增加 1，而分子始终为 1。为求前 n 项之和，在 ForNext 循环中每次循环都增加 1/n。要打印出 50 个