Access編程題

1、下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院A已經(jīng)設(shè)計(jì)已經(jīng)設(shè)計(jì)“計(jì)算階乘計(jì)算階乘”窗體。窗體樣式如下圖所示。窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、在、在Txt1文本框中輸入一個(gè)整數(shù)，單擊文本框中輸入一個(gè)整數(shù)，單擊“計(jì)算計(jì)算”按鈕，若按鈕，若輸入的數(shù)小于輸入的數(shù)小于0，在，在Txt2文本框中顯示文本框中顯示“輸入錯(cuò)誤輸入錯(cuò)誤”；若；若等于等于0，在，在Txt2中顯示中顯示1；若大于；若大于0，在，在Txt2中顯示該數(shù)的中顯示該數(shù)的階乘；階乘；2、單擊、單擊“退出退出”按鈕，退出按鈕，退出Access。下一頁(yè)

2、下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院APrivate Sub cmd1_Click() Dim N As Integer, i As Integer Dim jc As Long N = txt1.Value If N 0 Then txt2.Value = 輸入錯(cuò)誤輸入錯(cuò)誤 ElseIf N = 0 Then txt2.Value = 1 Else jc = 1 For i = 1 To N jc = jc * i Next i txt2.Value = jc End IfEnd Sub2 退出AccessPrivate Sub cmd2_Cli

3、ck()DoCmd.QuitEnd Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院B已經(jīng)設(shè)計(jì)已經(jīng)設(shè)計(jì)“評(píng)選最佳場(chǎng)館評(píng)選最佳場(chǎng)館”窗體。窗體樣式如下圖所示：窗體。窗體樣式如下圖所示： 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、如果只選中一個(gè)場(chǎng)館選項(xiàng)，單擊、如果只選中一個(gè)場(chǎng)館選項(xiàng)，單擊“投票投票”按鈕，則顯示按鈕，則顯示“謝謝您謝謝您的投票的投票”；2、如果選中多個(gè)場(chǎng)館選項(xiàng)，單擊、如果選中多個(gè)場(chǎng)館選項(xiàng)，單擊“投票投票”按鈕，則顯示按鈕，則顯示“最佳場(chǎng)館最佳場(chǎng)館只能有一個(gè)，請(qǐng)重新選擇只能有一個(gè)，請(qǐng)重新選擇”；3、如果沒(méi)有選擇、如果沒(méi)有選擇

4、,單擊單擊“投票投票”按鈕，則顯示按鈕，則顯示“請(qǐng)選擇一個(gè)最佳場(chǎng)請(qǐng)選擇一個(gè)最佳場(chǎng)館館”；4、單擊、單擊“關(guān)閉關(guān)閉”按鈕，退出按鈕，退出Access。注：可以使用注：可以使用MsgBox函數(shù)顯示相關(guān)文本信息。函數(shù)顯示相關(guān)文本信息。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院BPrivate Sub cmd1_Click() check1.Value + check2.Value + Check3.Value + Check4.Value + Check5.Value + Check6.Value = -1 MsgBox 謝謝您的投票謝謝您的投票 che

5、ck1.Value + check2.Value + Check3.Value + Check4.Value + Check5.Value + Check6.Value c) And (b + c) a) And (a + c) b) Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) text4.Value = s Else text4.Value = 不能構(gòu)成三角形不能構(gòu)成三角形 End IfEnd SubPrivate Sub cmd2_Click()DoCmd.QuitEnd Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)

6、上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院D已經(jīng)設(shè)計(jì)已經(jīng)設(shè)計(jì)“學(xué)生學(xué)生”表和表和“信息統(tǒng)計(jì)信息統(tǒng)計(jì)”窗體。如下圖所示：窗體。如下圖所示： “學(xué)生學(xué)生”表表 信息統(tǒng)計(jì)窗體信息統(tǒng)計(jì)窗體請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、當(dāng)單擊窗體中的統(tǒng)計(jì)按鈕時(shí)，則從學(xué)生表中統(tǒng)計(jì)出男、女生人數(shù)，然后、當(dāng)單擊窗體中的統(tǒng)計(jì)按鈕時(shí)，則從學(xué)生表中統(tǒng)計(jì)出男、女生人數(shù)，然后將統(tǒng)計(jì)結(jié)果分別填入文本框中；將統(tǒng)計(jì)結(jié)果分別填入文本框中； 注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)補(bǔ)充完整。注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)補(bǔ)充完整。2、單擊、單擊“退出退出”按鈕，退出按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一

7、頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 連接對(duì)象連接對(duì)象 Dim rs As New ADODB.Recordset 記錄集對(duì)象記錄集對(duì)象 Dim SEX As ADODB.Field 性別字段性別字段 Dim I_NanSheng As Integer, I_NvSheng As Integer 定義存放男、女生人數(shù)的變量定義存放男、女生人數(shù)的變量 Set cn = CurrentProject.Connection rs.Open 學(xué)生學(xué)生, cn, ad

8、OpenDynamic, adLockOptimistic, adCmdTable Set SEX = rs.Fields(性別性別) 初始化存放男、女生人數(shù)的變量初始化存放男、女生人數(shù)的變量 I_NanSheng = 0 I_NvSheng = 0 D下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Drs 遍歷學(xué)生表前，應(yīng)定位到第一條記錄上遍歷學(xué)生表前，應(yīng)定位到第一條記錄上 Do While Not rs.EOF 遍歷學(xué)生表遍歷學(xué)生表 If SEX = 男男 Then 統(tǒng)計(jì)男生人數(shù)統(tǒng)計(jì)男生人數(shù) I_NanSheng = I_NanSheng + 1 E

9、nd If If Then 統(tǒng)計(jì)女生人數(shù)統(tǒng)計(jì)女生人數(shù) I_NvSheng = I_NvSheng + 1 End If rs.MoveNext 記錄指針向下移動(dòng)記錄指針向下移動(dòng) Loop下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院D 將男、女生人數(shù)的數(shù)據(jù)填入文本框中將男、女生人數(shù)的數(shù)據(jù)填入文本框中 Text_NanSheng = Text_NvSheng = rs.Close cn.Close Set rs = Nothing Set cn = NothingEnd Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)

10、院合肥學(xué)院E已經(jīng)設(shè)計(jì)已經(jīng)設(shè)計(jì)“用戶用戶”表和表和“登錄登錄”窗體。如下圖所示：窗體。如下圖所示： “用戶用戶”表表 “登錄登錄”窗體窗體 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、當(dāng)單擊窗體中的、當(dāng)單擊窗體中的“登錄登錄”按鈕時(shí)，檢查輸入的用戶名稱和密碼是按鈕時(shí)，檢查輸入的用戶名稱和密碼是否正確，根據(jù)判斷結(jié)果顯示歡迎或錯(cuò)誤的提示界面。否正確，根據(jù)判斷結(jié)果顯示歡迎或錯(cuò)誤的提示界面。 注：事件代碼已部分給出，請(qǐng)將其補(bǔ)充完整。注：事件代碼已部分給出，請(qǐng)將其補(bǔ)充完整。2、單擊、單擊“退出退出”按鈕，退出登錄窗體。按鈕，退出登錄窗體。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)

11、計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院EPrivate Sub Command1_Click() Dim username As String, password As String Dim rs As New ADODB.Recordset username = Trim(text1) 去掉字符串前后的空格去掉字符串前后的空格 password = Trim(text2) rs.Open 用戶用戶, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥

12、學(xué)院合肥學(xué)院EDo While Not rs.EOF If rs.Fields(用戶名用戶名) = username And rs.Fields(密碼密碼) = password Then 如果用戶名和密碼輸入正確如果用戶名和密碼輸入正確 _結(jié)束循環(huán)結(jié)束循環(huán) End If 記錄指針向后移動(dòng)一條記錄記錄指針向后移動(dòng)一條記錄LoopIf Then 如果記錄指針在文件尾如果記錄指針在文件尾 MsgBox 用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！ 下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院E text1 = text2 = text1.

13、SetFocus Else MsgBox 登錄成功，歡迎您！登錄成功，歡迎您！ End If rs.Close Set rs = NothingEnd Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院F已經(jīng)設(shè)計(jì)已經(jīng)設(shè)計(jì)“計(jì)算奇數(shù)和計(jì)算奇數(shù)和”窗體。窗體樣式如下圖所示。窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、在文本框、在文本框Text1中輸入一個(gè)較小的整數(shù)，在中輸入一個(gè)較小的整數(shù)，在Text2中輸中輸入一個(gè)較大的整數(shù)，單擊入一個(gè)較大的整數(shù)，單擊“計(jì)算計(jì)算”按鈕，在按鈕，在Text3中顯中顯示介于這兩個(gè)數(shù)（包

14、括這兩個(gè)數(shù)）之間的所有奇數(shù)之和；示介于這兩個(gè)數(shù)（包括這兩個(gè)數(shù)）之間的所有奇數(shù)之和；2、單擊、單擊“退出退出”按鈕，退出按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院FPrivate Sub cmd1_Click() Dim x As Integer, y As Integer, I As Integer, sum As Integer x = text1.Value y = text2.Value sum = 0 For I = x To y If I Mod 2 = 1 Then sum = sum + I End If Ne

15、xt I text3.Value = sumEnd Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院G1、在文本框、在文本框Text1中輸入正整數(shù)中輸入正整數(shù)N，單擊，單擊“確定確定”按按鈕后，產(chǎn)生鈕后，產(chǎn)生10個(gè)大于個(gè)大于N的最小素?cái)?shù)并在文本框的最小素?cái)?shù)并在文本框Text2中顯示出來(lái)。中顯示出來(lái)。 注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)補(bǔ)充完整。注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)補(bǔ)充完整。2、單擊、單擊“退出退出”按鈕，退出按鈕，退出ACCESS。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院GFunction prim

16、e(x As Integer) As Boolean 素?cái)?shù)判斷函數(shù)素?cái)?shù)判斷函數(shù) Dim i As Integer, f As Boolean f = True For i = 2 To x - 1 Step 1 If x Mod i = 0 Then f = False Exit For End If Next i prime = fEnd Function下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院GPrivate Sub Command1_Click() Dim str As String, i As Integer, x As Integer

17、str = i = 1 x = text1 + 1 Do While i = 10 If Then 若若 x是素?cái)?shù)是素?cái)?shù) str = str & x & 素?cái)?shù)的個(gè)數(shù)加素?cái)?shù)的個(gè)數(shù)加1 End If x = x + 1 Loop 在文本框在文本框Text2中顯示結(jié)果中顯示結(jié)果End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院H已經(jīng)設(shè)計(jì)已經(jīng)設(shè)計(jì)“大賽評(píng)分大賽評(píng)分”窗體。窗體樣式如下圖所示。窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、某次大獎(jiǎng)賽有、某次大獎(jiǎng)賽有7個(gè)評(píng)委同時(shí)為一個(gè)選手打分。通過(guò)個(gè)評(píng)

18、委同時(shí)為一個(gè)選手打分。通過(guò)InputBox函數(shù)函數(shù)輸入分?jǐn)?shù)并顯示在文本框輸入分?jǐn)?shù)并顯示在文本框Text1中，單擊中，單擊“統(tǒng)計(jì)統(tǒng)計(jì)”按鈕后去掉一個(gè)按鈕后去掉一個(gè)最高分和一個(gè)最低分，其余最高分和一個(gè)最低分，其余5個(gè)分?jǐn)?shù)的平均值為該選手的最后得分，個(gè)分?jǐn)?shù)的平均值為該選手的最后得分，并將計(jì)算結(jié)果顯示在相應(yīng)文本框中。并將計(jì)算結(jié)果顯示在相應(yīng)文本框中。 注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)?jiān)谙聞澗€處補(bǔ)充完整。注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)?jiān)谙聞澗€處補(bǔ)充完整。2、單擊、單擊“退出退出”按鈕，退出按鈕，退出ACCESS。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院HPriva

19、te Sub Command1_Click()Dim str As String, max As Double, min As Double, avg As DoubleDim i As Integer, x As DoubleText1 = Text2 = Text3 = Text4 = str = max = 0min = 100avg = 0i = 1下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院HDo While i max Then max = x If x min Then avg = avg + x i = i + 1Loop下一頁(yè)下一頁(yè)

20、返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院HText1 = stravg = (avg - max - min)Text2 = maxText3 = minText4 = 顯示得分顯示得分End Subavg / 5下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院I考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“判斷閏年”窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、在txtIn文本框中輸入一個(gè)四位年份，單擊“判斷”按鈕，判斷輸入的年份是否是閏年。如果是閏年，在txtOut文本框中顯示“是閏年”，否

21、則顯示“不是閏年”； 提示：閏年是指能被4整除但不能被100整除或者能被400整除的年份2、單擊“清除”按鈕，將txtIn和txtOut文本框清空；3、單擊“退出”按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 Private Sub btnC_Click() Dim year As Integer year = txtIn.Value If year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Then txtOut.Value = 是閏年是閏年 Else: txtOut.

22、Value = 不是閏年不是閏年 End If End Sub Private Sub btnQ_Click() DoCmd.Quit End Sub Private Sub BtnS_Click() txtIn.Value = txtOut.Value = End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院J考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“求和”窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、在txtA和txtB兩個(gè)文本框中分別輸入一個(gè)整數(shù)，單擊“計(jì)算”按鈕，在txtC文本框中顯示這兩個(gè)整數(shù)之間的所有數(shù)字

23、之和；2、單擊“退出”按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 Private Sub 命令0_Click() Dim Sum as integer, X as integer, y as integer, i as integer Sum=0 X=txta.value Y=txtb.value for i=x to y Sum= Sum + i next i Txtc.value=Sum End Sub 下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院KAACBBX2412AACB

24、BX2422考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“解一元二次方程”窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、單擊“確定”按鈕，根據(jù)以下規(guī)則求解方程的根。當(dāng)A為0時(shí)，在文本框X1和X2中顯示“數(shù)據(jù)非法”；當(dāng)A不為0且0時(shí)，在X1和X2中顯示“實(shí)數(shù)范圍內(nèi)無(wú)解”；當(dāng)A不為0且0時(shí)，根據(jù)公式求根，； 提示：代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)先刪除下劃線然后在該處補(bǔ)充完整。2、單擊“清空”按鈕，將所有文本框內(nèi)容清除；3、單擊“退出”按鈕，退出ACCESS。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Private Sub Cmd1_Cli

25、ck()a = Val(TxtA.Value)b = Val(TxtB.Value)c = Val(TxtC.Value) 如果如果a為為0X1 = 數(shù)據(jù)非法數(shù)據(jù)非法X2 = 數(shù)據(jù)非法數(shù)據(jù)非法ElseIf b * b - 4 * a * c 0 Then 給給X1,X2賦賦b * b - 4 * a * c 0時(shí)的值時(shí)的值ElseX1 = (-b + Sqr(b * b - 4 * a * c) / (2 * a) 給給X2賦另一個(gè)實(shí)數(shù)解賦另一個(gè)實(shí)數(shù)解End IfEnd Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院L考生文件夾下有一個(gè)Sampl

26、e4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“教師”表和“職稱信息統(tǒng)計(jì)”窗體。如下圖所示： 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、當(dāng)單擊窗體中的統(tǒng)計(jì)按鈕時(shí)，則從教師表中統(tǒng)計(jì)出各類職稱人數(shù)，然后將統(tǒng)計(jì)結(jié)果分別填入文本框中； 提示：代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)先刪除下劃線然后在該處補(bǔ)充完整。2、單擊“退出”按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 連接對(duì)象 Dim rs As New ADODB.Recordset 記錄集對(duì)象 Dim ZhiChen

27、g As ADODB.Field 職稱字段 Dim I_JiaoShou As Integer, I_FuJiaoShou As Integer, I_JiangShi As Integer, I_ZhuJiao As Integer 定義存放各類職稱人數(shù)的變量 Set cn = CurrentProject.Connection rs.Open 教師, cn, adOpenDynamic, adLockOptimistic, adCmdTable Set ZhiCheng = rs.Fields(職稱)下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院

28、初始化存放各類職稱人數(shù)的變量初始化存放各類職稱人數(shù)的變量 I_JiaoShou = 0 I_FuJiaoShou = 0 I_JiangShi = 0 I_ZhuJiao = 0 rs.MoveFirst Do While Not rs.EOF 遍歷教師表遍歷教師表 If ZhiCheng = 教授教授 Then I_JiaoShou = I_JiaoShou + 1 End If If ZhiCheng = 副教授副教授 Then I_FuJiaoShou = _ End If If ZhiCheng = 講師講師 Then I_JiangShi = _ End If If ZhiCheng

29、 = 助教助教 Then I_ZhuJiao = I_ZhuJiao + 1 End If rs _ 記錄指針向下移動(dòng)記錄指針向下移動(dòng) Loop下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 將各類職稱人數(shù)的數(shù)據(jù)填入文本框中將各類職稱人數(shù)的數(shù)據(jù)填入文本框中 Text_jiaoshou =_ Text_fujiaoshou =_ Text_jiangshi =_ Text_zhujiao =_ rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access

30、數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院M考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“學(xué)生”表和“信息統(tǒng)計(jì)”窗體。如下圖所示： 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：1、當(dāng)單擊窗體中的“統(tǒng)計(jì)”按鈕時(shí)，則從學(xué)生表中統(tǒng)計(jì)出男、女生平均年齡，然后將統(tǒng)計(jì)結(jié)果分別填入文本框中； 提示：代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)先刪除下劃線然后在該處補(bǔ)充完整。2、單擊“退出”按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 連接對(duì)象連接對(duì)象 Dim

31、 rs As New ADODB.Recordset 記錄集對(duì)象記錄集對(duì)象 Dim SEX As ADODB.Field 性別字段性別字段 Dim AGE As ADODB.Field 年齡字段年齡字段 Dim I_NanSheng As Integer, I_NvSheng As Integer 定義存放男、女生人數(shù)的變定義存放男、女生人數(shù)的變量量 Dim I_NanShengSum As Integer, I_NvShengSum As Integer 定義存放男、女生年齡定義存放男、女生年齡總數(shù)的變量總數(shù)的變量 Set cn = CurrentProject.Connection rs.

32、Open 學(xué)生學(xué)生, cn, adOpenDynamic, adLockOptimistic, adCmdTable Set SEX = rs.Fields(性別性別) Set AGE = rs.Fields(年齡年齡) 初始化存放男、女生人數(shù)的變量初始化存放男、女生人數(shù)的變量 I_NanSheng = 0 I_NvSheng = 0 初始化存放男、女生年齡總數(shù)的變量初始化存放男、女生年齡總數(shù)的變量 I_NanShengSum = _ I_NvShengSum = _下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 rs _ 遍歷學(xué)生表前，應(yīng)定位到第一條

33、記錄遍歷學(xué)生表前，應(yīng)定位到第一條記錄上上 Do While Not rs.EOF 遍歷學(xué)生表遍歷學(xué)生表 If SEX = 男男 Then 統(tǒng)計(jì)男生統(tǒng)計(jì)男生 I_NanSheng = I_NanSheng + 1 I_NanShengSum = I_NanShengSum + AGE End If If _ Then 統(tǒng)計(jì)女生統(tǒng)計(jì)女生 I_NvSheng = I_NvSheng + 1 I_NvShengSum = I_NvShengSum + AGE End If rs.MoveNext 記錄指針向下移動(dòng)記錄指針向下移動(dòng) Loop 將平均年齡填入合適文本框中將平均年齡填入合適文本框中 Text

34、_NanSheng =_ Text_NvSheng =_ rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 考生文件夾下有一個(gè)考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“圖形輸出圖形輸出”窗體。窗體樣式如下圖所示。窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序： 1、單擊、單擊“直角三角形直角三角形”按鈕時(shí)，在按鈕時(shí)，在Text1文本框中輸出一個(gè)直角文本框中輸出一個(gè)直角三角形，

35、行數(shù)通過(guò)隨機(jī)數(shù)產(chǎn)生；三角形，行數(shù)通過(guò)隨機(jī)數(shù)產(chǎn)生； 2、單擊、單擊“等腰三角形等腰三角形”按鈕時(shí)，在按鈕時(shí)，在Text1文本框中輸出一個(gè)等腰文本框中輸出一個(gè)等腰三角形，行數(shù)通過(guò)隨機(jī)數(shù)產(chǎn)生；三角形，行數(shù)通過(guò)隨機(jī)數(shù)產(chǎn)生； (提示：以上事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)先刪除下劃線然后在該提示：以上事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)先刪除下劃線然后在該處補(bǔ)充完整，不得刪除或修改其他內(nèi)容處補(bǔ)充完整，不得刪除或修改其他內(nèi)容) 3、編寫、編寫“退出退出”按鈕事件代碼，要求單擊后退出按鈕事件代碼，要求單擊后退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Private S

36、ub Cmd1_Click() _ i As Integer, n As Integer 變量定義變量定義 n = Int(10 * Rnd() + 1 產(chǎn)生一個(gè)大于等于產(chǎn)生一個(gè)大于等于1且小于且小于10的隨機(jī)整數(shù)的隨機(jī)整數(shù),代表直角三角形的行數(shù)代表直角三角形的行數(shù) Text1 = For i = 1 To _ 輸出輸出n行行 For j = 1 To i Text1 = Text1 & * Next j Text1 = Text1 & vbNewLine Next iEnd SubPrivate Sub Cmd2_Click() Dim i As Integer, m As

37、Integer _ = Int(10 * Rnd() + 1 產(chǎn)生一個(gè)大于等于產(chǎn)生一個(gè)大于等于1且小于且小于10的隨機(jī)整數(shù)的隨機(jī)整數(shù),代表等腰三角形的行數(shù)代表等腰三角形的行數(shù) Text1 = For i = 1 To m For j = 1 To m - i 輸出若干空格輸出若干空格 Text1 = Text1 & Next j For j = 1 To 2 * i - 1 輸出若干輸出若干* Text1 = Text1 & * Next j Text1 = Text1 & vbNewLine _ 循環(huán)結(jié)束循環(huán)結(jié)束End Subdimnmnext i下一頁(yè)下一頁(yè)返回返回

38、上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 考生文件夾下有一個(gè)考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“評(píng)選最佳理評(píng)選最佳理財(cái)方式財(cái)方式”窗體。窗體樣式如下圖所示：窗體。窗體樣式如下圖所示： 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序： 1、如果只選中一個(gè)理財(cái)方式選項(xiàng)，單擊、如果只選中一個(gè)理財(cái)方式選項(xiàng)，單擊“投票投票”按鈕，則顯示按鈕，則顯示“謝謝謝您的投票謝您的投票”； 2、如果選中多個(gè)理財(cái)方式選項(xiàng)，單擊、如果選中多個(gè)理財(cái)方式選項(xiàng)，單擊“投票投票”按鈕，則顯示按鈕，則顯示“最佳最佳理財(cái)方式只能有一個(gè)，請(qǐng)重新選擇理財(cái)方式只能有一

39、個(gè)，請(qǐng)重新選擇”； 3、如果沒(méi)有選擇理財(cái)方式，單擊、如果沒(méi)有選擇理財(cái)方式，單擊“投票投票”按鈕，則顯示按鈕，則顯示“請(qǐng)選擇一請(qǐng)選擇一個(gè)最佳理財(cái)方式個(gè)最佳理財(cái)方式”； 提示：使用提示：使用MsgBox函數(shù)顯示相關(guān)文本信息。函數(shù)顯示相關(guān)文本信息。 4、單擊、單擊“關(guān)閉關(guān)閉”按鈕，退出按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 Private Sub Form_Load() Me.check1.Value = 0 Me.check2.Value = 0 Me.Check3.Value = 0 Me.Check4.Value = 0

40、 Me.Check5.Value = 0 Me.Check6.Value = 0 End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 Private Sub cmd1_Click() check1.Value + check2.Value + Check3.Value + Check4.Value + Check5.Value + Check6.Value = -1 MsgBox 謝謝您的投票謝謝您的投票 check1.Value + check2.Value + Check3.Value + Check4.Value + Check5.Va

41、lue + Check6.Value -1 MsgBox “最佳理財(cái)方式只能有一個(gè)，請(qǐng)重新選擇最佳理財(cái)方式只能有一個(gè)，請(qǐng)重新選擇 MsgBox “請(qǐng)選擇一個(gè)最佳理財(cái)方式請(qǐng)選擇一個(gè)最佳理財(cái)方式 End Sub Private Sub cmd2_Click() DoCmd.Quit End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 考生文件夾下有一個(gè)考生文件夾下有一個(gè)Sample4.mdb數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)數(shù)據(jù)庫(kù)，已經(jīng)設(shè)計(jì)“選選擇計(jì)算擇計(jì)算”窗體。窗體樣式如下圖所示。窗體。窗體樣式如下圖所示。 請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：請(qǐng)按以下要求設(shè)計(jì)相關(guān)程序：

42、 1、通過(guò)在、通過(guò)在“輸入整數(shù)輸入整數(shù)”文本框中輸入一個(gè)整數(shù)，如果選擇文本框中輸入一個(gè)整數(shù)，如果選擇“求累加和求累加和”單選項(xiàng)，則單擊單選項(xiàng)，則單擊“計(jì)算計(jì)算”按鈕后，按鈕后，“結(jié)果結(jié)果”文本框中顯示從文本框中顯示從1到該整數(shù)之間所有整數(shù)的累加和。如果選到該整數(shù)之間所有整數(shù)的累加和。如果選擇擇“求階乘求階乘”單選項(xiàng)，則單擊單選項(xiàng)，則單擊“計(jì)算計(jì)算”按鈕后，按鈕后，“結(jié)果結(jié)果”文本框中顯示該整數(shù)的階乘。文本框中顯示該整數(shù)的階乘。 2、單擊、單擊“退出退出”按鈕，退出按鈕，退出Access。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院 Private S

43、ub btnc_Click() Dim N As Integer, I As Integer, sum As Integer N = inp.Value If Frame1.Value = 1 Then sum = 0 For I = 1 To N sum = sum + I Next I End If If Frame1.Value = 2 Then sum = 1 For I = 1 To N sum = sum * I Next I End If Out.Value = sum End Sub下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院2100

44、年不是閏年下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院10次512下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院計(jì)算個(gè)人所得稅，基本工資和獎(jiǎng)金之和大于2000，征收超出部分的5的稅。并顯示所得稅最多的人是誰(shuí)。消息框顯示的內(nèi)容是：“李小龍的個(gè)人所得稅最多，是150元”下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)

45、合肥學(xué)院合肥學(xué)院Private Sub pro() Dim A(1 To 10) As Single, I As Integer, sum As Single sum = 0 For I = 1 To 10 A(I) = Val(InputBox(請(qǐng)輸入第請(qǐng)輸入第 & I & 個(gè)數(shù)個(gè)數(shù)) sum = sum + A(I) Next I MsgBox “這十個(gè)數(shù)的平均值是這十個(gè)數(shù)的平均值是” & sum / 10End sub 下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)

46、數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Private sub command1_Click()Dim N As Integer, s As Integer, I As Integer, sum As Integer N = Text1.Value sum = 0 If Frame1.Value = 1 Then For I = 1 To N Step 2 sum = sum + I Next I End If If Frame1.Value = 2 Then For I = 2 To N Step 2 sum = sum + I Next IEnd IfText2.Value = sumEnd sub

47、下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院Exit Dors.MoveNextxm=Text2rs.Updatecn.Close下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院G1、在文本框、在文本框Text1中輸入正整數(shù)中輸入正整數(shù)N，單擊，單擊“確定確定”按按鈕后，產(chǎn)生鈕后，產(chǎn)生10個(gè)大于個(gè)大于N的最小素?cái)?shù)并在文本框的最小素?cái)?shù)并在文

48、本框Text2中顯示出來(lái)。中顯示出來(lái)。 注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)補(bǔ)充完整。注：事件代碼已經(jīng)部分設(shè)計(jì)，請(qǐng)補(bǔ)充完整。2、單擊、單擊“退出退出”按鈕，退出按鈕，退出ACCESS。下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院GFunction prime(x As Integer) As Boolean 素?cái)?shù)判斷函數(shù)素?cái)?shù)判斷函數(shù) Dim i As Integer, f As Boolean f = True For i = 2 To x - 1 Step 1 If x Mod i = 0 Then f = False Exit For End If Next i prime = fEnd Function下一頁(yè)下一頁(yè)返回返回上一頁(yè)上一頁(yè)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)數(shù)據(jù)庫(kù)程序設(shè)計(jì)合肥學(xué)院合肥學(xué)院G