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

admin2013-04-11  26

问题 在窗体上画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

解析 单击窗体在释放鼠标时,将会触发Form_MouseUp事件,将Flag值置True,从而允许输出。在Command1的Click事件中,通过输入框输入5,并在窗体上输出f(5),函数f的作用是,如果自变量x<10,则直接返回 x,否则返回x+10。故本题应输出5。
转载请注明原文地址:https://kaotiyun.com/show/uOhp777K
0

最新回复(0)