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

admin2017-03-31 26

问题若有如下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 aAs Single，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://jikaoti.com/ti/ru20FFFM

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