2010年3月计算机等级考试二级Access试试题(文字版)

　　(11)下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。

　　Private Sub Form_Click()

　　Dim Ncount %, n%

　　n = n + 1

　　If 【11】 Then

　　Debug.Print n

　　Ncount =Ncount + 1

　　End If

　　Loop Until Ncont = 5

　　End Sub

　　(12)以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。

　　Private Sub Command2_Click()

　　Dim i%, j%, k%, t % ‘t 为统计素数的个数

　　Dim b As Boolean

　　For i = 100 To 200

　　b = True

　　k = 2

　　j = Int(Sqr(i))

　　Do While k <= j And b

　　If I Mod k = 0 Then

　　b = 【12】

　　End If

　　k = 【13】

　　Loop

　　If b = True Then

　　t = t + 1

　　Debug.Print i

　　End If

　　Next i

　　Debug.Print "t="; t

　　End Sub

　　(13)数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。

　　Private Sub Command5_Click()

　　Dim ws As DAO.Workspace

　　Dim db As DAO.Database

　　Dim rs As DAO.Recordset

　　Dim gz As DAO.Field

　　Dim zc As DAO.Field

　　Dim sum As Currency

　　Dim rate As Single

　　Set db = CurrentDb()

　　Set rs = db.OpenRecordset("工资表")

　　Set gz = rs.Fields("工资")

　　Set zc = rs.Fields("职称")

　　sum = 0

　　Do While Not 【14】

　　rs.Edit

　　Select Case zc

　　Case Is = "教授"

　　rate = 0.15

　　Case Is = "副教授"

　　rate = 0.1

　　Case Else

　　rate = 0.05

　　End Select

　　sum = sum + gz * rate

　　gz = gz + gz * rate

　　【15】

　　rs.MoveNext

　　Loop

　　rs.Close

　　db.Close

　　Set rs = Nothing

　　Set db = Nothing

　　MsgBox "涨工资总计:" & sum

　　End Sub