在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func（X As Integer） As IntegerIf X < 20 ThenY = XElseY = 20 + XEnd Iffunc = YEnd FunctionPrivate Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）SW = FalseE
题目
在窗体上画一个名称为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．无任何输出
相似考题
更多“在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc( ”相关问题
-
第1题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在面体上显示的内容是（ ）。
正确答案：A
A) 【解析】本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String 函数产生i个“Hello”中的第一个字符H。
-
第2题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Cilck()
End Sub
运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。
正确答案：hardware
hardware -
第3题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
正确答案：
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。 -
第4题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．
B．H
C．
D．
正确答案：A
【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。 -
第5题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3，a＄) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．VVV
B．Vis
C．sic
D．11
正确答案：A
解析：String返回n个字符。如果为字符串，则返回n个字符串的首字符。返回3个"VisualBasic”的首字母“V”。 -
第6题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（）
a = 12345
Print Format$（a, "000.00"）
End Sub
程序运行后，单击命令按钮，窗体上显示的是（ ）。
A．123.45
B．12345.00
C．12345
D．00123.45
正确答案：B