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

admin2016-08-26  32

问题 若有如下sub过程:
Sub sfun(x As Single,Y As Single)
    t=X
    x=t/y
    y=t Mod Y
    End Sub
  在窗体中添加一个命令按钮command33,对应的事件过程如下:
    Private Sub Command3 3_Click()
    Dim a As Single
    Dim b As Single
    a=5:b=4
    sfun(a,b)
    MsgBox a&chr(10)+chr(1 3)&b
    End Sub
  打开窗体运行后,单击命令按钮,消息框中有两行输出,内容分别为

选项 A、1和1
B、1.25和1
C、1.25和4
D、5和4

答案B

解析 由题意可知sfum函数实现求除数和求余数的功能,所以最终结果是1.25和1。
转载请注明原文地址:https://jikaoti.com/ti/Jw20FFFM
0

随机试题
最新回复(0)