问题
单项选择题
Private Sub run35_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
Rein 成绩输入正确后的程序代码略
End Sub
程序中的白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是( )。
A) flag=False
B) flag=Not flag
C) flag=True
D) Exit Do
答案
参考答案：C
解析： Do…While…Loop循环结构是在条件式为真时，执行循环体，并持续到条件式结果为假或执行到Exit Do语句而退出循环。
通过题面要求，事件代码中“If result＞=0 And result＜=100 Then”就是判断输入的成绩是否在0～100分之间，而“Else MsgBox "成绩输入错误，请重新输入"”则是对输入的成绩不在0～10。分之间的情况进行处理，所以可以判断出，要求填空的部分应该是针对输入成绩正确的情况进行处理，即代码判断条件满足，退出循环。本题中A)、B)、D)三个选项均可以使程序退出循环，而C)选项，则会使循环继续下去，成为死循环。所以本题答案为C)。