若有如下Sub过程： Sub sfun(x As Single，y As Single) t=x x=t／y y=t Mod y End Sub 在窗体中添加一个命令按钮comrnand33，对应的事件过程如下： Pfivate Sub Command33

admin2015-12-15 49

问题若有如下Sub过程：
Sub sfun(x As Single，y As Single)
t=x
x=t／y
y=t Mod y
End Sub
在窗体中添加一个命令按钮comrnand33，对应的事件过程如下：
Pfivate Sub Command33_Click()
Dim aAs 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

解析由题意可知sfun函数实现求除数和求余数的功能，所以最终结果是1．25和1。

转载请注明原文地址:https://kaotiyun.com/show/vxgp777K

本试题收录于：二级Access题库NCRE全国计算机二级分类