在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。A. 输出0B. 输出25C. 输出45D. 无任何输出
题目
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。
A. 输出0
B. 输出25
C. 输出45
D. 无任何输出
相似考题
更多“ 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。A. 输出0B. 输出25C. 输出45D. 无”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下时间过程（ ）。
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是A. 579
B. 123
C. 456
D. 123456
正确答案：D
D) 【解析】InputBox函数返回的是字符串格式的用户输入的数据，因此本题中，最后变a和变量b中存储的是字符串’456’和’123’，因此表达式b+a，就是将这两个字符串连接起来，称为字符串’123456’。
-
第2题：
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
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)
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 func(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为
A．输出0
B．输出25
C．输出45
D．无任何输出
正确答案：C
解析：本题考查的是鼠标事件,当压下鼠标左键(发生MouseDown时),SW的值为False,当松开鼠标左键(触发MouseUp时),SW的值为True。 -
第3题：
在窗体上有一个命令按钮，然后编如下事件过程：
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。
正确答案：
-1的平方根是一个虚数
【解析】在Sub过程中，定义了一个Double型变量N，并调用InputBox函数，给N赋值，即将从对话框中输入的-1赋给N；通过运算符”&”，将N与字符串”的平方根”连接起来并赋给Msg；在条件块语句中将N作为参数，调用SR事件过程，将Function过程的返回值作为测试表达式；在SR函数中，调用Sgn函数测试x的值为正数还是负数，如果是正数，那么就执行条件块语句中的SR=Sqr(x)，即将X的平方根作为返回值，如果x值为零，Sgn函数返回值为零，那么就将0作为返回值；如果为负数。Sgn函数返回值为-1，SR=-1，即将-1作为返回值；在Sub程序的条件块语句中，根据SR返回值的不同，执行不同操作，当返回值为0，将Msg字符串加”是0”，赋给Ms9，如果是-1，将Msg加”是一个虚数”赋给Msg，当为其他时，即在平方根时，将字符串Msg加”是”，再加上这个数的平方根赋给Msg，并用MsgBox函数输出。 -
第4题：
在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： 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) 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 Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
A．输出0
B．输出25
C．输出45
D．无任何输出
正确答案：C
解析：本题考查的是鼠标事件，当压下鼠标左键(发生MouseDown时)SW的值为False，当松开鼠标左键(触发MouseUp时)SW的值为True。 -
第5题：
在窗体上画一个名称为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．无任何输出
正确答案：D
解析：上述程序由一个通用过程和3个事件过程组成，在命令按钮事件过程中调用通用过程，并把一个参数传送给通用过程。这里要注意，只有在一定的条件下，才能调用通用过程，这个条件就是，窗体层的Boolean变量SW的值必须为True，否则不能调用。而为了使SW的值为True，必须执行Form_MouseUp事件过程，这只能通过单击窗体来实现。单击窗体时，单击鼠标左键执行Form_MouseDown事件过程，使得SW=False。松开鼠标后执行Form_MouseUp事件过程，使得SW=True。程序运行后，由于没有执行Form_MouseUp事件过程，直接单击命令按钮，因而SW的值为False，这样不会调用通用过程，也就不会输出任何信息。