ACCESS数据库VBA循环和分支结构练习题

第六章VBA循环和分支结果练习
1.执行下面程序,写出S的值_________ n的值___________ S=0
For n=1 to 15
If int(n/3)=n/3 then
S=s+n
Endif
Next
Debug.print s,n
2.程序运行结束后，s的值是____ ，j的值是_______。

s=0
p=1
j=1
do while j<=10
if j mod 3=0 then
p=p*j
else
s=s+p
endif
j=j+1
loop
debug.print j,s
3.假定有以下程序段
n=0
for i=1 to 3
for j= -4 to -1
n=n+1
next j
next i
运行完毕后，n的值是（）
A）0 B）3 C）4 D）12
4.打开窗体运行后，单击窗体，则消息框的输出内容是（）Private Sub Form_Click( )
a = 1
For i = 1 To 3
Select Case i
Case 1, 3
a = a + 1
Case 2, 4
a = a + 2
End Select
Next i
MsgBox a
End Sub
5.在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是
A．7
B．15
C．157
D．538
6.设有如下代码：
x=1
do
x=x+2
loop until ______________
运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。

7.窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。

以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。

如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。

按照功能要求，将程序补充完整。

Private Sub cmdTest_Click()
Answer= _________________（“隐藏按钮”，vbOKCancel）
If Answer=vbOK Then
cmdDisplay.Visible= ______________________
Else
Docmd.Close
End If
End Sub
8.在窗体上画一个命令按钮（名称为command1）和一个文本框（名称为text1），然后编写如下事件过程：
Private sub command1_click()
Me.text1.setfocus
X=val(text1.text) ‘text属性表示文本框获得焦点后的值，等同于value属性
Select case x
Case 1,3
Y=x*x
Case is>=10,is<=-10
Y=x
Case -10 to 10
Y= -x
End select
End sub
在文本框输入3，然后单击命令按钮，变量y的值变为______。

9.VBA中定义符号常量可以用关键字
A)Const B)Dim C)Public D)Static
10.定义了二维数组A(2 to 5，5)，则该数组的元素个数为
A)25 B)36 C)20 D)24
11.已知程序段：
s=0
For i=1 To 10 step 2
s=s+1
i=i*2
Next i
当循环结束后，变量i的值为a，变量s的值为b。

A)10 B)11 C)22 D)16
A)3 B)4 C)5 D)6
12.在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是
A)快速监视窗口B)监视窗口C)立即窗口D)本地窗口
13.阅读程序，MSGBOX一共弹出了几次消息（）
Sub test()
For i = 1 To 10 Step -2
MsgBox i
Next
End Sub
A)0 B)1 C)2 D)报错
14.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
For i = 1 To 10
i = i + 2
MsgBox i
Next
End Sub
A)0 B)2 C)4 D)报错
15.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
For i = 1 To 10
If i = 2 Then Exit For
MsgBox i
Next
End Sub
A)0 B)1 C)2 D)3
16.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
For i = 5 To 1
MsgBox i
Next
End Sub
A)0 B)2 C)4 D)报错
17.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
i = 2
Do
MsgBox i
Loop While i < 3
End Sub
A)1 B)2 C)无限次D)报错
18.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
i = 4
Do
MsgBox i
Loop While i < 3
End Sub
A)1 B)2 C)无限次D)报错。