首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。 run35命令按钮的Click的事件代码如下: Private Sub r
在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。 run35命令按钮的Click的事件代码如下: Private Sub r
admin
2020-06-06
53
问题
在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。
run35命令按钮的Click的事件代码如下:
Private Sub run35_Click()
Dim flagAs Boolcan
result=0
flag=True
Do While flag
result=Val(InputBox(”请输入学生成绩:","输入"))
If result>=0 And result<=1 00 Then
Else
MsgBox ”成绩输入错误,请重新输入”
End If
Loop
Rem 成绩输入正确后的程序代码略
End Sub
程序中有一空白处,需要填入一条语句使程序完成其功能。下列选项中错误的语句是
选项
A、flag=False
B、flag=Not flag
C、flag=True
D、Exit Do
答案
C
解析
根据题目要求,当输入正确的成绩后,进入后续的程序处理,Flag初始为True,进入do while循环,循环条件为Flag。当输入错误的成绩时,提示信息并不改变Flag标记。即还为True,继续进行循环;当输入正确成绩时,应将Flag标记为False,这样才可以跳出循环,继续后续的程序处理,否则将一直停留在循环这里.
转载请注明原文地址:https://kaotiyun.com/show/pO0p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
VBA语句“DimNewArray(10)asInteger”的含义是
运行下列程序,在立即窗口显示的结果是PrivateSubCommand0_Click()DimIAsInteger,JAsIntegerForI=2To10ForJ=2To1/2IfI
在考生文件夹下有一个数据库文件“samp1.accdb”。在数据库文件中已经建立了一个表对象“学生基本情况”。根据以下操作要求,完成各种操作。(1)将“学升基本情况”表名称改为“tStud”。(2)设置“身份ID”字段为主键;并设置“身
已知学生表如下:执行下列命令后,得到的记录数是SELECT班级,MAX(年龄)FORM学生表GROUPBY班级
在过程定义中有语句:PrivateSubGetData(ByReffAsInteger)其中“ByRef”的含义是
下面不属于软件设计原则的是
Access数据库的结构层次是
在Access数据库对象中,体现数据库设计目的的对象是
程序测试的目的是
随机试题
检测病毒抗体的三种方法是()
将逻辑型数据转换成整型数据,转换规则是()。
王某涉嫌盗窃罪于2000年4月15日被当地的公安机关立案侦查,同年5月2013被移送当地检察机关审查起诉,检察机关审查后于6月1日在当地的人民法院提起公诉。本案中,王某最早自何时起可以依法委托辩护人:
下列各项中,属于合同收入基本内容的是______。
根据《商业银行风险监管核心指标》,我国衡量商业银行资产安全性指标中,不良资产率是指()之比。
某进出口公司2019年10月7日报关进口一批韩国小轿车,海关于当日填开完税凭证,该公司进口消费税的最后纳税时间为()。
Whatwouldhappenifconsumersdecidedtosimplifytheirlivesandspendlessonmaterialgoodsandservices?This(1)_____ist
窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptlonBase1PrlveteSubCommand1_Click()DimsAsVarianta=Array(1,2,3,4,
A、正在装修B、面积很大C、是贷款买的D、在单位附近A
ThecityfinallywonapprovalforalimitedspeedcameraprograminJuneafteralongbattleinAlbany,andCityMayorBloomberg
最新回复
(
0
)