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

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

admin2020-02-27  36
问题 在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
    Dim Flag As Boolean
    Private Sub Command1 Click()
    Dim intNum As 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。窗体的MouseUp事件是松开鼠标时触发的事件。程序运行后，单击窗体，则全局变量Flag的值为True，然后单击命令按钮，在输入对话框中输入5，执行If分支语句，调用f函数，由于5＜10，因此输出X，即输出5。
转载请注明原文地址:https://kaotiyun.com/show/2VTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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