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

admin2021-09-06  26

问题 窗体中有一个名为run的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续处理。run命令按钮的Click的事件代码如下:
    Private Sub run_Click()
    Dim flag As Boolean
    result =0
    flag=True
    Do While fiag
    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://kaotiyun.com/show/IPvp777K
0

最新回复(0)