access數據庫復習-資料下載頁

　　

【正文】 ] 模塊 ? 在窗體中有一個命令按鈕 Commandl，編寫事件代碼如下： Private Sub Command1_CliCk() Dim s As Integer s＝ P(1)＋ P(2)＋ P(3)＋ P(4) S End SUb Public Function P(N As Integer) Dim Sum As Integer Sum＝ 0 For i＝ 1 To N Sum＝ Sum＋ i Next i P＝ Sum End Function 打開窗體運行后，單擊命令按鈕，輸出結果是 A)15 B)20 C)25 D)35 ? 參考答案： [B] ? 【 解析 】 考察循環結構。當 N＝ 1時， p(1)＝ 1；當 N＝ 2時， p(2)＝ 3；當 N＝ 3時， p(3)＝ 6；當 N＝ 4時， p(4)＝ 10；所以 s＝ 20。 模塊 ? 在窗體上有一個命令按鈕 Commandl，編寫事件代碼如下： Private Sub Command1_Click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i * i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) *2 Next i MsgBox k End Sub 打開窗體運行后，單擊命令按鈕，消息框中輸出的結果是 【 1】 。 ? 參考答案： 201 模塊 ? 在窗體文本框 Text l中輸入 “ 456AbC”后，立即窗口上輸出的結果是 【 2】 。 Private Sub Textl_KeyPress(KeyAscii As Integer) Select Case DeyAscii Case 97 To 122 Ucase(Chr(KeyAscii))。 Case 65 To 90 Lcase(Chr(KeyAscii))。 Case 48 To 57 Chr(KeyAscii)。 Case Else KeyAscii = 0 End Select End Sub ? 參考答案： 456aBc 模塊 ? 一下列程序的功能是求方程： x2十y2=1000的所有整數解。請在空白處填入適當的語句，使程序完成指定的功能。 Private Sub Commandl_Click（） Dim as integer,y as integer For x= 34 To 34 For y= 34 To 34 If【 1】 Then Debug .Print x,y End If Next y Next x End Sub ? 參考答案： x^2+y^2=1000 模塊 ? 下列程序的功能是求算式： 1+1/2 ! +1/3!+1/4!+…… 前 10項的和（其中 n!的含義是 n的階乘）。請在空白處填入適當的語句，使程序完成指定的功能。 Private Sub Commandl_Click（） Dim i as integer,s as single,a as single a=1:s=0 For i=1 To 10 a=【 2】 s=s+a Next i Debug .Print “1+1/2!十 1/3!+. … =”。s End Sub ? 參考答案： a/i 模塊 ? 下列程序的功能是找出被 7除，余數為1的最小的 5個正整數。請在程序空白處填入適當的語句，使程序可以完成指定的功能。 Private Sub Form_Click() Dim Ncount %, n% n=1： Ncount=0 do n = n + 1 If 【 3】 Then n Ncount =Ncount + 1 End If Loop Until Ncont = 5 End Sub ? 參考答案： n mod 5=1 and n mod 7=1 模塊 ? 以下程序的功能是在立即窗口中輸出 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 = 【 4】 End If k = 【 5】 Loop If b = True Then t = t + 1 i End If Next i “t=”。 t End Sub ? 參考答案： 【 4】 false 【 5】 k+1 模塊 ? 某次大獎賽有 7個評委同時為一位選手打分，去掉一個最高分和一個最低分，其余 5個分數的平均值為該名參賽者的最后得分。請填空完成規定的功能。 sub mand1_click() Dim mark！， aver！， i%， max1！， min1! aver＝ 0 For i＝ 1 To 7 mark＝ InputBox(請輸入第 amp。 i amp。位評委的打分 ) If i＝ 1 Then max1＝ mark： min1＝ mark Else If markmin1 Then min1＝ mark ElseIf markmax1 Then __【 6】 __ End If End If __【 7】 __ Next i aver＝ (aver－ max1－ min1)/5 MsgBox aver End sub ? 參考答案： 【 6】 max1＝ mark 【 7】 aver＝ aver＋ mark ? 【 解析 】 通過 mark和 min1比較得出最低分存入 min1中，通過 mark和 max1比較得出最高分存入 max1中，然后利用 aver累加所有的評分，最后從 aver中減去最高分和最低分再除以 5即為參賽者最后得分。 模塊 ? 數據庫中有工資表，包括 “ 姓名 ” 、 “ 工資 ” 和“ 職稱 ” 等字段，現要對不同職稱的職工增加工資，規定教授職稱增加 15%，副教授職稱增加 10%，其他人員增加 5%。下列程序的功能是按照上述規定調整每位職工的工資，并顯示所漲工資之總和。請在空白處填入適當的語句，使程序可以完成指定的功能。 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 【 8】 Select Case zc Case Is = “教授 ” rate = Case Is = “副教授 ” rate = Case Else rate = End Select sum = sum + gz * rate gz = gz + gz * rate 【 9】 Loop Set rs = Nothing Set db = Nothing MsgBox 漲工資總計 : amp。 sum End Sub ? 參考答案： 【 8】 【 9】