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  55
问题 在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
    Dim Flag As Boolean
    Private Sub Command1_Click()
    Dim intNum As Integer
    intNum=InputBox("请输入：")
    IfFlag Then
    Print f(intNum)
    End If
    End Sub
    Function f(X as Integer)As Integer
    IfX＜10 Then
    Y=X
    Else
    Y=X+10
    End If
    f=Y
    End Function
    Private Sub Form_MouselJp(Button As Integer,ShiR 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/cjTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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