VB对口升学数组测试
循环数组测试题
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 \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) & \
& \
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 i>10Then 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 Integer C）Dim a(4,3)As Integer D）Dim a(-1 To -4,-1 To -3)As Integer
10、设在窗体上有 1个名称为 Combol 的组合框，含有 5个项目，要删除最后一项，正确的语句是（ ）。
A）Combo1.RemoveItem Combo1.Text B）Combo1.RemoveItem 4
C）Combo1.RemoveItem Combo1.ListCount D）Combo1.RemoveItem 5 二、填空题
1、执行下面的程序2、以下程序段的输段后，s的值为（ ） 出结果是（ ） s=5 num=0 for i=2.6 to 4.9 while num<=2 setp 0.6 num=num+1 s=s+1 print num next i wend 3、设有以下循环： x=1 Do
x=x+2 print x
loop until ( )
程序运行后，要求执行3次循环，请填空。 4、 在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click() Dim arr(10,10) As Integer Dim i As Integer , j As Integer For i=2 To 4
For j=2 To 4 arr(i,j)=i*j Next j Next i
Label1.Caption=Str(arr(1,2)+arr(3,3)) End Sub程序运行后，单击窗体，在标签中显示的内容是_____。
5、用Dim(3 to 7,10)数组共有 ____个元素。 三、程序填空题
1、 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。
Private Sub Command1_Click() Radomize
n=CInt(Text1.Text) n1=0 n2=0
For i=1 To r=Int(Rnd* )
If r= Then n1=n1+1 Else
n2=n2+1 Next i Text2.Text=n1 Text3.Text=n2 End Sub
2、 输入一串字符，统计各字母出现的次数，不区分大小写。
Private Sub Command1_Click( ) Dim a(1 To 26) As Integer
Dim i As Integer, j As Integer, c As String * 1
tot = (Text1) ' 求字符串的长度 For i = 1 To tot
c = ' 取一个字符，将其转换成相应的大写字母
If c >= \
j = Asc(c) – 65 + 1 ' 将A～Z大写字母转换成1～26的下标 End If Next i
For j = 1 To 26 ' 输出字母及其出现的次数
If a(j) > 0 Then
Label2.Caption = Label2.Caption & Chr$(j + 64) & \ End If Next j End Sub
3、 随机产生10个两位整数，找出其中的最大值、最小值和平均值。
考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：
随机整数的生成由窗体的Load事件代码完成：
Private Sub Form_Load( ) Dim p As String Randomize p = \
For i = 1 To 10
a(i) = p = p & Str(a(i)) & \ Next
Label1.Caption = LTrim(Left(p, Len(p) – 1))
End Sub
求最大、最小以及平均值由“确定”按钮
VB对口升学数组测试
