VB对口升学数组测试

1、循环数组测试题1、 在Visual Basic中，组合框是文本框和( )特性的组合。A复选框B标签C列表框D目录列表框2、 以下程序段的运行结果是_。 APrivate 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=; sEnd Sub A. 33 B. 34 C. 35 D. 36 3、 以下程序段的运行结果是_。 APrivate Sub Form_Click() a

2、= 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包含的元素个数有_。 ADim 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

3、(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 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是A6 6 B10 5 C7 21 D6 127、在窗体上面画一个命令按钮和一个标签，其

4、名称分别为 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 程序运行后，单击命令按钮，标签中显示的内容是 A11 B12 C16 D20 8、在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Commandl_Click() Dim

5、 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 程序运行后，单击命命令按钮，在文本框中显示的值是 。 A5 B4 C3 D2 9、1 个二维数组可以存放 1 个矩阵。在程序开始有语句 Option Base 0，那么下面定义的数组中正好可以存放 1 个43 矩阵即只有 12 个元素的是 。 ADim a(-2 To 0,2)As Integer BDim a(3,2)As Integer CDim a(4,3)As Integ

6、er DDim a(-1 To -4,-1 To -3)As Integer 10、设在窗体上有 1个名称为 Combol 的组合框，含有 5个工程，要删除最后一项，正确的语句是 。 ACombo1.RemoveItem Combo1.Text BCombo1.RemoveItem 4 CCombo1.RemoveItem Combo1.ListCount DCombo1.RemoveItem 5二、填空题1、执行下面的程序段后，s的值为 s=5 for i=2.6 to 4.9 setp 0.6 s=s+1 next i2、以下程序段的输出结果是 num=0 while num= A And

7、 c 0 Then Label2.Caption = Label2.Caption & Chr$(j + 64) & = & a(j) & End If Next jEnd Sub3、 随机产生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 = L

8、Trim(Left(p, Len(p) 1)End Sub求最大、最小以及平均值由“确定按钮Command2的Click事件代码完成：Private Sub Command2_Click( ) Dim n As Integer, m As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) n Then If a(i) = 0 And x = 100 Then 限制数据范围 p = Int(x / 10) Else MsgBox 请输入正确分数！ 消息框 i = i 1 End If Next i Fo

9、r p = 0 To 9 p * 10 & & (p * 10 + 9) & 分的人数为: & a(p) Next p List1.AddItem 100分的人数为: & a(10)End Sub6、 输入初始值，输出100个不能被3整除的数。图6-1 输出100个不能被3整除的数Private Sub Command1_Click( ) Dim x As Integer, n As Integer x = Val(Text2.Text): n = Do Until If x Mod 3 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & C

10、hr(10) n = n + 1 End If LoopEnd Sub7、 设计程序，求s = 1 + (1 + 2) + (1 + 2 + 3) + + (1 + 2 + 3 + + n)的值。Private Sub Command1_Click( ) Dim n As Integer, i As Integer, j As Long, s As Long n = Val(Text1.Text) j = 0: For i = j = s = s + Next i Label2.Caption = 和数 s = & Str(s) Text1.SelStart = 0 Text1.SelLeng

11、th = Len(Text1.Text)End Sub8、 所谓“水仙花数，是指一个三位数，其各位数的立方和等于该数，如153 = 13 + 53 + 33，编写程序输出所有的“水仙花数。Private Sub Command1_Click( ) Dim p As Integer List1. 清空列表框 For n = a = b = Int(n - a * 100) / 10) c = n - (a * 100 + b * 10) p = If p = n Then List1.AddItem NextEnd Sub9、 马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中

12、有男人、女人和小孩。每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，一共花去50先令。问男人、女人和小孩各有几人？Private Sub Command1_Click( ) List1.Clear For x = 1 To 16 For y = 1 To 24 z = 30 - x - y If Then p = Format(x, ) & Format(y, ) & Format(z, ) List1. End If NextEnd Sub10、 用1, 2, 3, 4这四个数字组成四位数。编写程序，打印出所有可能的四位数四个数字可以相同，并统计出所组成的四位数的个数。每打印15个换行.P