(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
2010年3月計(jì)算機(jī)二級(jí)考試Access筆試試題參考答案
(1) A,B,C,D,E,5,4,3,2,1 (2) 15 (3) EDBGHFCA (4) 程序 (5) 課程
(6) Label1.Caption="性別" (7) SelFoeus (8) 4 (9) 456aBc (10) 201
(11) n Mod 5 =1 And n Mod 7=1 (12) false (13) k+1 (14) rs.EOF (15) rs.update
免責(zé)聲明:該文觀點(diǎn)僅代表作者本人,查查吧平臺(tái)系信息發(fā)布平臺(tái),僅提供信息存儲(chǔ)空間服務(wù),不承擔(dān)相關(guān)法律責(zé)任。圖片涉及侵權(quán)行為,請(qǐng)發(fā)送郵件至85868317@qq.com舉報(bào),一經(jīng)查實(shí),本站將立刻刪除。
返回查查吧首頁(yè),查看更多>>