2010年3月計(jì)算機(jī)等級(jí)考試二級(jí)Access試試題(文字版)

　　(11)下列程序的功能是找出被5、7除，余數(shù)為1的最小的5個(gè)正整數(shù)。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。

　　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之間所有的素?cái)?shù)，并統(tǒng)計(jì)輸出素?cái)?shù)的個(gè)數(shù)。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。

　　Private Sub Command2_Click()

　　Dim i%, j%, k%, t % ‘t 為統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)

　　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)數(shù)據(jù)庫(kù)中有工資表，包括“姓名”、“工資”和“職稱”等字段，現(xiàn)要對(duì)不同職稱的職工增加工資，規(guī)定教授職稱增加15%，副教授職稱增加10%，其他人員增加5%。下列程序的功能是按照上述規(guī)定調(diào)整每位職工的工資，并顯示所漲工資之總和。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。

　　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 "漲工資總計(jì):" & sum

　　End Sub