模块及VBA程序设计.ppt

二级ACCESS—模块与VBA 过关练习 【2011.9】（29）可以用InputBox函数产生“输入对话框”。执行语句： st = InputBox(“请输入字符串”,”字符串对话框”,”aaaa”) 当用户输入字符串“bbbb”，按OK按钮后，变量st的内容是【 】 A) aaaa B)请输入字符串 C)字符串对话框 D)bbbb 【2011.9】 （30）下列不属于VBA函数的是【 】 A)Choose B)If C)IIf D)Switch D B 二级ACCESS—模块与VBA 过关练习 【2011.9】（31）若有以下窗体单击事件过程： Private Sub Form_Click() result = 1 For i = 1 To 6 Step 3 result = result * i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是【 】 A)1 B)4 C)15 D)120 B 二级ACCESS—模块与VBA 过关练习 Private Sub Command32_Click() max = 0 max_n = 0 For i = 1 To 10 num = Val(InputBox(“请输入第”i”个大于0的整数：”)) if Then max = num max_n = i End If Next i MsgBox(“最大值为第”max_n”个输入的”max) End Sub 【2011.9】（32）窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置： 程序空白处应该填入的表达式是【 】 A) num i B)i max C) num max D) num max C 二级ACCESS—模块与VBA 过关练习 　 【2011.9】（33）若有如下Sub过程： Sub sfun ( x As Single, y As Single ) t = x x = t / y y = t Mod y End Sub 往窗体中添加一个命令按钮Command33，对应的事件过程如下： Private Sub Command33_Click() Dim a As Single Dim b As Single a = 5 : b = 4 sfun( a, b ) MsgBox a chr(10) + chr (13) b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为【 】 A) 1和1 B)1.25和1 C)1.25和4 D)5和4 B 二级ACCESS—模块与VBA 过关练习 【2011.9】（34）运行下列程序，显示的结果是【 】 Private Sub Command34_Click() i = 0 Do i = i + 1 Loop While i 10 MsgBox i End Sub A) 0 B) 1 C) 10 D)11 C 二级ACCESS—模块与VBA 过关练习 【2011.9】（35）运行下列程序，在立即窗口显示的结果是【 】 Private Sub Command0_Click() Dim I As Integer, J As Integer For I = 2 To 10 For J = 2 To I/2 If I mod J = 0 Then Exit For Next J If J sqr(I) Then Debug.Print I; Next I End Sub A) 1 5 7 9 B)4 6 8 C) 3 5 7 9