itgle.com

翻在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下。 Private Sub run35_Click（ ） Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val（InputBox（"请输入学生成绩："，"输入"））Ifresult&gt；=0 And result&lt；=100 The

题目

翻在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下。 Private Sub run35_Click（ ） Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val（InputBox（"请输入学生成绩："，"输入"））Ifresult>；=0 And result<；=100 ThenElseMsgBox”成绩输入错误，请重新输入”EndIfLoopRem。成绩输入正确后的程序代码略 End Sub程序中有一空白处，需要填人一条语句使程序完成其功能。下列选项中错误的语句是（ ）。【考点4 VBA流程控制语句】

A.flag=False

B.flag=Not flag

C.flag=True

D.Exit Do

相似考题

1.（ 35 ） 在窗体中有一个名称为 run35 的命令按钮 ， 单击该按钮从键盘接收学生成绩 ， 如果输入的成绩不 在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮的 Click 的事件代码如下：Private Sub run35_Click( )Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val(InputBox(" 请输入学生成绩 :", " 输入 "))If result>=0 And result <=100 Then___________ElseMsgBox " 成绩输入错误，请重新输入 "End IfLoopRem 成绩输入正确后的程序代码略End Sub程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是（ ） 。A ） flag=FalseB ） flag=Not flagC ） flag=TrueD ） Exit Do

2.在窗体中有一个名称为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=FalseB．flag=Not flagC．flag=TrueD．Exit Do

3.某窗体中有一个命令按钮，在“窗体”视图中单击该命令按钮可以打开另一个窗体，则需要执行的宏操作是（ ）。A.OpenQueryB.OpenReportC.OpenWindowD.OpenForm

4.窗体中有一命令按钮，名称为Commandl。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是__________。

更多“翻在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0~100 ”相关问题

  • 第1题：

    在考生文件夹下有“××.mdb”数据库。

    (1)创建窗体“学生成绩”查询，在窗体中添加组合框“学生编号”，绑定学生表的学生编号字段。

    (2)修改“成绩表，”查询，设置学生编号字段条件为“学生成绩查询”窗体组合框内的值。创建宏“成绩表”，运行成绩表查询。

    (3)在“学生成绩查询”窗体中添加“查询成绩”按钮，实现运行“成绩表”查询。学生成绩查询窗体如图所示。

    单击查询成绩按钮后显示如下结果：


    正确答案：

  • 第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题：

    窗体中有一命令按钮，名称为Command1。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是______。


    正确答案：Command1.FontBold＝true
    Command1.FontBold＝true 解析：本题考查有关字体属性的知识。窗体中控件的字体由一些有关字体的属性控制，比如FontName(字体名)、FontSize(字体大小)、FontBold(加粗)、Fomltalic (倾斜)、FontUnderline(下划线)等。

  • 第4题：

    在窗体中有一个名称为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则会使循环继续下去，成为死循环。

  • 第5题：

    在“成绩管理”项目中创建一个“学生”自由表,操作步骤是()①在“新建表”对话框中,单击“新建表”图片按钮;②在“创建”对话框中,输入表名“学生”并选择“保存在”自己的文件夹中,然后单击“保存”按钮;③在“表设计器”对话框中输入字段名、类型和宽度等内容;④打开“成绩管理”项目,选择“数据”选项卡上的“自由表”,然后单击右边的“新建”命令按钮;⑤最后单击“确定”按钮。

    A.①②③④⑤

    B.②①③④⑤

    C.①④②③⑤

    D.④①②③⑤


    正确答案：D

相关内容