试题13

数据库中有“平时成绩表”，包括“学号”“姓名”“平时作业”“小测验”“期中考试”“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业*50%+小测验*10%+期中成绩*40%，如果学生平时成绩大于等于60分，则可以参加期末考试（“能否考试”字段为真），否则学生不能参加期末考试。

下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试。请在空白处填入实弹的语句，使程序可以完成所需要的功能。

Private Sub Command0_Click()

Dim db As Single

Dim rs As Single

Dim pazy As DAO.Field, xcy As DAO.Field,  qzks As DAO.Field

Dim ps As DAO.Field ,  ks As DAO.Field

Set db = CurrentDb

Set rs = db.OpenRecordset(“平时成绩表”)

Set pszy = rs.Fields(“平时作业”)

Set xcy= rs.Fields(“小测验”)

Set qzks = rs.Fields(“期中考试”)

Set ps = rs.Fields(“平时成绩”)

Set ks = rs.Fields(“能否考试”)

Do While Not rs.EOF

 rs.Edit

 ps=__【14】____

 If ps >=60 Then

    ks=True

 Else

    Ks=False

 End If

 rs.___【15】___

 rs.MoveNext

Loop

rs.close

db.close

Set rs = Nothing

Set db=Nothing

 End Sub

试题13

数据库中有“平时成绩表”，包括“学号”“姓名”“平时作业”“小测验”“期中考试”“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业*50%+小测验*10%+期中成绩*40%，如果学生平时成绩大于等于60分，则可以参加期末考试（“能否考试”字段为真），否则学生不能参加期末考试。

下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试。请在空白处填入实弹的语句，使程序可以完成所需要的功能。

Private Sub Command0_Click()

Dim db As Single

Dim rs As Single

Dim pazy As DAO.Field, xcy As DAO.Field,  qzks As DAO.Field

Dim ps As DAO.Field ,  ks As DAO.Field

Set db = CurrentDb

Set rs = db.OpenRecordset(“平时成绩表”)

Set pszy = rs.Fields(“平时作业”)

Set xcy= rs.Fields(“小测验”)

Set qzks = rs.Fields(“期中考试”)

Set ps = rs.Fields(“平时成绩”)

Set ks = rs.Fields(“能否考试”)

Do While Not rs.EOF

 rs.Edit

 ps=__【14】____

 If ps >=60 Then

    ks=True

 Else

    Ks=False

 End If

 rs.___【15】___

 rs.MoveNext

Loop

rs.close

db.close

Set rs = Nothing

Set db=Nothing

 End Sub

试题11

下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command0_Click()

Dim i As Single ， s As Single，f As Single

s=0 ：f=1

For i= 1 To 30

 s=s+f / i

 f=___【11】__

Next i

Debug.Print “1-1/2+1/3-1/4+……=”；s

End Sub

试题12

有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别是“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。

输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。

请在程序空白处填入适当的语句，使程序完成指定的功能。

 Option ,Compare Database

 Dim Second As Integer

 Private Sub Form_open(Cancel As Integer)

  Second=0

 End Sub

Private Sub Form_Timer()

 If Second >30 Then

   MsgBox “请在30秒中登录”， vbcritical, “警告”

   Docmd.close

 Else

   Me!Tnum=30-Second

 End If

 Second =___【12】__

End Sub

Private Sub OK_Click()

 If Me.UserName< >“123” Or Me.UserPassword< >“456” Then

   MsgBox “错误！”+“您还有”& 30-Second & “秒”，vbcritical，“提示”

 Else

   Me.TimerInterval=___【13】____   ‘终止Timer事件继续发生

 End If

End Sub

试题9

若窗体名称为Form1，则将该窗体标题设置为“Access窗体”的语句时__【9】_____。

试题10

下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。

Dim s As Single ， m As Single

s=0

m=1

do while ____【10】___

s=s+m

m=m+1

Loop

试题8

要将Access数据库中保存的数据发布到网络上，可以采用的对象是_【8】____。

试题6

Access数据库中的字节（Bute）数值类型在数据库中占__【6】___字节。        

试题7

在报表中要显示格式为“第N页”的页码，页码格式设置是：=“第”&__【7】___&“页”。

试题4

数据库系统的核心是___【4】____。

试题5

在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通常被转换为__【5】_____。