期末綜合練習題(10級)-資料下載頁
2025-06-07 19:35本頁面
【正文】 d = n = amp。 n 1End Sub第37題（編程題）通過編程求出結(jié)果。 把9786表示為兩個加數(shù)之和，使其中一個加數(shù)能被91整除，而另一個加數(shù)能被87整除。請求出：在這兩個加數(shù)中，能被91整除的加數(shù)等于多少？答案：4914(n)程序代碼：Private Sub Cmd1_Click() Dim i As Integer, j As Integer, k As Integer k = 9786 For i = 87 To k Step 87 For j = 91 To k Step 91 If i + j = k Then MsgBox 能被91整除的加數(shù)是： amp。 j Exit For End If Next j Next iEnd Sub第38題數(shù)據(jù)庫的“職工”表中含有“姓名”、“職稱”和“工資”等字段，要實現(xiàn)對不同職稱的職工增加工資，規(guī)定工程師職稱增加20%，技術(shù)員增加15%，其他人員增加10%。下列程序的功能是按上述規(guī)定調(diào)整每位職工的工資，并顯示所漲工資的總和。請在空白處填入適當?shù)恼Z句，使程序可以完成指定的功能。 Private Sub Command0_Click() Dim db As Dim rs As Dim gz As Dim zc As Dim sum As Single Dim rate As Single Set db = CurrentDb() Set rs = (職工) Set gz = (工資) ‘ Fields Set zc = (職稱) sum = 0 Do While Not Select Case zc Case Is = 工程師 rate = Case Is = 技術(shù)員 rate = Case Else rate = End Select sum = sum + gz * rate gz = gz + gz * rate Loop Set rs = Nothing Set db = Nothing MsgBox 漲工資總計： amp。 sum End Sub答案：Fields第39題數(shù)據(jù)庫的“學生成績”表中含有字段（學號、姓名、語文、數(shù)學、英語，總分）。下列程序的功能是：計算每名學生的總分（總分=數(shù)學+外語+專業(yè)）。請在空白處填入適當?shù)恼Z句，使程序可以實現(xiàn)所需要的功能。 Dim As New Dim rs As New Dim zf As Dim yw As Dim sx As Dim yy As Dim strSQL As String Set = strSQL = select * from學生成績 strSQL, , adOpenDynamic, adLockOptimistic, adCmdText Set zf = (總分) Set yw = (語文) Set sx = (數(shù)學) Set yy = (英語) Do While Not zf = yw + sx + yy ‘ MoveNext Loop Set rs = Nothing Set = Nothing答案：MoveNextamp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。
教學教案相關(guān)推薦
鄂ICP備17016276號-1