VB数组测试题及答案

1、精选优质文档-倾情为你奉上数组测试题（一）：选择题（8小题）1下列数组声明语句， 是正确的。(a) Dim a3,4 As Integer (b) Dim a(3,4) As Integer(c) Dim a(n,n) As Integer (d) Dim a(3 4) As Integer2以下程序输出的结果是 。Dim a： A=Array(1,2,3,4,5,6,7)For I=Lbound(a) To Ubound(a) A(i)=a(i)*a(i)Next IPrint a(i)(a) 49 (b) 0 (c) 不确定 (d) 程序出错3下面程序段的运行结果是 。（ Option B

2、ase 1 ） Private Sub Form_Click() Dim a： b$ = : c$ = a = Array(effort, run, lucky) For i = 1 To UBound(a) b$ = b$ + Left$(a(i), 1)： c$ = c$ + Right$(a(i), 1) Next I Print c$ + b$ End Sub（A）effort （B）tnyerl （C）erltny （D）c$+b$4以下程序输出的结果是 。（Option Base 1）Private Sub Command1_Click( ) Dim a%(3,3) For I=1

3、 to 3 For j=1 to 3 If j1 And I1 Then A(I,j)=a(a(I-1,j-1),a(I,j-1)+1 Else A(I,j)=I*j End If Print a(I,j);” ”; Next jPrint Next IEnd Sub（a） 1 2 3 (b) 1 2 32 3 1 1 2 33 2 3 1 2 3(c ) 1 2 3 (d) 1 1 12 4 6 2 2 23 6 9 3 3 35如下数组声明语句中，数组a包含元素的个数为 Dim a(3,-2 to 2,5)(a) 120 (b)75 (c) 60 (d) 136下面程序输出的结果是 。(O

4、ption Base 1)Private Sub Command1_Click( ) Dim a,b(3,3)A=Array(1,2,3,4,5,6,7,8,9)For I=1 to 3 For j=1 to 3 B(I,j)=a(I*j) If (j=I) Then Print Tab(j*3);Format(b(I,j),”#”);End ifNext j PrintNext I End Sub(a) 1 2 3 (b) 1 (c) 1 4 7 (d) 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 91 4 72 5 83 6 97.有如下程序，运

5、行输出结果如下：请选择正确内容，将 处补充完整。Private Sub Form_Click()Dim a(1 To 3, 1 To 3) As IntegerFor j = 1 To 3 For k = 1 To 3 a(j, k) = Print a(j, k); Next k PrintNext jEnd Sub（A）j + k （B）(j + 1) * 3 + k （C）j + (k - 1) * 3 （D）j * k8下面程序，当从键盘输入1,2,4,4,4,-1时，输出的结果是 。 Private Sub Form_Click() Dim s(1 To 5) As Integer

6、x = Val(InputBox(请输入x的值：) Do While x -1 s(x) = s(x) + x x = Val(InputBox(请输入x的值：) Loop For i = 1 To 5 If s(i) = 3 Then Print i; s(i) Next I End Sub （A）1 3 （B）3 4 （C）4 4 （D）4 12（二）：填空题（5小题）1随机产生6位学生的分数(分数范围1100)，存放在数组a中，以每2分显示一个”*”(分数-1后除以2)，并输出学生的分数。结果显示如下图所示。 Private Sub Command1_Click( )Dim a(1 to

7、 6) For I=1 to 6 A(i)= Print Next IEnd Sub2以下程序用于产生20个（0，99）之间的随机整数，并将其中偶数输出。Private Sub Command1_Click( ) Randomize For j=1 To 20 x=Int(Rnd*【 】) If x/2=【 】 Then Print x Next jEnd Sub3下面的程序用于求3个数中的最大数，补充完整程序。Private Sub Command1_Click( ) a=Val(InputBox(请输入第一个数) b=Val(InputBox(请输入第二个数) c=Val(InputBox

8、(请输入第三个数) max=a : min=a If b【 】 Then max=b If b【 】 Then min=b If 【 】 Then max=c If 【 】 Then min=c Print 最大值为：；max Print 最小值为：；minEnd Sub4程序代码实现:单击命令按钮Command1时形成并输出一个主对角线上元素值为-1，其它元素值为0的66阶方阵。Private Sub Command1_Click( ) Dim a(6,6) For k=1 To 6 For j=1 To 6 If k=j Then 【 】 Else 【 】 Endif Print 【 】

9、Next j Print Next kEnd Sub5下面是用选择排序法对n个数由小到大排序的程序，请在 处添上正确答案。（Option Base 1） Dim a() Private Sub Form_Click() Randomize Timer n = InputBox(请输入需要排序的数的个数：) For i = 1 To n a(i) = 200 * Rnd Next I For i = 1 To n 1 k = I For j = （13） If （14） Then k = j Next j If k i Then t = a(k): a(k) = a(i): a(i) = t E

10、nd If Next I For i = 1 To n Print a(i); Next I：End Sub（三）、编写程序编写完整的窗体Form1的单击事件代码，要求实现：随机产生49个 10,99范围内的整数，并将它们按照从小到大的顺序（以每行7个数据）输出。数组测试题答案一）选择题123456789101112BDBAADCD二） 填空题1) INT(RND*100+1)2) STRING(a(i)2,”*”);”a(“;I;”)”;”=”;a(i)3) 98+14) x2 或者int(x2)5) max或者a6) min 或者a7) cmax 或者cb8) cmin 或者ca(j)三） 程序题【说明：声明数组和输入数组元素，输出数组元素】Private sub form_click()Dim x(1 to 49) as integerFor I=1 to 49X(i)=int(rnd*90+10)Print x(i);If I mod 7=0 then printNext I【说明：冒泡法排序，输出排序后的结果】For I=1 to 48T=IFor j=I+1 to 49If a(j)a(t) then t=jNext jIf tI thenTemp=a(i)A(i)=a(