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)报错