江苏省二级考试VB试题汇总

程序运行后，单击窗体，在文本框显示的值是_______。 C A. 5 B. 7 C. 12 D. 20

60 在窗体上添加一个命令按钮Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click() d = 0: c = 10

x = Array(10, 12, 21, 32, 24) For i = 1 To 5

If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub

程序运行后，单击命令按钮，输出结果是_______。 C A. 89 B. 99 C. 23 D. 77

61 下列语句声明的数组a包含的元素个数有_______。 A

Dim a(3 ，-2 to 2，5)

A. 120 B. 75 C. 60 D. 13 62 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在_______。 A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5)

63 在Visual Basic应用程序中，以下描述正确的是_______。 B A. 过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不可以嵌套，但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套 64 假定有如下的Sub过程：

Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, b End Sub

程序运行时，单击命令按钮得到的结果是_______。 D A. 5 4 B. 1 1

第 9 页 共 50 页

省二级考试VB试题汇总

C 省二级考试VB试题汇总

C. 1.25 4 D. 1.25 1

65 以下程序的运行结果是_______。 C

Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3

Sum = Sum + fun(a) Next i Print Sum End Sub

A. 24 B. 12 C. 15 D. 32 66 阅读程序：

Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer

a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a For i = 1 To 4 Print a(i); Next i End Sub

程序运行时，单击命令按钮得到的结果是_______。 A A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出错 67 假定有以下两个过程：

Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub

Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y

第 10 页 共 50 页

省二级考试VB试题汇总

y = t End Sub

则以下说法中正确的是_______。 B

A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现 B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现 C. 用过程S1和S2都可以实现交换两个变量的值的操作 D. 用过程S1和S2都不能实现交换两个变量的值的操作

68 在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签，在通用声明段声明变量x,并编写如下事件过程和SUB过程：

Private x As Integer

Private Sub Command1_Click() x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = y End Sub

Sub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是_______。B A) 5和3 B) 25和3 C) 25和6 D) 5和6 69 下列程序输出结果为_______。A

Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i

Print GetValue(i) End Sub

Private Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = S End Function

A. 4 B. 5 C. 10 D. 11 70 以下程序的运行结果是_______。 C

Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub

Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y)

第 11 页 共 50 页

省二级考试VB试题汇总

Print x + y End Sub

A) 0 B) 8 C) 12 D) 14 71 以下程序的运行结果是_______。 C

Private Sub Form_Click() a = 1: b = 1

Print \ Call mult(a, b)

Print \End Sub Sub mult(x, y) x = 2 * x y = 3 * y End Sub

A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1

72 在窗体上添加一个命令按钮Command1和3个名称分别为Label1，Label2和Label3的标签， 然后编写如下事件过程：

Private x As Integer

Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z

Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub

程序运行后，连续3次单击命令按钮，则3个标签中显示的内容分别是_______。 C

A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 73 一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模块。假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程：

Private sub frmFunction1() ? End Sub

Form2中定义的过程：

Pubilc sub frmFunction2() ? End Sub

Md1func中定义的过程： Public sub md1Function () ? End Sub

第 12 页 共 50 页