VB对口升学数组测试.docVIP

循环数组测试题 1、 在Visual Basic中，组合框是文本框和( )特性的组合。 A）复选框 B）标签 C）列表框 D）目录列表框 2、 以下程序段的运行结果是_______。 A Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print s=; s End Sub A. 33 B. 34 C. 35 D. 36 3、 以下程序段的运行结果是_______。 A Private Sub Form_Click() a = 1 b = a Do Until a = 5 X = a * b Print Str(a) * Str(b) =; Str(X); a = a + b b = b + a Loop End Sub A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6 4、 下列语句声明的数组a包含的元素个数有_______。 A Dim a(3 ，-2 to 2，5) A. 120 B. 75 C. 60 D. 13 5、 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在_______。 C A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 6、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　Dim a1(4, 4), a2(4, 4) 　　For i = 1 To 4 　　For j = 1 To 4 　　a1(i, j) = i + j 　　a2(i, j) = a1(i, j) + i + j 　　Next j 　　Next i 　　Print a1(3, 3); a2(3, 3) 　　End Sub 　　程序运行后，单击命令按钮，在窗体上输出的是 　　A）6 6 B）10 5 C）7 21 D）6 12 7、在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程： 　　Private Sub Commandl_Click() 　　Counter=0 　　For i=1 To 4 　　For j=6 To 1 Step -2 　　Counter=Counter+1 　　Nextj 　　Nexti 　　Labell.Caption=Str(Counter) 　　End Sub 　　程序运行后，单击命令按钮，标签中显示的内容是 A．11 B．12 C．16 D．20 8、在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Commandl_Click() Dim i As Integer, n As Integer For i=0 To 50 i = i+3 n = n+1 If i10Then Exit For Next Textl.Text=Str(n) End Sub 程序运行后，单击命命令按钮，在文本框中显示的值是 （　　） 。 A．5 B．4 C．3 D．2 9、1 个二维数组可以存放 1 个矩阵。在程序开始有语句 Option Base 0，则下面定义的数组中正好可以存放 1 个4╳3 矩阵（即只有 12 个元素）的是（ ）。 A）Dim a(-2 To 0,2)As Integer B）Dim a(3,2)As Integ