access數(shù)據(jù)庫復(fù)習(xí)(參考版)
2024-12-11 02:38本頁面
【正文】 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 漲工資總計(jì) : amp。下列程序的功能是按照上述規(guī)定調(diào)整每位職工的工資，并顯示所漲工資之總和。位評委的打分 ) 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即為參賽者最后得分。 sub mand1_click() Dim mark！， aver！， i%， max1！， min1! aver＝ 0 For i＝ 1 To 7 mark＝ InputBox(請輸入第 amp。 t End Sub ? 參考答案： 【 4】 false 【 5】 k+1 模塊 ? 某次大獎(jiǎng)賽有 7個(gè)評委同時(shí)為一位選手打分，去掉一個(gè)最高分和一個(gè)最低分，其余 5個(gè)分?jǐn)?shù)的平均值為該名參賽者的最后得分。請?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序可以完成指定的功能。請?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序可以完成指定的功能。 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!+. … =”。 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項(xiàng)的和（其中 n!的含義是 n的階乘）。 Case Else KeyAscii = 0 End Select End Sub ? 參考答案： 456aBc 模塊 ? 一下列程序的功能是求方程： x2十y2=1000的所有整數(shù)解。 Case 65 To 90 Lcase(Chr(KeyAscii))。 ? 參考答案： 201 模塊 ? 在窗體文本框 Text l中輸入 “ 456AbC”后，立即窗口上輸出的結(jié)果是 【 2】 。當(dāng) N＝ 1時(shí)， p(1)＝ 1；當(dāng) N＝ 2時(shí)， p(2)＝ 3；當(dāng) N＝ 3時(shí)， p(3)＝ 6；當(dāng) N＝ 4時(shí)， p(4)＝ 10；所以 s＝ 20。 y End Sub Public Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10 End Sub 打開窗體運(yùn)行后，單擊命令按鈕，立即窗口上輸出的結(jié)果是 A） 2 32 B） 12 3 C） 2 2 D） 12 32 ? 參考答案： [A] 模塊 ? 窗體中有命令按鈕 Commandl,事件過程如下： Public Function f（ x As Integer） As Integer Dim y As Integer x=20 y=2 f=x*y End Function Private Sub Commandl_Click（） Dim y As Integer Static x As Integer x=10 y=5 y=f（ x） Debug .Print x。下列 Commandl的單擊事件過程中，正確的是 A) Private Sub Command1_Click() ＝ True ＝ False End Sub B) Private Sub Command1_Click() ＝ True ＝ False End Sub C) Private Sub Command1_Click() ＝ True ＝ False End Sub D) Private Sub Command1_Click() ＝ True ＝ False End Sub ? 參考答案： [C] ? 【 解析 】 在按鈕的屬性中， Enable控制按鈕的可用性，Visible控制按鈕的可見性。 Loop Until y = 0 End Sub 打開窗體運(yùn)行后，單擊命令按鈕，依次輸入 350、 5 6 2 1 1 0，立即窗口上輸出的結(jié)果是 A） 37 55 64 28 19 19 B） 10 50 20 C） 10 50 20 0 D） 37 55 64 28 19 ? 參考答案： [D] 模塊 ? 窗體中有 3個(gè)命令按鈕，分別命名為 Commandl、 Command2和 Command3。當(dāng) j＝ 1， k＝ 1時(shí)， x＝ x＋ 3＝ 6， next k，這時(shí) k＝ 2， x＝ 6＋ 3＝ 9；最內(nèi)層循環(huán)執(zhí)行完畢，執(zhí)行第二層循環(huán)，即 j＝ 2，重復(fù)上面步驟，以此類推到 j＝ 3，最終 x值為 21。 模塊 ? 在窗體中有一個(gè)文本框 Textl，編寫事件代碼如下： Private Sub Form_Click() X＝ val(Inputbox(輸入 X的值 )) Y＝ 1 If X0 Then Y＝ 2 ＝ Y End Sub 打開窗體運(yùn)行后，在輸入框中輸入整數(shù) 12，文本框 Text1中輸出的結(jié)果是 ? A)1 B)2 C)3 D)4 ? 參考答案： [B] 【 解析 】 本題中窗體單擊事件是通過從輸入框輸入數(shù)值，根據(jù)所輸入數(shù)值內(nèi)容對 y進(jìn)行賦值，運(yùn)行時(shí)輸入框輸入 12，此值不等于 0所以 y的值為 2，正確答案為 B)。字符串表達(dá)式，表示用來計(jì)算 date1 和 date2 的時(shí)間差的時(shí)間間隔 ? interval 參數(shù)的設(shè)定值如下： 設(shè)置 描述 ? yyyy 年 q 季 m 月 ? y 一年的日數(shù) d 日 ? w 一周的日數(shù) ww 周 ? h 時(shí) n 分鐘 s 秒 模塊 ?下列程序段的功能是實(shí)現(xiàn) “ 學(xué)生 ”表中 “ 年齡 ” 字段值加 1 Dim Str As String Str= Str 空白處應(yīng)填入的程序代碼是 A）年齡 =年齡 +1 B） Update學(xué)生 Set 年
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1