编一个程序,输入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型分支结构实现该命令程序的功能。
单击“学生平均成绩”菜单行中的“创建”按钮进入程序设计的编辑窗口在命令窗口中输入如下程序段:
****子菜单“学生平均成绩”的过程程序*****
SELECT学号AVG(成绩)AS学生平均成绩FROM成绩GROUP BY学号
*****************************************
单击“课程平均成绩”菜单行中的“创建”按钮进入程序设计的编辑窗口在命令窗口中输入如下程序段:
****子菜单“课程平均成绩”的过程程序*****
SELECT课程号AVG(成绩)AS课程平均成绩FRO)M成绩GROUPBY课程号
*****************************************
在“关闭”菜单项的命令文本框中编写程序代码:SET SYSMENU TO DEFAULT。选择菜单命令“菜单”—“生成”生成一个菜单文件my.mpr。运行菜单结果如图3-117所示。
(2)在命令窗口中输入命令:MODIFY COMMAND成绩等级在程序文件编辑器窗口输入如下程序段
****文件“成绩等级”中的程序段*****
Set talk off
Clear
Input"请输入考试成绩:"to chj
Do Case
Case chj>=90
dj='优秀'
Case chi>=60
dj='通过'
Case chj>0
dj='不及格'
EndCase
?"成绩等级:"dj
Set talk on
**********************************
保存文件在命令窗口输入命令:DO成绩等级运行程序通过BROWSE命令可查看结果。
单击“学生平均成绩”菜单行中的“创建”按钮,进入程序设计的编辑窗口,在命令窗口中输入如下程序段:
****子菜单“学生平均成绩”的过程程序*****
SELECT学号,AVG(成绩)AS学生平均成绩FROM成绩GROUP BY学号
*****************************************
单击“课程平均成绩”菜单行中的“创建”按钮,进入程序设计的编辑窗口,在命令窗口中输入如下程序段:
****子菜单“课程平均成绩”的过程程序*****
SELECT课程号,AVG(成绩)AS课程平均成绩FRO)M成绩GROUPBY课程号
*****************************************
在“关闭”菜单项的命令文本框中编写程序代码:SET SYSMENU TO DEFAULT。选择菜单命令“菜单”—“生成”,生成一个菜单文件my.mpr。运行菜单,结果如图3-117所示。
(2)在命令窗口中输入命令:MODIFY COMMAND成绩等级,在程序文件编辑器窗口输入如下程序段,
****文件“成绩等级”中的程序段*****
Set talk off
Clear
Input"请输入考试成绩:"to chj
Do Case
Case chj>=90
dj='优秀'
Case chi>=60
dj='通过'
Case chj>0
dj='不及格'
EndCase
?"成绩等级:",dj
Set talk on
**********************************
保存文件,在命令窗口输入命令:DO成绩等级,运行程序,通过BROWSE命令可查看结果。 解析:本大题1小题主要考查的是菜单设计器的“结果”下拉框中各项的使用功能,例如要建立下级菜单,在“结果”下拉框中就必须选择“子菜单”,而要执行某条菜单命令,就应该选择“命令”或“过程”。2小题考查的是程序基本结构中的选择结构中的分支语句,CASE语句中,只执行满足条件的第一个语句,后面的CASE语句不再执行,如果不满足,则继续执行后面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),根据“学生选课”表统计每个学生的平均成绩,并写入“学生成绩”表新的字段中。
(2)在命令窗口中输入命令:MODIFY COMMAND my在程序文件编辑器窗口输入如下程序段:
******文件my.prg中的程序段********
ALTER TABLE学生成绩ADD平均成绩N(62)
SELECT学号AVG(成绩)AS平均成绩;
FROM学生选课;
GROUP BY学号;
INTO CURSOR atemp
DO WHILE NOT EOF()
UPDATE学生成绩SET平均成绩=atemp.平均成绩;
WHERE学生成绩.学号=atemp.学号
SKIP
ENDDO
***********************************
在命令窗口输入命令:DO my运行程序。执行程序后“学生成绩”中的记录如图3-42所示。

(2)在命令窗口中输入命令:MODIFY COMMAND my,在程序文件编辑器窗口输入如下程序段:
******文件my.prg中的程序段********
ALTER TABLE学生成绩ADD平均成绩N(6,2)
SELECT学号,AVG(成绩)AS平均成绩;
FROM学生选课;
GROUP BY学号;
INTO CURSOR atemp
DO WHILE NOT EOF()
UPDATE学生成绩SET平均成绩=atemp.平均成绩;
WHERE学生成绩.学号=atemp.学号
SKIP
ENDDO
***********************************
在命令窗口输入命令:DO my,运行程序。执行程序后,“学生成绩”中的记录,如图3-42所示。
解析:本大题两个小题主要考查的是SQL语句的应用,设计过程中可利用临时表来存放查询结果,再利用DO循环语句对表中的记录逐条更新。
第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题: