2022年VB数组测试题及答案.docx

《2022年VB数组测试题及答案.docx》由会员分享，可在线阅读，更多相关《2022年VB数组测试题及答案.docx（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -数组测试题（一）：挑选题（ 8 小题）1以下数组声明语句,是正确的；a Dim a3,4 As Integer b Dim a3,4 As Integer c Dim an,n As Integer d Dim a3 4 As Integer 2以下程序输出的结果是；Dim a ： A=Array1,2,3,4,5,6,7 For I=Lbounda To Ubounda Ai=ai*ai Next I Print ai a 49 b 0 c 不确定 d 程序出错）3下面程序段的运行结果是；（ Option

2、Base 1 Private Sub Form_Click Dim a： b$ = : c$ = a = Arrayeffort, run, lucky For i = 1 To UBounda b$ = b$ + Left$ai, 1 Next I Print c$ + b$ End Sub ： c$ = c$ + Right$ai, 1 （A）effort （B）tnyerl （C）erltny （D）c$+b$ 第 1 页,共 10 页 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料

3、- - - - - - - - - - - - - - -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 AI,j=aaI-1,j-1,aI,j-1+1 Else AI,j=I*j End If Print aI,j;” ; Next j Print Next I End Sub （a） 1 2 3 b 1 2 3 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

4、9 3 3 3 5如下数组声明语句中,数组 Dim a3,-2 to 2,5 a 包含元素的个数为a 120 b75 c 60 d 13 6下面程序输出的结果是； Option Base 1 Private Sub Command1_Click Dim a,b3,3 A=Array1,2,3,4,5,6,7,8,9 For I=1 to 3 For j=1 to 3 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页,共 10 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - -

5、- - BI,j=aI*j If j=I Then Print Tabj*3;FormatbI,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. 有如下程序,运行输出结果如下：请挑选正确内容,将处补充完整；1 4 7 2 5 8 3 6 9 Private Sub Form_Click Dim a1 To 3, 1 To 3 As Integer For j = 1 To 3 For k = 1 To 3 aj, k

6、 = Print aj, 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 s1 To 5 As Integer 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页,共 10 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - x = V

7、alInputBox 请输入 x 的值： Do While x -1 sx = sx + x x = ValInputBox Loop For i = 1 To 5 请输入 x 的值： If si = 3 Then Print i; si 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 a1 to 6

8、 For I=1 to 6 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页,共 10 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - Ai= Print Next I End Sub 2以下程序用于产生 20 个（0,99）之间的随机整数, 并将其中偶数输出；Private Sub Command1_Click Randomize For j=1 To 20 x=IntRnd*【 】 If x/2=【 】 Then Print x Next j End Sub 3

9、下面的程序用于求 3 个数中的最大数,补充完整程序；Private Sub Command1_Click a=ValInputBox b=ValInputBox c=ValInputBox max=a : min=a 请输入第一个数 请输入其次个数 请输入第三个数 细心整理归纳 精选学习资料 If b【 】 Then max=b 第 5 页,共 10 页 If b【 】 Then min=b If 【 】 Then max=c If 【 】 Then min= c - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - -

10、 - - - - - - - - - - - - - Print 最大值为： ；max Print 最小值为： ；min End Sub 4程序代码实现 : 单击命令按钮 Command1时形成并输出一个主对角线上元 素值为 -1 ,其它元素值为 0 的 6 6 阶方阵；Private Sub Command1_Click Dim a6,6 For k=1 To 6 For j=1 To 6 If k=j Then 【 】 Else 【 】 Endif Print 【 】 Next j Print 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6

11、页,共 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 ai = 200 * Rnd Next I For i = 1 To n 1 k = I For j = （13） If （14） Then k =

12、j Next j If k i Then t = ak: ak = ai: ai = t End If Next I For i = 1 To n 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页,共 10 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - Print ai; Next I：End Sub（三）、编写程序编写完整的窗体 Form1的单击大事代码,要求实现：随机产生 49 个 10,99范畴内的整数,并将它们根据从小到大的顺序（以每行 7 个数据）输出；

13、数组测试题答案 一）挑选题1 2 3 4 5 6 7 8 9 10 11 12 B D B A A D C D 二）填空题1 INTRND*100+1 22, ” * ” ; ” a “ ;I;” ” ; ” =” ;ai3 98+1 4 x2 或者 intx2 5 max 或者 a 6 min 或者 a 7 cmax 或者 cb 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 8 页,共 10 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -8 cmin 或者 caj 三

14、）程序题【说明： 声明数组和输入数组元素,输出数组元 素】Private sub form_click Dim x1 to 49 as integer For I=1 to 49 Xi=intrnd*90+10 Print xi; If I mod 7=0 then print Next I 【说明：冒泡法排序,输出排序后的结果】细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页,共 10 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -For I=1 to 48 For j=I+1 to 49 If xixj then For I=1 to 48 T=I T=xi:xi=xj;xj=t End if Next j Next I For I=1 to 49 Print xi; If I mod 7=0 then print For j=I+1 to 49 If ajat then t=j Next j If tI then Temp=ai Ai=at At=temp Next I End sub 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 10 页,共 10 页 - - - - - - - - -