admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：google翻译不能用)

国家二级ACCESS机试选择题（模块与VBA编程基础）模拟

试卷15

(总分56,考试时间90分钟)

1. 选择题

1. 下列四种形式的循环设计中,循环次数最少的是

A. a=5：b=8 Do A=a+1 Loop While a

B. a=5：b=8 Do a=a+1 Loop Until a

C. a=5：b=8 Do Until a

D. a=5：b=8 Do Until a>b 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)=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 Until 循环体 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分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。

run35命令按钮的Click 的事件代码如下： Private Sub run35 Click() Dim flag As

Boolcan result=0 ： flag=True Do While flag result=Val(InputBox(“请输入学生

成绩．“输入”)) If result>=O And result<=1 00 Then ________________ Else

MsgBOX “成绩输入错误，请重新输入” End If Loop Rem 成绩输入正确后的

程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下

列选项中错误的语句是

A. flag=False B. flag=Not flag

C. flag=True D. Exit Do

6. 下列四个选项中，不是VBA的条件函数的是

A. Choose B. If

C. IIf D. Switch

7. 设有如下过程： x=1 Do x=x+2 Loop Until 运行程序，要求循环体执

行3次后结束循环，空白处应填入的语句是

A. x<=7 B. x<7

C. x=7 D. x>7

8. 在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Private

Sub Commandl Click() MsgBox f(24，18) End Sub Public Function f(m As

Integer，n As Integer)As Integer Do While mon Do While m>n m=m—n Loop

Do While m

后，单击命令按钮，则消息框的输出结果是

A. 2 B. 4

C. 6 D. 8

9. 在窗体中有一个文本框Text1，编写事件代码如下： +Private Sub Form Click()

X--val(Inputbox(“输入X的值”)) Y=1 IfX00 ThenY=2 Text1,Value=Y End Sub

打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是

A. 1 B. 2

C. 3 D. 4

10. 在窗体中有一个命令按钮Commandl和一个文本框Text1，编写事件代码如下：

Private Sub Commandl Click() ForI=1 To 4 x=3 For j=1 To 3 F0f k=1 To 2

x=x+3 Next k Nexti Next1 Text1．value=Str(x) End Sub 打开窗体运行

后，单击命令按钮，文本框Text1输出的结果是

A. 6 B. 12

C. 18 D. 21

11. 在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Commandl

Click() Dim S As Integer S-P(1)+P(2)+P(3)+P(4) debug．Print S End Sub

Public Function P(N AS Integer) Dim Sum As Integer Sum=0 For i=t To N

Sum=SuIn+i Next i P=SumEnd Function 打开窗体运行后，单击命令按钮，输出结

果是

A. 15 B. 20

C. 25 D. 35

12. 由“For i=1 To 9 Step-3”决定的循环结构，其循环体将被执行

A. 0次 B. 1次

C. 4次 D. 5次

13. 在窗体上有一个命令按钮Commandl和一个文本框Text1，编写事件代码如下 Private

Sub Commandl_Click() Dim i，j,x For i=1 To 20 sep 2 x=0 Forj=i To 20 step 3

x=x+1 Nextj Next i Text1．Value=Str(x) End Sub 打开窗体运行后，单击

命令按钮，文本框中显示的结果是

A. 1 B. 7

C. 17 D. 400


本文标签： 输入 循环 按钮 命令 事件

版权声明：本文标题：国家二级ACCESS机试选择题模块与VBA编程基础模拟试卷15_真题-无答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711482831a596330.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。