2. 计算机
  3. 在窗体上画1个命令按钮，名称为Commandl，然后编写如下程序： Dim Flag As Boolean Private Sub Commandl Click() Dim intNum As Integer

在窗体上画1个命令按钮，名称为Commandl，然后编写如下程序： Dim Flag As Boolean Private Sub Commandl Click() Dim intNum As Integer

admin2012-09-07  78
问题 在窗体上画1个命令按钮，名称为Commandl，然后编写如下程序：
    Dim Flag As Boolean
    Private Sub Commandl Click()
        Dim intNum As Integer
        intNum=InputBox(“请输入：”)
        If Flag Then
           Print f(intNum)
        End If
    End Sub
    Function f(X as Integer)As Integer
        IfX<10 Then
          Y=X
        Else
          Y=X+10
        EndIf
        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。窗体的Mouseup事件足松开鼠标时触发的事件。程序运行后，单击窗体，则全局变量Flag的值为_True，然后单击命令按钮，在输入对话框中输入5，执行If分支语句，调用f函数，由于5<10，因此输出X，即输出5。
转载请注明原文地址:https://www.kaotiyun.com/show/6Chp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)