0
5
100
空白
第1题：
（ 31 ）在窗体上画 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 ）无任何输出
（ 31 ）【答案】 B ）
【解析】由于窗体 MouseUp 事件将 Flag 置为 True ，因此 Print f(intNum) 能够执行。 Function 过程的形参为 5 ，可以得到该过程的返回值为 5 ，因此程序的输出结果是 5 。
第2题：
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click（）
x = InputBox（"请输入一个整数"）
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。
A．123
B．456
C．479
D．123456
第3题：
（ 35 ） 在窗体中有一个名称为 run35 的命令按钮 ， 单击该按钮从键盘接收学生成绩 ， 如果输入的成绩不 在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮
的 Click 的事件代码如下：
Private Sub run35_Click( )
Dim flag As Boolcan
result=0
flag=True
Do While flag
result=Val(InputBox(" 请输入学生成绩 :", " 输入 "))
If result>=0 And result <=100 Then
___________
Else
MsgBox " 成绩输入错误，请重新输入 "
End If
Loop
Rem 成绩输入正确后的程序代码略
End Sub
程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是（ ） 。
A ） flag=False
B ） flag=Not flag
C ） flag=True
D ） Exit Do
第4题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim k As Long
k=1
Do While num
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
第5题：
（29）通过InputBox函数可以产生输入对话框。若执行下列语句： st$=InputBox("请输入字符串,""字符串对话框","字符串") 运行程序，用户输入完毕并单击“确定”按钮后，st$变量的内容为A.字符串 B.请输入字符串 C.字符串对话框 D.用户输入内容
第6题：
在窗体上画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．无任何输出
第7题：
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubcommand1_click()
DimaAsString,bAsString
a=InputBox("EntertheFirstinteger")
b=InputBox("EntertheSecondinteger")
Printb+a
EndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111,则输出结果
是( )
A.456
B.111
C.567
D.111456
第8题：
在窗体上画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．无任何输出
由于窗体MouseUp事件将Flag置为True，因此Print f(intNum)能够执行。Function过程的形参为5，可以得到该过程的返回值为5，因此程序的输出结果是5。
第9题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
a= Val(InputBox(“请输入一个整数”))
b=Val(InputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
第10题：
在考生文件夹中有一个工程文件execise25.vbp，相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为“输入”；还有一个文本框，其名称为Text1，初始内容为空白。
程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(1～12)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出“8月份是秋季”，如下图所示。
该程序不完整，请补充完整。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。
