Sub sfun ( x As Single , y As Single )
t=x
x=t/y
y=t Mod y
E.nd Sub
在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:
Private Sub Command1_Click()
D.im a as single
D.im b as single
a=5
b=4
sfun a , b
MsgBox a & chr ( 10 ) +chr ( 13 ) & b
E.nd Sub
打开窗体运行后,单击命令按钮,消息框的两行输出内容分别为
A. ) 1 和 1
B. ) 1.25 和 1
C. ) 1.25 和 4
D. ) 5 和 4