二級(jí)access-資料下載頁(yè)
2025-08-04 10:28本頁(yè)面
【正文】 程序空白處填入適當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。 Private Sub Form_Click() Dim Ncount %, n% n = n + 1 If 【11】 Then 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ǔ)句，使程序可以完成指定的功能?！ rivate 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 i End If Next i 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 Dim db As Dim rs As Dim gz As Dim zc As Dim sum As Currency Dim rate As Single Set db = CurrentDb() Set rs = (工資表) Set gz = (工資) Set zc = (職稱) sum = 0 Do While Not 【14】 Select Case zc Case Is = 教授 rate = Case Is = 副教授 rate = Case Else rate = End Select sum = sum + gz * rate gz = gz + gz * rate 【15】 Loop Set rs = Nothing Set db = Nothing MsgBox 漲工資總計(jì): amp。 sum End Sub選擇題 A D B A C B A D A A 填空題 A,B,C,D,E,5,4,3,2,1 15 EDBGHFCA 程序 課號(hào)10
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1