窗体中有一个名为 run 的命令按钮, 单击该按钮从键盘接收学生成绩, 如果输入的成绩不在0 到 100 分之间, 则要求重新输入; 如果输入的成绩正确, 则进入后续处理。 run 命令按钮的 Click 的事件代码如下:
Private Sub run_Click()
Dim flag As Boolean
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
为实现程序的功能, 程序[ ]处不能填写的语句是
本题中的空白处实现的功能是结束循环, 根据循环条件可知, 无论是把 flag设置为: False 或 Not Flag 都可以退出循环, Exit 语句当然也可以退出循环, 但是 A 选项会造成死循环, 故本题选 A 选项。