[计算机类试卷]国家二级VB机试(选择题)模拟试卷155及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷155及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷155及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 155及答案与解析 一、选择题 1 在窗体上画 1个命令按钮,并编写如下事件过程: Private Sub Command 1_ Click() Dim a(3, 3) FOr m=1 To 3 For n=1 To 3 Ifn=m Or n=4-m Then a(m, n)=m+n Else a(m, n)=0 End If Prim a(m, n); Next n Print Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为 ( A) 2 0 0 0 4 0 0 0 6 ( B) 2 0 4 0 4 0 4 0 6 ( C) 2
2、 3 0 3 4 0 0 0 6 ( D) 2 0 0 0 4 5 0 5 6 2 编写如下程序: Private Sub Command 1 Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(“请输入一个正整数: ”) k=num n=2 Do Do While num Mod n=0 Print n: num=num n Loop n=n+1: Loop Until nk 2 End Sub 程序运行后,单击命令按钮 Commandl,并输入数值 20,则输出结果为 ( A) 2 2 5 ( B) 2 3 4
3、 ( C) 2 3 4 5 ( D) 2 5 3 编写如下程序: Private Sub Command 1 Click() Dim a(3, 3)As Integer, b(3, 3)As Integer For i=1 To 3 For i=1 To 3 a(i, J)=i+j: b(i, j)=a(i, j)+i*(j1) Next i Next i For i=1 To 3 For i=1 To 3 Print b(i, j); Next i Print Next i End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( A) 2 3 4 3 4 5 4 5 6
4、( B) 2 4 6 3 6 9 4 8 12 ( C) 3 5 7 5 8 1 1 7 1 1 15 ( D) 4 6 8 7 10 13 10 14 1 8 4 已知在 4行 3列的全局数组 score(4, 3)中存放了 4个学生 3门课程的考试成绩(均为整数 )。现需要计算每个学生的总 分,某人编写程序如下: Option Base 1 Private Sub Command 1 Click() Dim sim As Integer sum=0 For i=1 To 4 Forj=1 To 3 SUln=sum+score(i, j) Nextj Print“第 ”&i&”个学生的总分
5、是: “sum Next i End Sub 运行此程序时发现,除第 1个人的总分计算正确外,其他人 ( A)把外层循环语句 For i=1 To 4改为 For i=1 To 3内层循环语句 Forj=1 To 3改为 Fox j=1 To 4 ( B)把 sum=0移到 For i=1 To 4和 Forj=1 To 3之间 ( C)把 sum=sum+score(i, j)改为 sum=sum+score(j, i) ( D)把 sum=sum+seore(i, j)改为 sum=seore(i, j) 5 在窗体上画一个命令按钮和一个标签,其名称分别为 Commandl和 Labell
6、,然后编写如下事件过程: Private Sub Commandl _Click( Counter=0 For i=1 To 4 For i=6 To 1 Step-2 Counter=Counter+1 Nextj Next i Labell Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是 ( A) 11 ( B) 12 ( C) 16 ( D) 20 6 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim 1, Nm Randomize Do FOr I=1 To 1000
7、 Num=Int(Rnd*100): Print Num; Select Case Num Case 12 Exit For Case 58 Exit Do Case 65, 68, 92 End End Select Next 1 Loop End Sub 上述事件过程执行后,下列描述中正确的是 ( A) Do循环执行的次数为 1000次 ( B)在 For循环中产生的随机数小于或等于 100 ( C)当所产生的随机数为 12时结束所有循环 ( D)当所产生的随机数为 65、 68或 92时窗体关闭、程序结束 7 运行如下程序 Private Sub Command l Click() Di
8、m a(5, 5)As Integer For i=1 T0 5 For j=1 To 4 a(i, j)=i*2+j Ifa(i, j) 7=a(i, j) 7 Then n=n+1 End If Nextj Next Prim n End Sub 则 n的值是 ( A) 2 ( B) 3 ( C) 4 ( D) 5 8 命令按钮 Command1的单击事件过程如下: Private Sub Command1 Click() Dim a(10, 10)As Integer x=0 For i=1 To 3 Forj=1 To 3 a(i, j)=i*2 Modj IfxSqr(i)Then
9、Print i Next i End Sub 该程序的功能是 ( A)判断 n是否为素数 ( B)输出 n以内所有的奇数 ( C)输出 n以内所有的偶数 ( D)输出 n以内所有的素数 15 命令按钮 Commandl的事件过程如下: Private Sub Command 1 Click() Dim arr(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 Next j Next i Print arr(1, 3)+arr(3, 4) End Sub 执行上述过程,输出结果
10、是 ( A) 6 ( B) 7 ( C) 11 ( D) 12 16 有如下程序: Private Sub Command 1 Click() Dim i As Integer,j As Integer, sum As Integer n=1 Do j=1 Do sum=sum+j: j=j+1 Print j; Loop Until j3 n=n+2 Loop Until 1310 Print sum End Sub 运行上述程序,外层 Do循环执行的次数为 ( A) 4 ( B) 5 ( C) 7 ( D) 10 17 设有如下事件过程: Private Sub Command 1 Cli
11、ck() For i=1 To 5 j=1 Do Print“*”i=i-1 Loop Until j=0 Next i End Sub 运行程序,输出 “*”的个数是 ( A) 5 ( B) 15 ( C) 20 ( D) 25 18 设有如下事件过程: Private Sub Command 1 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)Then m=m+1 End If N
12、ext i Ifmx Then x=m: b=a(i) End If Next i Printb End Sub 运行程序,输 出是 ( A) 2 ( B) 3 ( C) 5 ( D) 9 19 窗体上有一个名称为 Commandl的命令按钮,其单击事件过程如下: Private Sub Command 1 Click() For i=3 To 1 Step-1 Sum=0 For i=1 To i Sum=Sum+i*i Next Next Print Sum End Sub 运行程序时,单击命令按钮,则窗体上显示的是 ( A) 1 ( B) 6 ( C) 1 8 ( D) 25 20 窗体
13、上有一个名称为 Command1的命令按钮,编写如下 事件过程: Private Sub C0mmand1 Click() i=0 Do While i10 Print i=i+2 Loop End Sub 程序运行时输出字符 “*”的个数是 ( A) 50 ( B) 20 ( C) 16 ( D) 15 23 语句 Dim a(-3 To 4, 3 To 6)As Integer定义的数组的元素个数是 ( A) 1 8 ( B) 28 ( C) 21 ( D) 32 24 下面正确使用动态数组的是 ( A) Dim arr() As Integer . ReDim art(3, 5) ( B
14、) Dim arr() As Integer . ReDim art(50)As String ( C) Dim arr() . ReDim art(50)As Integer ( D) Dim art(50)As Integer . ReDim art(20) 25 设有如下数组定义语句: Dim a(一 1 To 4, 3)As Integer以下叙述中正确的是 ( A) a数组有 18个数组元素 ( B) a数组有 20个数组元素 ( C) a数组有 24个数组元素 ( D)语法有错 26 语句 DimArr(-2 To 4)As Integer所定义的数组的元素个数为 ( A) 7个
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 155 答案 解析 DOC
