3 36 100 C）
0 50 50 1 14 64 2 36 100 3 36 100 D） 0 0 0 1 50 50 2 14 64 3 36 100 正确答案是: A
3、有以下程序段，单击命令按钮执行程序后，输出结果为（ ）。 Option Base 1
Private Sub Command1_Click() Dim x
x = Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1 = 0 : s2 = 0 For k = 1 To 10 If x(k) > 0 Then s1 = s1 + x(k) Else
s2 = s2 + x(k) End If Next k
Y = s1/Abs(s2) Print Y End Sub A）148 B）40 C）-40 D）3.7 正确答案是: D
4、执行以下程序，在窗体上输出（ ）。 Private Sub Command1_Click() Dim a(20)
For j = 1 To 20 Step 2 a(j) = j Next j
Print a(1) + a(2) + a(3) End Sub A）4 B）5 C）6
11
D）7 正确答案是: A
5、下面语句中错误的是（ ）。
A）ReDim Preserve Matrix(10,Ubound(Matrix,2)+1) B）ReDim Preserve Matrix(Ubound(Matrix,1)+1,10) C）ReDim Preserve DynArray(Ubound(DynArray)+1) D）ReDim DynArray(Ubound(DynArray)+1) 正确答案是: B
6、假设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是（ ）。 A）命令按钮的所有Caption属性都是Command1
B）在代码中访问任意一个命令按钮只需使用名称Command1 C）命令按钮的大小都相同 D）命令按钮共享相同的事件过程 正确答案是: B
7、下列程序段错误的是（ ）。 A）Dim a As Integer a=array(1,2,3,4) B）Dim a(),b()
a=array(1,2,3,4)：b=a C）Dim a As Variant a=array(1,\ D）Dim a() As Variant a=array(1,2,3,4) 正确答案是: A
8、使用语句Dim A(1 To 10) As Integer声明数组A后，以下叙述正确的是（ ）。 A）A数组中的所有元素值为0 B）A数组中的所有元素值不确定 C）A数组中的所有元素值为Empty
D）执行语句“Erase A”后，A数组中的所有元素值为Null 正确答案是: A
9、在窗体上画个4文本框，并用这4个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为（ ）。 A）0 1 2 3 B）1 2 3 4 C）0 1 3 2 D）出错信息 正确答案是: A
12
10、有以下程序段，执行该段程序后，输出结果是（ ）。 Private Sub Command1_Click() Dim s(3, 3) For i = 1 To 3 For j = 1 To 3 If i = j Then s(i, j) = 1 Else
s(i, j) = 0 End If
Print s(i, j), Next j Print Next i End Sub A） 0 1 0 1 0 0 0 0 1 B） 1 0 0 0 1 0 0 0 1 C） 1 1 1 0 0 0 1 1 1 D） 1 0 1 0 1 0 1 0 1 正确答案是: B
13