若有如下Sub过程：Sub sfun(x As Single，y As Single)t=Xx=t／yy=t Mod YEnd Sub在窗体中添加一个命令按钮Command33，对应的事件过程如下：Private Sub Command33_Click()Dim a As SingleDim b As Singlea=5： b=4sfun a,bMsgBox a＆chr(10)+chr(13)&bEnd Sub打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为A．1和1B．1．25和1C．1．2

题目

若有如下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 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和1

B．1．25和1

C．1．25和4

D．5和4

相似考题

1.有如下SUB过程:Sub s(x As Single,y As Single)t=xx=t / yy=t Mod yEnd Sub在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Form_Click()Dim a As SingleDim b As Singlea=5b=4s a,bPrint a,bEnd Sub则程序运行后,单击命令按钮,输出的结果为【 】 。

2.编写如下通用过程： Sub Proc(x As Single,y As Single) t=x x＝t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a As Single Dim b As Single a＝5 b＝4 Proc a,b Print a,b End Sub 程序运行后，如果单击命令按钮，则输出结果为A．5 4B．1.25 1C．4 5D．1.25 5

3.假定有如下的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 &char(10A．1和1B． 1.25和1C． 1.25和4D． 5和4

4.有如下SUB过程：Sub s(x As Single，y As Single)t =xx=t / yY=t Mod yEnd Sub在窗体上添加一个命令按纽，然后编写如下事件过程：Private Sub Form_ Click()Dim a As SingleDim b As Singlea=5b=4s a，bPrint a，bEnd Sub则程序运行后，单击命令按纽，输出的结果为：【 】。

更多“若有如下Sub过程:Sub sfun(x As Single,y As Single)t=Xx=t／yy=t Mod YEnd Sub在窗体中添加一个 ”相关问题

  • 第1题：

    假定有如下的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。

  • 第2题：

    若有如下Sub过程： Subsfun(X As Single，y As Single) t=X x=t/Y y=t ModY End Sub 在窗体中添加一个命令按钮Command33，对应的事件过程如下： PrivateSub Command33 Click（ ） Dim a AsSingle Dim b AsSingle a=5：b=4 sfun(ab) MsgBoxa&chr(10)+chr(13)&b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为（ ）。

    A.1和1

    B.1．25和1

    C.1．25和4

    D.5和4


    正确答案：B
    此题考查函数的调用情况，其中先执行tmx，x=t／y=13／4=1．25，y=tmodY=13mod4=1，所以答案选择B。

  • 第3题：

    在程序设计中交换变量x和y的值，应使用的算法描述是（）。

    A．t←x y←x y←t

    B．x←y y←t t←x

    C．x←y y←x

    D．t←x x←y y←t


    t←x x←y y←t

  • 第4题：

    变量x，y都是single类型，它们的值分别为10.7和20.3，变量t是整型，执行下面语句后，x，y的值变为()。t=x：x=y：y=t

    A.10.7，20.3

    B.20.3，10.7

    C.20.3，11

    D.20，10.7


    本题答案：C

  • 第5题：

    试题33

    若有如下Sub过程：

    Sub sfun(x As Single , y As Single)

    t=x

    x=t/y

    y=t Mod y

    End Sub

    在窗口中添加一个命令按钮Command33，对应的事件过程如下：

    Private Sub Command32_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和1

    B．1.25和1

    C．1.25和4

    D．5和4


    正确答案：B
    试题33分析
    函数sfun的功能是将x/y的值赋给x，x对y求模的值赋给y，所以5/4=1.25，5mod4=1。
    试题33答案
    B

相关内容