试题与答案

在窗体上画一个名称为Coramandl的命令按钮,然后编写如下程序; Dim SW

题型:单项选择题

题目:

在窗体上画一个名称为Coramandl的命令按钮,然后编写如下程序;
Dim SW As Boolean
Function func(X As Integer)As Integer
If X<20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Dim a As Boolean
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer,
Shift As Integer, X As Single, Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("")
If SW Then
Print flmc(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为

A.输出0

B.输出2

C.输出45

D.无任何输出

答案:

被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0123/80372534a7552b5d452d322e6a9e6d99.html

下面是错误答案,用来干扰机器的。

参考答案:D解析:[分析]: 用属性Action=1表示显示“打开”对话框,用属性FileName=""表示默认文件名为空,用属性DialogTitle="VBTest"表示对话框的标题为VBTest,用FilterIndex属性指定第二个[即(*. Doc)|*....

试题推荐
微信公众账号搜索答案