Next i

For i = 1 To 3 k = k + p (i) * 2 Next i MsgBox k End Sub

A．33 B．28 C．37 D．35 43．有如下程序：

Dim a (3,3 ) As Integer For m = 1 To 3 For n = 1 To 3

a ( m , n) = ( m-1) * 3 + n Next n Next m

For m = 2 To 3 For n = 1 To 2 MsgBox a(m,n) Next n Next m

运行后消息框依次输出的结果是 。

A．2 5 3 6 B．2 3 5 6 C．4 7 5 8 D．4 5 7 8 44．有如下程序，运行后输出的是 。 Private Sub Command1_Click () Dim aj ( 10 ) For j = 6 To 10 Aj (j) = j * 2 Next j

MsgBox aj (1) + aj (j) End Sub

A．5 B．20 C．22 D．显示出错信息 45．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：

Private Sub Command_Click ( ) Dim x , y , z As Integer x = 5 : y = 7 : z = 0 Text1 = \

Call fun ( x , y , z ) Text1 = Str ( z ) End Sub

Sub fun( ByVal a As Integer , ByVal b As Integer, c As Integer ) C = a + b End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是 。 A．0 B．12 C．Str(z) D．没有显示

46．阅读程序：

Function F ( a As Integer ) b = 0 : Static c

b = b + 1 : c = c + 1 : F = a + b + c End Function

Private Sub Command1_Click ( ) Dim a As Integer a = 2

For i = 1 To 3 MsgBox F ( a ) Next i End Sub

运行上面的程序，单击命令按钮，运行后消息框依次输出结果为 。 A．4 4 4 B．4 5 6 C．4 6 8 D．4 7 9 47．有如下程序：

Private Function func ( ByVal a As Integer , ByVal b As Integer ) Func = a + b End Function

Private Sub Command1_Click ( ) Dim x As Integer , y As Integer Dim z As Integer , r As Integer x = 2 : y = 5 : z = 8

r = func ( func ( x , y ) , z ) MsgBox r End Sub

当在Command1按钮上单击，该程序的输出结果是 。 A．12 B．13 C．14 D．15 48．在窗体上画一个名称为Command1的命令按钮和3个名称为Label1、Label2、Label3的标签，然后编写如下程序段： Private x As Integer

Private Sub Command_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个标签中显示的内容是 。 A．30 30 30 B．10 10 10 C．30 30 10 D．10 30 10

49．在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和

bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的语句是 。

A．Caption＝＂计算机等级考试＂ B．bCommand.Caption＝计算机等级考试

C．Caption＝＂计算机等级考试＂

D．bCommand.Caption＝＂计算机等级考试＂

50．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As integer

Private Sub Command1_Click（） x＝10

Call s1 ：Call s2 ：MsgBox x End Sub

Private Sub s1（） x＝x＋20 End Sub

Private Sub s2（） Dim x As integer x＝x+20 End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为 。 A．10 B．30 C．40 D．50

参考答案

1. C 2.C 3.C 4.D 5.A 6.C 7.B 8.D 9. A 10.C 11.B 12.B 13.B 14.A 15.B 16.C 17.B 18.A 19.A 20.D 21.B 22.B 23.D 24.B 25.B 26.B 27.B 28.B 29.B 30.A 31.C 32.D 33.A 34.D 35.C 36.C 37.B 38.C 39.A 40.C 41.A 42.A 43.D 44.D 45.B 46.B 47.D 48.C

49.D 50.B