A-A+

假定有如下的Sub过程： sub sfun(x As Single y As Single

2022-08-05 21:30:08 问答库阅读 172 次

问题详情

假定有如下的Sub过程： sub sfun(x As Single, y As Single． t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Command1．，然后编写如下事件过程： Private Sub Command1_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和1m
B.1.25和1
C.1.25和4
D.5和4请帮忙给出正确答案和分析，谢谢！

参考答案

正确答案：B
【解析】此题中设定了一个sfun(．函数，进行除法运算和求模运算，为命令按钮(名为Command1．编写事件，定义两变量a=5，b=4;调用此函数传递a，b的值给x，y进行运算，t=x=5,y=4;x=t/y=5/4=1.25(除法运算．;y=tMody=5mod4=1(求模运算．。所以本题答案为B。