D．Me.Name =\

23．定义了三维数组A(5，5，5)，则该数组的元素个数为 。 A．15 B．25 C．125 D．216 24．假定有以下循环结构 。 Do Until 条件 循环体 Loop

则正确的叙述是

A．如果“条件”的值为false，则一次循环体也不执行 B．如果“条件”的值为false，则至少执行一次循环体 C．如果“条件”的值不为false，则至少执行一次循环体 D．不论“条件”的值是否为true，至少要执行一次循环体 25．下列程序段的执行结果为 。 X = 2 : Y = 1

If X * Y < 1 Then Y = Y – 1 Else Y = -1 MsgBox Y – X > 0

A．True B．False C．-1 D．1 26．以下程序段：

Private Sub Command1_Click()

a = InputBox ( \请输入\请输入\MsgBox a + b End Sub

运行时输入3和4，输出结果为 。

A．7 B．34 C．3 + 4 D．出错 27．在窗体上创建两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程 。 Private Sub Command1_Click() Dim x As Integer，n As Integer x = 0 : n = 0 Do While x <50

x = (x + 2) * (x + 3) : n = n + 1 Loop

Text1 = Str (n) : Text2 = Str (x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是 。 A．1和0 B．2和72 C．3和50 D．4和168 28．以下程序段运行后，消息框的输出结果是 。 a = sqr (3) : b = sqr (2) : c = a > b Msgbox c + 2

A． -1 B．1 C．2 D．出错 29．程序段：

D=#2004-8-1# : MM=Month(D) MM的返回值是 。

A．2004 B．8 C．1 D．2004-8-1 30．程序段： x=0

For i=1 to 10 Step 2 x = x+i : i = i*2 Next i

当循环结束后，变量i的值为 。 A．22 B．10 C．11 D．16 31．有如下程序：

Private Sub Form_Click( )

a$ = \等级考试\海洋卫星\For j = 1 To 6 Step 2

p$ = p$ & Mid$ ( a$, 6-j, 2 ) & Mid$ ( b$, j, 2 ) If Len (p$) = 6 Then Exit For Next j MsgBox p$ End Sub

运行时输出的结果是 。

A．海洋考 B．考试海 C．海洋考试卫星 D．考试海洋等级卫星

32．假定有以下函数过程：

Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S)

s1=UCase(Mid(s,i,1))+sl Next i Fun=sl

End Function

则Fun (\的输出结果为 。

A．abcdefg B．ABCDEFG C．gfedcba D．GFEDCBA

33．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command_Click() s = 0

For i = 1 to 15 x = 2 * i – 1

if x Mod 3 = 0 Then s = s+1 Next i

Label1.Caption = s End Sub

单击命令按钮后，Label1上显示 。 A．5 B．15 C．16 D．14

34．在程序中添加一个命令按钮，并编写如下程序：

Private Sub Command1_Click ( ) x = \z = x + y : zz = Val (z) MsgBox zz End Sub

程序运行后，单击命令按钮, 输出结果为 。

A．12.34 B．56.78 C．69.12 D．12.3456 35． Mid(\返回的值是 。

A．“abc” B．“abcd” C．“def” D．“cdef” 36． 运行下列程序后，单击命令按钮后输出的图案是 。 Private Sub Command1_Click ( ) a =\

Mid ( a, 2, 4 ) =\MsgBox a End Sub

A．AAA B．aaAAA C．aAAAaa D．aaaAAA 37．下面过程运行之后，则变量J的值为 。 Private Sub Fun() Dim J As Integer J=5 Do J=J+2

Loop While J>10 End Sub

A．5 B．7 C．9 D．11

38．下面Main过程运行之后，则变量J的值为 。 Private Sub MainSub() Dim J As Integer J=5

Call GetData(J) End Sub

Private Sub GetData(ByRef f As Integer) f=f*2+Sgn(-1) End Sub

A． 5 B．7 C． 9 D．10

39．窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click () x = 0

Do Until x = -1

a = InputBox (“请输入A的值”) : a = Val (a) b = InputBox (“请输入B的值”) : b = Val (b) x = InputBox (“请输入x的值”) : x = Val (x) a = a + b + x Loop

MsgBox a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。

A．2 B．3 C．14 D．15 40． 阅读下面的程序段： For i = 1 to 3 For j = 1 to I For k = j to 3 a = a + 1 Next k Next j Next I

执行上面的三重循环后，a的值为 。 A．3 B．9 C．14 D．21

41．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩，计算出每位学生的平均分并输出，程序如下： Dim n As Integer , k As integer

Dim score As Single , sum As Single , ave As Single Sum = 0.0

For n = 1 To 10 For k = 1 To 4

score = val(InputBox (“请输入一门课的成绩”)) : sum = sum + score Next k

ave = sum / 4

MsgBox n : MsgBox ave Next n

上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。这条语句是 。

A．sum = 0.0 B．sum = sum + score C．ave = sum / 4 D．MsgBox n ：MsgBox ave

42．以下程序的输出结果是 。 Private Sub Command1_Click () Dim a (10), p (3) As Integer k = 5

For i = 1 To 10 a (i) = i Next i

For i = 1 to 3 p (i) = a ( i * i )