时间:2012-06-03 20:37:46
(30) 下列不属于VBA函数的是
A) Choose B) If C) IIf D) Switch
(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
(32) 窗体中有命令按钮Command32,其Click事件代码如下。该事件的完整功能是:接受从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。
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
程序空白处应该填入的表达式是
A) num > i B) i < max C) num>max D) num<max
(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
打开窗体运行后,