niusouti.com

在窗体中添加命令按钮cmd,并编写如下程序:Funtion panduan(x As Integer,y As Integer) As Integerpanduan=IIF(x>y,x,y)End FunctionPrivate Sub cmd_click()Dim a As Integer,b As Integera=4b=7MsgBox panduan( a, b)End Sub打开窗体单击命令按钮,消息框中输出的结果为【 】。

题目

在窗体中添加命令按钮cmd,并编写如下程序:

Funtion panduan(x As Integer,y As Integer) As Integer

panduan=IIF(x>y,x,y)

End Function

Private Sub cmd_click()

Dim a As Integer,b As Integer

a=4

b=7

MsgBox panduan( a, b)

End Sub

打开窗体单击命令按钮,消息框中输出的结果为【 】。


相似考题
更多“在窗体中添加命令按钮cmd,并编写如下程序:Funtion panduan(x As Integer,y As Integer) As Integ ”相关问题
  • 第1题:

    在窗体中添加一个命令按钮,并编写如下程序: Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后,输出的结果是______。

    A.3

    B.0

    C.2

    D.1


    正确答案:C

  • 第2题:

    在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:

    Function m(x as Integer,y as Integer) as Integer

    m=IIf(x>y,x,y)

    End Function

    Private Sub Commandl Click()

    Dim a as Integer,b as Integer

    a=1

    b=2

    MsgBox m(a,B)

    End Sub

    打开窗体运行后,单击命令按钮,消息框的输出结果为【 】。


    正确答案:2
    2 解析:本题考查考生VBA程序设计的能力。在本题中,考生应该掌握IIF条件接口。题目中调用函数m(x,y),并将a的值传给x,将b的值传给y,因此x=1,y=2。对于函数IIf(x>y,x,y)来说,其功能是当x>y为真时返回x的值,当 x>y为假时返回y的值。在本题中,因为x>y为假,因此应该返回y的值,即返回2。

  • 第3题:

    在窗体中添加一个命令按钮Command1,并编写如下程序: Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 < 9 Then y = 1 / x If x ^ 2 > 9 Then y = x ^ 2 + 1 Print y End Sub 程序运行时,单击命令按钮,在InputBox中输入3,然后单击“确定”按钮,程序的运行结果为()。

    A.3

    B.0.33

    C.17

    D.0.25


    C

  • 第4题:

    在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Functionfun(xAsInteger)Staticzy=y+1:z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序运行后,如果单击命令按钮,窗体中显示的内容是( )

    A、33

    B.34

    C.3

    D.3


    正确答案:D

  • 第5题:

    在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序:

    窗体打开运行后,单击命令按钮,则消息框的输出结果为__________。


    正确答案:
    2500【解析】本题考查循环的知识。这个问题比较简单,实际上就是求l到100之间的奇数和,最终结果为2500。