1、计算机二级(VB)37 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：2.00）A.2B.-2C.0D.+22.下列程序段的执行结果为( )。 a=75 If a 60 Then Score=1 If a 70 Then Score=2 If a 80 Then Score=3 If a 90 Then Score=4 Print “Score= “；Score （分数：2.00）A.对顺序文件中的数据操作只能按一定的顺序操作B.顺序
2、文件结构简单C.顺序文件的数据以字符(ASCII 码)形式存储D.能同时对顺序文件进行读写操作3.下面 4 个 CT 函数中是用来判断用户输入的数是否为奇数的，是奇数的返回 1，否则返回 0，其中正确的是（ ）。 （分数：2.00）A.Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End FunctionB.Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=0 Else CT=1 End if End FunctionC.Fu
3、nction CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End FunctionD.Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 1 Else Return 0 End if End Function4.语句 A=B+C 代表的意思是（ ）。（分数：2.00）A.B.C.D.5.在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first
4、integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为( )。 （分数：2.00）A.ifstream fin；finopen(“C：/testtxt“)；B.ifstream fin(“C：/testtxt“)；C.A)和 B)D.ifstream fin；fin(“C：/testtxt“)；6.以下叙述中错误的是（ ）。 （分数：2.00）A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜
5、单系统C.除分隔线外，所有菜单项都能接收 Click 事件D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见7.在用菜单编辑器设计菜单时，不可缺少的项目是（ ）。（分数：2.00）A.快捷键B.名称C.索引D.标题8.要获得当前驱动器应使用驱动器列表框的属性是（ ）。（分数：2.00）A.PathB.DriveC.DirD.Pattern9.有如下事件过程： Function UNC (ByVal x As Integer，ByVal y As Integer) As Integer Do While y0 sic=x/y x=y y=sic Loop UNC=x
6、 End Function 以下是该函数的调用过程，该程序的运行结果是( )。 PriVate Sub COmmand1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a，b) Print x End Sub （分数：2.00）A.0B.6C.2D.8010.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(
7、i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。 （分数：2.00）A.4B.5C.6D.711.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：2.00）A.4.58B.5.69C.24D.2212.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Su
8、b Function f(x As Integer) x=x+3 f=x End Function 程序运行后，单击命令按钮，输出结果为_。 （分数：2.00）A.12B.15C.17D.1813.下列说法错误的是（ ）。（分数：2.00）A.Caption 为只读属性，运行时对象的名称不能改变B.设置 Height 或 Width 的数值单位为 twip，是 1 点的 1/20C.Icon 属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4 键14.任何控件都有的属性是（ ）。（分数：2.00）A.BackColorB.CaptionC.NameD.BorderStyle15
9、.下列语句的输出结果为（ ）。 Print Format$(568936，“000，000000“) （分数：2.00）A.在窗口的垂直滚动条的上面，有一个“拆分栏”，利用它可以把窗口分为两个都分，每个窗口显示代码的一部分B.双击控件设计窗体即可打开程序代码窗口C.在程序代码的左下角有两个按钮，可以选择全模块壹看或者是过程查看D.默认情况下，窗体的事件是 Load16.下列程和序段的执行结果为（ ）。 x=Int(Rnd()+9) Select Case X Case 10 Print “excellent“ Case 9 Print “good“ Case 8 Print “pass“ Ca
10、se Else Print “fail“ End Select （分数：2.00）A.excellentB.goodC.passD.fail17.下列程序段的执行结果为（ ）。 I=9 X=5 Do I=I+1 x=x+2 Loop Until I =7 Print“I=“；I Print“x=“；x （分数：2.00）A.I=4x=5B.I=7x=15C.I=6x=8D.I=10x=718.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(
11、x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.12 32B.2 32C.2 3D.12 319.计算 z 的值，当 x 大于 y 时，z=x；否则 z=y。下列语句错误的是（ ）。（分数：2.00）A.ALL，REST，NEXT 和 RECORDB.NEXT，REST，FIELDS 和 TOPC.REST，FIELDS，FOR 和 BOTYOMD.ALL，FOR，WHILE 和 RECORD20.设有数组定义语句：D
12、im a(5)As Integer，List1 为列表框控件。下列给数组元素赋值的语句错误的是（ ）。（分数：2.00）A.打开过程文件时，其中的主过程自动调入内存B.同一时刻只能打开一个过程，打开新的过程后，旧的过程自动关闭C.用命令 DOWITH 调用过程时，过程文件无需打开就可调用其中的过程D.用命令 DOWITHIN 调用过程时，过程文件无需打开，就可调用其中的过程21.下列操作可以打开立即窗口的是（ ）。（分数：2.00）A.Ctrl + DB.Ctrl + FC.Ctrl + GD.Ctrl + E22.下列说法正确的是（ ）。（分数：2.00）A.在 Visual Basic 中
13、的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框由用户根据自己需要定义的C.预定义对话框是用户在设置程序代码后定义的D.MssgBox 函数是用户的自定义对话框的函数23.以下叙述中错误的是（ ）。 （分数：2.00）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符24.根据变量的作用域，可以将变量分为 3 类
14、，分别为（ ）。（分数：2.00）A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量25.Sub 过程与 Function 过程最根本的区别是（ ）。（分数：2.00）A.Sub 过程的过程不能返回值，而 Function 过程能返回值B.Function 过程可以有形参，Sub 过程不可以C.Sub 过程可以使用 Call 语句直接使用过程名调用，而 Function 过程不可以D.两种过程参数的传递方式不同26.下列说法错误的是（ ）。（分数：2.00）A.资源文件的扩展名为resB.一个窗体对应一个窗体文件C.
15、Visual Basic 中的一个工程只包含一个窗体D.Visual Basic 中一个工程最多可以包含 255 个窗体27.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是_。（
16、分数：2.00）A.a 数组中的数据是 30 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环28.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i 90 Then E
17、xit For Next End Sub 对于该事件过程，以下叙述中错误的是_。（分数：2.00）A.a 数组中的数据是 30 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误 C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环解析：For Each 语句的基本语法结构为：For Each 变量 In 数组 语句块 Next 变量本题中 For Each 语句没有语法错误。28.在窗体上画一个命令按钮，其名称为 Command1，然后编写如
18、下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i arr(i)）解析：本题的基本思路是通过二个中间变量 Max 及 Min 来记录当前已比较数值中的最大值及最小值，如果 待比较的数大于 Max，则将当前值赋值给 Max，如果当前待比较值小于 Min，则将当前数赋值给 Min，当 比较结束时，Max、Min 分别为这组数中的最大值及最小值。故第空应填 Maxarr(i)或其等效形式。44.数据结构分为逻辑结构和存储结构，循环队列属于
19、1 结构。（分数：2.00）填空项 1:_ （正确答案：逻辑）解析：所谓数据的逻辑结构，是指反映数据元素之间逻辑关系的数据结构；而数据的逻辑结构在计算机存 储空间中的存放形式称为数据的存储结构（也称数据的物理结构）。在数据的存储结构中，不仅要存放各数 据元素的信息，还需要存放各数据元素之间的前后件关系的信息。而所谓循环队列，就是将队列存储空间 的最后一个位置绕到第一个位置，形成逻辑上的环状空间，供队列循环使用。所以循环队列不需要存放元 素之间的前后件关系，故它属于逻辑结构。45.有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以 4 余 1，除以 5 余 2 则输出，否则，将焦点定
20、位在文本框中，并清除文本框的内容。 Private Sub Command1_Click( ) x=Val(Text1Text) If 1 Then Print x Else Text1Text=“ 2 End If End Sub （分数：2.00）填空项 1:_ （正确答案：x Mod 4 = 1 And x Mod 5=2）解析：(1)程序调用了 Val-|_|-函数从文本框中的得到数据。本题中先通过 Val-|_|-函数得到一个整数，进行条件判断，如果满足条件 x Mod 4=1 And x Mod 5=2 则输出x，否则，将清空文本框，焦点落在文本框中。46.下列程序的功能是：将数据
21、 1，2，10 写入顺序文件 Basetxt 中，请填空。 Private Sub Form_Click1 Dim i As Integer Open 2 As #1 For i=1 To 10 3 Next i Close #1 End Sub （分数：2.00）填空项 1:_ （正确答案：“Basetxt”For）填空项 1:_ （正确答案：Output）解析：本题中以输出方式来打开文件，故要用“Open“Basetxt“For Output As# 1“语句；向文件中写入数据用 Print 语句。47.把窗体的 KeyPreView 属性设置为 True，并编写如下两个事件过程： Pri
22、vate Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下 B 键，则在窗体上输出的数值是 1 和 2。 （分数：2.00）填空项 1:_ （正确答案：66）解析：KeyDown 事件是返回的是键盘的直接状态，返回的是“键”，所以当按字母“B”时KeyDown 得到的 KeyCode 码与按字母键“b”是相同的，所以程序输出为 66；
23、当按下键盘上的某个键时将发生KeyPress，KeyPress 并不反映键盘的直接状态，当按下字母“B”时，与按下字母“b”时，对 KeyPress来说，所得到的 ASCII 码是不样的，KeyPress 事件用来识别按键的 ASCII 码，所以按下“B”键，KeyAscii 的值为 98。48.在窗体上加上一个文本控件 PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click1 CommonDialog1Filter= 2 Common
24、Dialog1ShowOpen PCSTextBoxText= 3 End Sub （分数：2.00）填空项 1:_ （正确答案：“Text）填空项 1:_ （正确答案：Files(*txt)|*txt“）解析：要设置通用对话框只用于打开文本文件，需要设置通用对话框的 Filter 属性值，在这里我们应该填写的是“Text Files(*txt)| *txt“；在使用了对话框控件的 ShowOpen 后出现的打开文件对话框中的文件类型只有 Text Files(*txt)|*.txt，选择了需要打开的文本文件后，应该让文件的文件名显示在文本框中，因此需要将通用对话框中选择的文件赋给文本控件，即
25、将对话框的 FileName 属性值赋给文本框的 Text 属性。49.下面运行程序后，单击命令按钮，输出的结果是 1。 Private Sub Command1_Click2 Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=YAS(B) Print“s1=“；s1；“s2=“；s2 End Sub Function YAS(a3As Integer) Dim t#，i% t=1 For i=LBound(A) To UBound(
26、A) t=t * a(i) Next i YAS=t End Function （分数：2.00）填空项 1:_ （正确答案：s1=24 s2=360）解析：程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=I;b(i)=I，且数组 a 的上下界分别为 1 和4，数组 b 的上下界分别为 3 和 6；接着将数组 a 作为参数调用 YAS 过程，在 YAS 过程中，定义了两个变量 t 及 I，I 作为循环语句 For 的变量，它的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)即将a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a 中的各元素的积；同理程
27、序将数组 b 作为参数传递给 YAS 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为:s1=24 s2=360。50.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 x=0 Do Until x=-1 a=lnputBox(“请输入第一个数字 a 的值“) a=Val(a) b=InputBox(“请输入第二个数字 b 的值“) b=Val(b) x=InputBox(“请输入第三个数字 x 的值“) x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入 5，4，8，5，8，-1，输出结果为 2。 （分数：2.00）填空项 1:_ （正确答案：12）解析：该程序运行后，会出现一个对话框，提示输入 a，b，x 的值，如果输入的 x 的值不是-1，则该对话框将反复出现要求输入的提示，直到最后输入的 x 的值为-1 为止，程序最后输出的结果为最后一次循环中输入的 a 的值与 b 的值与 x 的值之和。所以输出结果为 5+8-1=12。
