1、国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 15及答案与解析 一、选择题 1 下列四种形式的循环设计中 ,循环次数最少的是 （ A） a=5： b=8 Do A=a+1 Loop While ab a=a+1 Loop 2 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35 Enter() Dim num As Integer， a As Integer Dim bAs Integer,iAs Integer For i=l T0 10 num=InputBox(“请输入数据： ”， “输入 ”， 1) If Int(num 2
2、)=num 2 Then a=a+1 Else B=b+1 End If Next i MsgBox(“运行结果： a=”&Str(a)&： “， b=”&Str(b) End Sub 运行以上事件所完成的功能是 （ A）对输入的 10个数据求累加和 （ B）对输入的 10个数据求各自的余数，然后再进行累加 （ C）对输入的 10个数据分别统计有几个是整数，有几个是非整数 （ D）对输入的 10个数据分别统计有几个是奇数，有几个是偶数 3 在 VBA中，错误的循环结构是 （ A） Do While条件式 循环体 Loop （ B） Do Until条件式 循 环体 Loop （ C） Do U
3、ntil 循环体 Loop条件式 （ D） Do 循环体 Loop While条件式 4 在窗体中有一个命令按钮 (名称为 run34)，对应的事件代码如下： Priate Sub run34 Click() sum=0 For i=10 To 1 Step-2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是 （ A） 10 （ B） 30 （ C） 55 （ D）其他结果 5 在窗体中有一个名称为 run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程
4、序处理。 run35命令按钮的 Click 的事件代码如下： Private Sub run35 Click() Dim flag As Boolcan result=0 ： flag=True Do While flag result=Val(InputBox(“请输入学生成绩 “输入 ”) If result=O And result7 8 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl Click() MsgBox f(24， 18) End Sub Public Function f(m As Integer， n
5、As Integer)As Integer Do While mon Do While mn m=mn Loop Do While mi （ B） imax （ D） num=7。 【知识模块】 模块与 VBA编程基础 8 【正确答案】 C 【试题解析】 本题考查 VBA程序设计的知识。当调用函数时，形参 m=24，n=18；然后进入循环，由于 mn，所以执行 m=m-n， m的值变为 6；第 2次循环时由于 m=0时， to前数字要小于后面数字，否则将不执行。本题中 to前数字是 10大于后面数字 l则不执行此循环体，直接跳过。 【知识模块】 模块与 VBA编程基础 23 【正确答案】 D 【试题解析】 Do WhileLoop 循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。 【知识模块】 模块与 VBA编程基础 24 【正确答案】 A 【试题解析】 Do UntilLoop 循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。本题中循环条件是 y=0max时，才能实现将最大值查找出来，并记录其位置。 【知识模块】 模块与 VBA编程基础
