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

在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入：")

admin2019-03-14  38
问题 在窗体上画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＜10Then
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的值为Tree，然后单击命令按钮，在输入对话框中输入5，执行If分支语句，调用f函数，由于5＜10，因此输出X，即输出5。
转载请注明原文地址:https://www.kaotiyun.com/show/aZFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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