1、国家二级 VB机试（选择题）模拟试卷 185及答案与解析 一、选择题 1 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Private Sub Commandl Click()_ Dim x， y， z x=InputBox(“请输入第 1个整数 ”)： y=InputBox(“请输入第 2个整数 ”) Do Until x=y Ifxy Then x=x-y Else y=y-x End if Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39， 则在窗体上显示的内容为 （ A） 11 （ B） 13 （ C） 23 （ D
2、） 39 2 窗体上有 1个名称为 Commandl的命令按钮，事件过程及函数过程如下： Private Sub Commandl Click() Dim mAs String m； InputBox(“请输入字符串 ”) Print pick_str(m) End Sub Private Function pickstr(s As String)As String temp=“”： i=1： sLen=Len(s) Do While i1 （ D） i=10 Do i=i-2 Loop Until i=1 5 以下能够正常结束循环操作的程序段是 （ A） i=5 Do i=i+1 Loop
3、Until i0 i=i一 2 Loop （ D） i=0 Do While i2 N=N+1： J=J+N*(N+1) Loop Print N： J End Sub 运行程序，单击窗体，输出结果是 （ A） 3 21 （ B） 3 7 （ C） 0 1 （ D） 3 13 8 有如下程序： Function funfByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(num) Do While num k=k*(hum Mod 10)： num=num 10 Loop fun=k End Function Private
4、 Sub Form Click() DimnAsInteger,rAs Integer n=InputBox(“请输入一个数： ”)： n=Int(n)： r=tim(n)： Print r End S （ A） 120 （ B） 48 （ C） 24 （ D） 60 9 下面程序的功能是输出 100以内所有素数： Privrate Sub Commandl Click() For n=2 T0 100 isprime=True： k=2 Do Untile kk 2 End Sub 程序运行后，单击命令按钮 Commandl，并输入数值 20，则输出结果为 （ A） 2 2 5 （ B） 2
5、 3 4 （ C） 2 3 4 5 （ D） 2 5 15 编写如下程序： Private Sub Command l Click() Dim a(3， 3)As Integer， b(3， 3)As Integer For i=l To 3 For j=1 To 3 a(i， j)=i+j： b(i， j)=a(i， j)+i*(j一 1) Next j Next i For i=1 To 3 For i=1 To 3 Print b(i， j)； Nextj Print Next i End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 2 3 4 3 4 5
6、4 5 6 （ B） 2 4 6 3 6 9 4 8 12 （ C） 3 5 7 5 8 11 7 11 15 （ D） 4 6 8 7 10 13 10 14 1 8 16 己知在 4行 3列的全局数组 score(4， 3)中存放了 4个学生 3门课程的考试成绩(均为整数 )。现需要计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command 1 Click() Dim sumAs Integer sum=0 For i=1 To4 Forj=1 To 3 sum=sum+seore(i， j) Nextj Print“第 ” i&个学生的总分
7、是： sum Next i End Sub 运行此程序时发现，除第 1个人的总分计算正确外，其他人的总分都是 （ A）把外层循环语句 For i=1 To 4改为 For i=1 To 3内层循环语句 Forj=1 To 3改为 For i=1To 4 （ B）把 slim=0移到 For i=l To 4和 ForJ=1 To 3之间 （ C）把 surrl=sulll+score(i， j)改为 sum=sum+score(j， i) （ D）把 $urrl=surrl+seore(i， j)改为 SUlll=score(i， j) 17 在窗体上画一个命令按钮和一个标签，其名称分别为 C
8、ommandl和 Labell，然后编写如下事件过程： Private Sub Command 1 Click() Counter=0 For i=1 To 4 For i=6 To 1 SteD-2 Counter=Counter+1 Nextj Next i Labell Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是 （ A） 11 （ B） 12 （ C） 16 （ D） 20 18 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim I Num Randomize D
9、o For 1=1 To 1000 Num=Int(Rnd*100)： Print Num； Select Case Num Cage 12 Exit For Case 58 Exit Do Case 65， 68， 92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是 （ A） Do循环执行的次数为 1000次 （ B）在 For循环中产生的随机数小于或等于 100 （ C）当所产生的随机数为 12时结束所有循环 （ D）当所产生的随机数为 65、 68或 92时窗体关闭、程序结束 19 运行如下程序 Private Sub Co
10、mmandl Click() Dim a(5， 5)As Integer For i=1 To 5 Forj=1 To 4 a(i， j)=i*2+j If a(i， j) 7=a(i， j) 7 Then n=n+1 End If Nextj Next Print n End Sub 则 n的值是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 20 命令按钮 Commandl的单击事件过程如下： Private Sub Commdl Click() Dim a(10， 10)As Integer x=0 For i=1 To 3 For j=1 To 3 a(i， j)ai 2 M
11、odj IfxSqr(i)Then Print i Next i End Sub 该程序的功能是 （ A）判断 n是否为素数 （ B）输出 n以内所有的奇数 （ C）输出 n以内所有的偶数 （ D）输出 n以内所有的素数 27 命令按钮 Commandl的事件过程如下： Private Sub Command 1 Click() Dim art(5， 5)As Integer Dim i As Integer,j As Integer For i=1 To 4 Forj=2 To 4 arr(i， j)=i+j Nextj Next i Print arr(1， 3)+art(3， 4) En
12、d Sub 执行上述过程，输出结果是 （ A） 6 （ B） 7 （ C） 1 1 （ D） 12 28 有如下程序： Private Sub Command 1 Click() Dim i As Integer,j As Integer， sum As Integer n=1 Do j=1 Do slim=sum+j： j=j+1 Printj； Loop Until j3 n=n+2 Loop Until n10 Print sum End Sub 运行上述程序，外层 Do循环执行的次数为 （ A） 4 （ B） 5 （ C） 7 （ D） 10 29 设有如下事件过程： Private
13、Sub Commandl Click() For i=1 To 5 j=1 Do Print“*”j=il Loop Until i=0 Next i End Sub 运行程序，输出 “*”的个数是 （ A） 5 （ B） 15 （ C） 20 （ D） 25 30 设有如下事件过程： Private Sub Commandl Click()Dim a a=Array(3， 5， 6， 3， 2， 6， 5 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x=0 n=UBound(a)For i=0 To n m=0 For i=0 To n If a(i)： a(j)Thell
14、m=m+1 End If Nextj Ifmx Then x=m： b=a(i) End If Next i Print b End Sub 运行程序，输出是 （ A） 2 （ B） 3 （ C） 5 （ D） 9 31 窗体上有一个名称 为 Commandl的命令按钮，其单击事件过程如下： Private Sub Command 1 Click() For i=3 To 1 Step1 Sum=0 Forj=1 To i Sum=Sum+i*j Next Next Print Sum End Sub 运行程序时，单击命令按钮，则窗体上显示的是 （ A） 1 （ B） 6 （ C） 18 （
15、D） 25 32 窗体上有一个名称为 Commandl的命令按钮，编写如下事件过程： Private Sub Commandl _Click() i=0 Do While i10 Print i=i+2 Loop End Sub 程序运行时输出字符 “*”的个数是 （ A） 50 （ B） 20 （ C） 16 （ D） 15 国家二级 VB机试（选择题）模拟试卷 185答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 本题的循环中将两个输入的数 x和 y互相相减，直到 x=y为止，实际上就是辗转相减法求最大公约数的过程。 【知识模块】 控制结构 2 【正确答案】 A 【试题解析】
16、本题的函数中使用了 Do循环，循环条件是 iSqr(i)不会输出 i的值；只有 i不能被任何一个 j整除的情况下才会输出 i的值，即判断 i是不是素数，只有素数才输出。 【知识模块】 控制结构 27 【正确答案】 C 【试题解析】 本题中首先在一个二重循环中给二维数组 aft的部分元素赋值，循环结束后输出两个数组元素的和，根据题意 alT(1， 3)+arr(3， 4)=4+7=11。 【知识模块】 控制结构 28 【正确答案】 B 【试题解析】 外循环的控制条件为 n10，即 n10的时候结束循环 ；在每次内循环中 j都会自加， j3的时候退出内循环，即每次外循环中内循环都会执行 3次；由于
17、内循环没有改变 n的值，而在外循环中 _n的值自加 2，所以外循环共循环 5次。 【知识模块】 控制结构 29 【正确答案】 B 【试题解析】 本题是一个三重循环，在内循环中输出， “*”，而在每次外循环中内循环的循环次数均为 i次，即共输出 1。 【知识模块】 控制结构 30 【正确答案】 B 【试题解析】 本题是一个二重循环，外循环从 0循环到 n，也就是遍历整个数组；在内循环中统计数组中和 a(i)相 同的数组元素的个数放到 m中，内循环结束后判断 m是不是比 x大，如果比 x大的话让 m成为新的 x，并且把当前数组元素放到 b中，其本质是求出重复次数最多的数字， x保存重复次数， b保
18、存该数字。 【知识模块】 控制结构 31 【正确答案】 A 【试题解析】 本题是一个简单的二重循环，只要注意到 i的值逐渐递减，而且在内循环执行之前都会重新将 Sum,的值设置为 0，不难得出只会输出最后一次外循环的 Sum值，由于此时 i=1，所以内循环只会执行一次，最终输出 1作为结果。 【知识模块】 控制结构 32 【正 确答案】 B 【试题解析】 本题是一个二重循环，最后输出的是内循环总共执行的次数 ,即1+2+3+4+5=15。 【知识模块】 控制结构 33 【正确答案】 D 【试题解析】 本题是用一个二重循环为二维数组赋值，只有满足下标 j=i或者j=3 i+1才将其设置为 1，否则设置为 0，如果写出这个二维数组可以看出，两个对角线的元素被设置成 1 【知识模块】 控制结构 34 【正确答案】 C 【试题解析】 本题是 _个二重循环，最终求星号的个数，实际上就是计算内循环总共执行了多少次 。 i=1的时候内循环执行 9次， i=3的时候内循环执行 7次， i=5的时候跳出循环，内循环共执行了 16次。 【知识模块】 控制结构
