142、Private Sub Command1_Click(Index As Integer) Select Case Index Case 0
Label1.BackColor= VbRed Case 1
Label1.BackColor= VbGreen Case 2
Label1.BackColor= VbBlue End Select End Sub
程序运行时单击第一个命令按扭Label1的背景色是______色。
答案： 1：红#Red#red#RED 等级：1 难度：1
知识点：VB知识点/分支(选择)结构
143、Private Sub Command1_Click(Index As Integer) Select Case Index Case 0
Label1.BackColor= VbRed Case 1
Label1.BackColor= VbGreen Case 2
Label1.BackColor= VbBlue End Select End Sub
程序运行时单击第二个命令按扭Label1的背景色是______色。
答案： 1：绿#green#Green#GREEN 等级：1 难度：1
知识点：VB知识点/分支(选择)结构
144、Private Sub Command1_Click(Index As Integer) Select Case Index Case 0
Label1.BackColor= VbRed Case 1
Label1.BackColor= VbGreen Case 2
Label1.BackColor= VbBlue End Select End Sub
程序运行时单击第三个命令按扭Label1的背景色是______色。
答案： 1：蓝#兰#BULE#Blue#blue 等级：1 难度：1
知识点：VB知识点/分支(选择)结构
145、Private Sub Command1_Click() Dim i as integer， j as integer Dim a(5,5) as integer For i=1 to 3 For j=1 to 3 a(i,j) = i*2 + j Print a(i,j) Next j Print Next i End Sub
上面程序运行后的第2行第1列的数是______。
答案： 1：5
等级：3 难度：3
知识点：VB知识点/综合应用程序举例
146、Private Sub Command1_Click() Dim i as integer， j as integer Dim a(5,5) as integer For i=1 to 3 For j=1 to 3 a(i,j) = i*2 + j Print a(i,j) Next j Print Next i End Sub
上面程序运行后的a(3,2)的值是______。
答案： 1：8
等级：3 难度：3
知识点：VB知识点/数组应用举例
147、控件数组的名字由 Name 属性指定，而数组中的每个元素由______属性指定。
答案： 1：Index#index#INDEX 等级：1 难度：1 知识点：VB知识点/控件数组
148、由Array函数建立的数组必须是______类型。
答案： 1：Variant#variant#VARIANT 等级：1 难度：1
知识点：VB知识点/数组的定义和引用
149、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click() Dim n() As Integer Dim a,b As Integer
a = InputBox(\b = InputBox(\ReDim n(a To b)
For k = LBound(n,1) To UBound(n,1) n(k) = k
Print \Next k End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为 n (2) = ______ n (3) = ______
答案： 1：2 2：3
等级：3 难度：3
知识点：VB知识点/综合应用程序举例
150、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5)
For i=0 To 4 a(i) = i + 1 t=i+1
If t = 3 Then Print a(i);
a(t - 1) = a(i - 2) Else
a(t) = a(i) End If
If i = 3 Then a(i + 1) = a(t - 4) a(4) = 1 Prim a(i); Next i End Sub
程序运行后，单击命令按钮，输出结果是______。
答案： 1：1 2 3 1 4 1#123141 等级：3 难度：3
知识点：VB知识点/数组应用举例
151、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k= 1 To 10 M(k) = 12 - k Next k x=6
Print M(2 + M(x)) End Sub
程序运行后，单击命令按钮，输出结果是______。
答案： 1：4
等级：2 难度：2
知识点：VB知识点/数组应用举例
152、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i
For n= 1 To 2 For M = 1 To 3 Print a(M, n); Next M Next n End Sub
程序运行后，单击命令按钮，输出结果是______。
答案： 1：1 2 3 2 4 6#123246 等级：3 难度：3
知识点：VB知识点/综合应用程序举例
153、下面程序运行后，输出的结果是______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J
Print B(J/2+0.1) End
答案： 1：24
等级：2 难度：2 知识点：VB知识点/循环结构
154、设有程序： Option Base 1
Private Sub Command1_Chick() Dim arr1, Max as Integer
arrl=Array(12,435,76,24,78,54,866,43) ______=arrl(1) For i=1 To 8
If arrl(i)> Max Then ______ Next i
Print \最大值是:\End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
答案： 1：Max
2：Max=arr1(i) 等级：3 难度：3
知识点：VB知识点/数组应用举例
155、在窗体上画一个名称为\，标题为\计算\的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为\计算结果\。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击\计算\按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。 Private Sub Command1_Click() Sum = 0
For i = 0 To 4 Sum = Sum + ______ Next
______= Sum End Sub
答案： 1：Label1(i).Caption#label1(i).caption 2：Label2.Caption#label2.caption 等级：3 难度：3
知识点：VB知识点/VB的工程结构
156、由下列语句定义的数组占用______字节的内存空间。 Dim a(10) As single
答案： 1：44#44个#四十四#四十四个#四四 等级：2 难度：2
知识点：VB知识点/数组的定义和引用
157、有如下程序段： j=1 n=0
Do While n<3 j=j * (j+1) n=n+1 Loop
Print n; j
运行后，输出的结果是_____。
答案： 1：3 42#342 等级：2 难度：2 知识点：VB知识点/循环结构