2022年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 integer 2以下程序输出的结果是。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 i print a(i) (a) 49 (b) 0 (c) 不确定 (d) 程序出错3下面程序段的运行结果是。 （ option base 1

2、） 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$ 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 1 页，共 10 页 - - - - - - - - -精品学习资料

3、可选择p d f - - - - - - - - - - - - - - 第 1 页，共 10 页 - - - - - - - - -4以下程序输出的结果是。 （option base 1 ）private sub command1_click( ) dim a%(3,3) for i=1 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 j print next i end sub （a） 1 2 3 (b) 1 2 3

4、2 3 1 1 2 3 3 2 3 1 2 3 (c ) 1 2 3 (d) 1 1 1 2 4 6 2 2 2 3 6 9 3 3 3 5如下数组声明语句中，数组a 包含元素的个数为dim a(3,-2 to 2,5) (a) 120 (b)75 (c) 60 (d) 13 6下面程序输出的结果是。(option 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 精品学习资料 可选择p d f - - - - - - - - - - -

5、 - - - 第 2 页，共 10 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 2 页，共 10 页 - - - - - - - - - b(i,j)=a(i*j) if (j=i) then print tab(j*3);format(b(i,j),”#”); end if next j print next 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 9 7. 有如下程序，运行输出结

6、果如下：请选择正确内容，将处补充完整。private sub form_click() dim a(1 to 3, 1 to 3) as integer for j = 1 to 3 for k = 1 to 3 a(j, k) = print a(j, k); next k print next j end sub （a）j + k （b）(j + 1) * 3 + k （c）j + (k - 1) * 3 （d）j * k 8下面程序，当从键盘输入1,2,4,4,4,-1时，输出的结果是。 private sub form_click() dim s(1 to 5) as integer

7、1 4 7 2 5 8 3 6 9 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 3 页，共 10 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 3 页，共 10 页 - - - - - - - - - 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

8、(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 6) for i=1 to 6 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 4 页，共 10 页 - - - - - - - - -精品学习资料 可选择p d f - - - -

9、 - - - - - - - - - - 第 4 页，共 10 页 - - - - - - - - - a(i)= print next i end sub 2以下程序用于产生20 个（0，99）之间的随机整数， 并将其中偶数输出。private sub command1_click( ) randomize for j=1 to 20 x=int(rnd*【 】) if x/2=【 】 then print x next j end sub 3下面的程序用于求3 个数中的最大数，补充完整程序。private sub command1_click( ) a=val(inputbox(请输入第一

10、个数 ) b=val(inputbox(请输入第二个数 ) c=val(inputbox(请输入第三个数 ) max=a : min=a if b【 】 then max=b if b【 】 then min=b if 【 】 then max=c if 【 】 then min= c 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 5 页，共 10 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 5 页，共 10 页 - - - - - - - - - print 最

11、大值为： ；max print 最小值为： ；min end sub 4程序代码实现 : 单击命令按钮 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 【 】 next j print 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 6 页，共 10 页 - - - - - - - - -精品学习资

12、料 可选择p d f - - - - - - - - - - - - - - 第 6 页，共 10 页 - - - - - - - - - next k end sub 5下面是用选择排序法对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） th

13、en k = j next j if k i then t = a(k): a(k) = a(i): a(i) = t end if next i for i = 1 to n 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 7 页，共 10 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 7 页，共 10 页 - - - - - - - - - print a(i); next i：end sub（三） 、编写程序编写完整的窗体form1的单击事件代码，要求实现：随机

14、产生 49 个 10,99范围内的整数，并将它们按照从小到大的顺序（以每行 7 个数据）输出。数组测试题答案一）选择题1 2 3 4 5 6 7 8 9 10 11 12 b d b a a d c d 二）填空题1)int(rnd*100+1) 2)2, ”*”); ”a( “;i;”) ”; ”=”;a(i)3)98+1 4)x2 或者 int(x2) 5)max 或者 a 6)min 或者 a 7)cmax 或者 cb 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 8 页，共 10 页 - - - - - - - - -精品学习资料 可选择p

15、 d f - - - - - - - - - - - - - - 第 8 页，共 10 页 - - - - - - - - -8)cmin 或者 ca(j) 三）程序题【说明：声明数组和输入数组元素，输出数组元素】private sub form_click() dim x(1 to 49) as integer for i=1 to 49 x(i)=int(rnd*90+10) print x(i); if i mod 7=0 then print next i 【说明：冒泡法排序，输出排序后的结果】精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 9 页，共 10 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 9 页，共 10 页 - - - - - - - - -for i=1 to 48 for j=i+1 to 49 if x(i)x(j) then t=x(i):x(i)=x(j);x(j)=t end if next j next i for i=1 to 49 print x(i); if i mod 7=0 then print next i end sub for