在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim
问题:
[单选]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
DimSWAsBoolean
Functionfunc(XAsInteger)AsInteger
IfX<20Then
Y=X
Else
Y=20+X
EndIf
func=Y
EndFunction
PrivateSubForm_MouseDown(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
SW=False
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
SW=True
EndSub
PrivateSubCommand1_Click()
DimintNumAsInteger
intNum=InputBox(””)
IfSWThen
Printfunc(intNum)
EndIf
EndSub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为()。A.输出0
B.输出25
C.输出45
D.无任何输出
参考答案:D
参考解析:
调用func(inNum)的返回值为45。当鼠标在单击命令按钮前,SW默认值为False,当单击窗体,也就是按顺序调用Form_MouseDown()和Form_MouseUp后SW的值才为True。所以在只是单击按钮,输入25的情况下,SW的值为False,并不打印结果,故程序无任何输出。
【教育知识】栏目