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