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

admin2009-08-25  44

问题 在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在。到100分之间,则要求重新输入:如果输入的成绩正确,则进入后续程序处理。run35命令按钮的Click的事件代码如下:    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        Rem  成绩输入正确后的程序代码略    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到100分之间的情况进行处理,所以可以判断出,要求填空的部分应该是针对输入成绩正确的情况进行处理,即代码判断条件满足,退出循环。本题中A、B、D三个选项均可以使程序退出循环,而C选项,则会使循环继续下去,成为死循环。
转载请注明原文地址:https://kaotiyun.com/show/2bwp777K
0

最新回复(0)