试题33
若有如下Sub过程：
Sub sfun(x As Single , y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗口中添加一个命令按钮Command33，对应的事件过程如下：
Private Sub Command32_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

A.1和1
B.1.25和1
C.1.25和4
D.5和4

【参考答案】

B
试题33分析
函数sfun的功能是将x/y的值赋给x，x对y求模的值赋给y，所以5/4=1.25，5......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)