在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0~100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。run35命令按钮的Click的事件代码如下: Private Sub run35Click

admin2020-06-06  61

问题 在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0~100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。run35命令按钮的Click的事件代码如下:
Private Sub run35Click()
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 = False
B、flag = Not flag
C、flag = True
D、Exit Do

答案C

解析 根据题目要求,当输入正确的成绩后,进入后续的程序处理,Flag初始为True,进入Do While循环,循环条件为Flag,当输入错误的成绩时,提示信息并不改变Flag标记,即还为True,继续进行循环;当输入正确成绩时,应将flag标记为False 或退出循环Exit Do,这样才可以跳出循环,继续后续的程序处理,否则将一直停留在循环里,因此错误的为C)选项,当输入正确的成绩时进入死循环。
转载请注明原文地址:https://jikaoti.com/ti/juo0FFFM
0

最新回复(0)