编一个程序,输入0—100之间的一个学生成绩分数,用switch语句输出成绩等第(成绩优秀(90-100),成绩良好(80-89),成绩及格(60-79)和成绩不及格(59以下))。
第1题:
“考试成绩信息”数据库下有一个表“成绩.dbf",使用菜单设计器制作一个名为my的菜单,菜单只有1个“考试统计”子菜单。“考试统计”菜单中有“学生平均成绩”、“课程平均成绩”和“关闭”3个子菜单:“学生平均成绩”子菜单统计每位考生的平均成绩;“课程平均成绩”子菜单统计每门课程的平均成绩;“关闭”子菜单使用SET SYSMENU TO DEFAULT来返回系统菜单。
(2)有如下命令序列,其功能是根据输入的考试成绩显示相应的成绩等级。
Set talk off
Clear
Input”请输入考试成绩: "to chj
Dj=iif(chj<60,”不及格”,iif(chj>=90,"优秀',"通过"))
??"成绩等级"+dj
Set talk on
请编写程序,用DO CASE型分支结构实现该命令程序的功能。
第2题:
A、90-100分70-89分60-69分0-59分
B、85-100分70-84分60-69分0-59分
C、90-100分75-89分60-74分0-59分
D、90-100分80-89分60-79分0-59分
第3题:
在窗体中有一个名称为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
第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
第5题:
某班共有50名学生参加数学和外语两科考试,已知数学成绩及格的有40人,外语成绩及格的有25人,据此可知数学成绩及格而外语成绩不及格者( )
第6题:
编一个程序,定义结构类型(有学号、姓名、性别和程序设计成绩四个字段),声明该结构类型变量,用赋值语句对该变量赋值以后再输出。
第7题:
编一个程序,首先输入一个成绩(0到100的整数),用ifelse语句然后判断该成绩是优、良、中、及格还是不及格。
第8题:
输入一个百分制成绩,要求输出成绩等级A,B,C,D,E。其中90~100分为A,80~89分为B,70~79分为C,60~69分为D,60分以下为E。 要求: 1、采用if语句实现。 2、输入百分制成绩后要判断该成绩的合理性,对不合理的成绩应输出错误信息。
第9题:
某班共有50名学生参加数学和外语两科考试,已知数学成绩及格的有40人,外语成绩及格的有25人,据此可知数学成绩及格而外语成绩不及格者( )。
第10题:
①②③
②①③
②③①
③②①
第11题:
第12题:
第13题:
(1)考生文件夹下有一个表“成绩.dbf”,使用菜单设计器制作一个名为“cd1”的菜单,菜单只有一个“成绩统计”子菜单。“成绩统计”菜单中有“学生平均成绩”、“课程平均成绩”和“关闭”3个子菜单:“学生平均成绩”子菜单统计每位学生的平均成绩;“课程平均成绩”子菜单统计每门课程的平均成绩;“关闭”子菜单使用SET SYSMENU TO DE-FAULT来返回系统菜单。
(2)有如下命令序列,其功能是根据输入的考试成绩显示相应的成绩等级。
SET TALK OFF
CLEAR
INPUT”请输入考试成绩:”TO cj
Di=iiI(cj<;60,”不及格”,iif(cj>;=90,”优秀”,iif(cj>;
=80,”良好”,”及格”)))
??”成绩等级为:”+dj
SET TALK()N
请编写程序“cx2.prg”,用DO CASE型分支结构实现该命令程序的功能。
第14题:
用SQL语句查询课程成绩在60分以上的学生姓名,并将结果按姓名降序存入表文件res.dbf中。
(2)编写my.prg程序,实现的功能:先为“学生成绩”表增加一个“学生平均成绩”字段,类型为 N(6,2),根据“学生选课”表统计每个学生的平均成绩,并写入“学生成绩”表新的字段中。
第15题:
翻在窗体中有一个名称为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
第16题:
在窗体中有一个名称为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
第17题:
第18题:
编一个程序,定义一个有10个元素的数组,使用for循环语句,从键盘上输入10名同学的数学成绩,分别求出最高分和最低分,并且求出10名同学的数学平均成绩。
第19题:
一个学生成绩表的数据(含有Java/VB/VC++/SQL Server/Oracel各门课程的成绩),分别按成绩小于60输出不及格、成绩在60到80分之间输出合格、成绩在80分以上的输出优秀。下列XSL语句能够很好地完成此需求。()
第20题:
输入学生的成绩,如果60分以上为及格,否则为不及格,如输入成绩为69分,则程序执行经过以下几个步骤,正确的顺序为() ①输入学生成绩 ②判断是否大于等于60分 ③输出及格。
第21题:
已知“成绩”表中包含“学号”“课程编号”和“成绩”3个字段,从成绩表中挑选不及格的学生的学号,下面语句正确的是()。
第22题:
第23题: