• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
填空题

数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj，kscj，qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
______
If pscj+kscj＞=85 Then
qmzp="优"
ElseIf pscj+kscj＜60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs Update
count=count+1
______
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数:" ＆ count
End Sub

答案： rs.Edit
题目列表

你可能感兴趣的试题

填空题

窗体的主要作用是接收用户输入的_______________。
答案： 数据或命令
填空题

Office电子表格类似于_____________。
答案： Microsoft Excel工作表
填空题

查询“准则”是查询或高级筛选中用来识别所需特定记录的______。
答案： 限定条件
填空题

在两种基本测试方法中，______测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。
答案： 白盒或白箱或白盒子或White Box
填空题

结构化程序设计方法和主要原则包括自顶向下、逐步求精、______和限制使用goto语句。
答案： 模块化
填空题

数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj，kscj，qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
______
If pscj+kscj＞=85 Then
qmzp="优"
ElseIf pscj+kscj＜60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs Update
count=count+1
______
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数:" ＆ count
End Sub
答案： rs.Edit
填空题

设a=6，则执行x=Ⅱf(a>5，—1，0)后，x的值为______。
填空题

在面向对象方法中，______描述的是具有相似属性与操作的一组对象。
答案： 类
填空题

宏可以成为实用的数据库管理系统菜单栏的__________，从而控制整个管理系统的操作流程。
答案： 操作命令
填空题

宏是Access的一个对象，其主要功能是使操作 ______。
答案： 自动进行
填空题

在窗体上画一个命令按钮，然后编写如下程序：
Function fun(By Val num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num\10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox(“请输入一个数”)
n=CLng(n)
r=fun(n)
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为______。
答案： 0
填空题

在旅店管理中，涉及到的基本表有四个，它们分别为客房表、住宿表、______和 ______。
答案： 旅客登记表、消费卡表(次序无先后)
填空题

数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj，kscj，qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
______
If pscj+kscj＞=85 Then
qmzp="优"
ElseIf pscj+kscj＜60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs Update
count=count+1
______
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数:" ＆ count
End Sub
答案： rs.MoveNext
填空题

在最坏情况下，堆排序需要比较的次数为______。
答案： O(nlog2n)
填空题

符合结构化原则的三种基本控制结构是：选择结构、循环结构和______。
答案： 顺序结构
微信扫码免费搜题