窗体中有一个名为run的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100之间,则要求重薪输入;如果输入的成绩正确,则进入后续处理。run命令按钮的Click的时间代码如下: Private Sub run_Click( ) Dim

admin2017-11-19  63

问题 窗体中有一个名为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
为实现程序的功能,程序【】处不能填写的语句是(     )。

选项 A、flag=True
B、flag=False
C、flag=Not flag
D、Exit Do

答案A

解析 本题中的空白处实现的功能是结束循环,根据循环条件可知,无论是把flag设置为False或Not Flag都可以退出循环,Exit语句当然也可以退出循环,但是A)选项会造成死循环,故A)选项正确。
转载请注明原文地址:https://jikaoti.com/ti/cuXiFFFM
0

相关试题推荐
最新回复(0)