在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: DimFlagAs Boolean Private Sub Command1_Click( ) Dim intNumAs Integer intNum=In

admin2018-09-29  28

问题 在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
    DimFlagAs Boolean
    Private Sub Command1_Click( )
    Dim intNumAs Integer
    intNum=InputBox("请输入:")
    If Flag Then
    Print f(intNum)
    End If
    End Sub
    Function f(X as Integer)As Integer
    If X<10 Then
    Y=X
    Else
    Y=X+10
    End If
    f=Y
    End Function
    Private Sub Form_MouseUp(Button As
    Integer,Shift As Integer,X as Single,Y AS Single)
    Flag=True
    End Sub
    运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为(    )。

选项 A、0
B、5
C、15
D、无任何输出

答案B

解析 本题考查If语句和函数过程的分析。函数过程f的功能是如果X小于10则返回X,否则返回X+10。窗体的Mouse[Jp事件是松开鼠标时触发的事件。程序运行后,单击窗体,则全局变量Flag的值为True,然后单击命令按钮,在输入对话框中输入5,执行If分支语句,调用f函数,由于5<10,因此输出X,即输出5。
转载请注明原文地址:https://kaotiyun.com/show/NQFp777K
0

随机试题
最新回复(0)