itgle.com
（ 35 ） 在窗体中有一个名称为 run35 的命令按钮 ， 单击该按钮从键盘接收学生成绩 ， 如果输入的成绩不 在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮的 Click 的事件代码如下：Private Sub run35_Click( )Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val(InputBox(" 请输入学生成绩 :", " 输入 "))If result>=0
题目
（ 35 ） 在窗体中有一个名称为 run35 的命令按钮 ， 单击该按钮从键盘接收学生成绩 ， 如果输入的成绩不 在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮
的 Click 的事件代码如下：
Private Sub run35_Click( )
Dim flag As Boolcan
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
相似考题
更多“( 35 ) 在窗体中有一个名称为 run35 的命令按钮 , 单击该按钮从键盘接收学生成绩 , 如果输入的成 ”相关问题
-
第1题：
在窗体中有一个名称为run1的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run1命令按钮的Click的事件代码如下： Private Sub run1_Click() Dim flag As Boolcan 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
解析： 本题考查的是VBA编程基础、循环结构。Do…While…Loop循环结构是在条件式为真时，执行循环体，并持续到条件式结果为假或执行到Exit Do语句而退出循环。在题目要求的事件代码中“If result＞=0 And result=100 Then”就是判断输入的成绩是否在0到100分之间，而语句“Else MsgBox”成绩输入错误，请重新输入””则是对输入的成绩不在0到100分之间的情况进行处理，所以可以判断出，要求填空的部分应该是针对输入成绩正确的情况进行处理，即代码判断条件满足，退出循环。本题中选项A、B、D均可以使程序退出循环，而选项c则会使循环继续下去，成为死循环。 -
第2题：
在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在O～100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： PrivateSub run35_ClickDim flag As Boolcanresult=O flag=True Do Whileflag result=Val(InputBox(”请输入学生成绩：”，”输入”)) Ifresult>=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设置为False或者NOTFlag都可以退出循环，ExitDo语句当然也可以退出循环，但C选项则会造成死循环，不能退出。 -
第3题：
窗体中有一个名称为Button1的命令按钮，和一个Label1控件对象，编写如下事件过程：
程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是（）A3
B4
C5
D6
D
略 -
第4题：
某窗体中有一个命令按钮，在“窗体”视图中单击该命令按钮，可以运行另一个应用程序。如果通过调用宏对象来完成此功能，则需要执行的宏操作是（ ）。
A.RunApp
B.RunCode
C.RunMacro
D.RunSQL
正确答案：A
暂无解析，请参考用户分享笔记 -
第5题：
窗体中有一命令按钮，名称为Command1。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是______。
正确答案：Command1.FontBold＝true
Command1.FontBold＝true 解析：本题考查有关字体属性的知识。窗体中控件的字体由一些有关字体的属性控制，比如FontName(字体名)、FontSize(字体大小)、FontBold(加粗)、Fomltalic (倾斜)、FontUnderline(下划线)等。
程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是（）