二級Access考試程序設(shè)計題技巧

1、1、給輸入的內(nèi)容給出判斷：練習(xí)冊六：在考生文件夾下打開Access數(shù)據(jù)庫prog0214.mdb，在窗體FormGrade中，編寫“等級”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：根據(jù)下表，將由文本框Text1輸入成績對應(yīng)的等級顯示有文本框Text2中。Dim a As IntegerDim s As Stringa = Text1If a >= 0 And a <= 100 ThenIf a >= 90 Thens = "A"ElseIf a >= 75 Thens = "B"ElseIf a >= 60 Thens = &q

2、uot;C"Elses = "D"End IfText2 = sEnd If練習(xí)冊八：在考生文件夾下打開Access數(shù)據(jù)庫prog0216.mdb。在窗體FormNumber中，編寫“位數(shù)”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：在文本框Text1中輸入一個不超過4位的正整數(shù)，判斷它的位數(shù)，結(jié)果顯示在文本框Text2中。Dim a As Integer, b As Integera = Text1If a > 0 And a < 1000 ThenIf a >= 100 Thenb = 3ElseIf a >= 10 Then b = 2El

3、seb = 1End IfEnd IfText2 = b例1：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體djzh上“成績等級”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：當(dāng)成績小于0或大于100，顯示“非法數(shù)據(jù)”，否則按如下規(guī)則轉(zhuǎn)換：成績85：優(yōu)秀60成績<85 ：合格 成績<60 ：不合格Dim cj As Single, dj As String cj = Text1.Value Select Case cj Case 85 To 100 dj = "優(yōu)秀" Case 60 To 84 dj = "合格" Case 0 To 59

4、 dj = "不合格" Case Else dj = "非法數(shù)據(jù)" End SelectText2.Value = dj例2：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體leapyear上“是否閏年”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：輸入一個日期，單擊“是否閏年”按鈕，根據(jù)判斷結(jié)果顯示“是閏年”或“不是閏年”。 ( 參見P218 字符串轉(zhuǎn)換日期函數(shù)DateValue )閏年的條件是：年份能被4整除但不能被100整除，或能被400整除。 Dim y As Integer y = Year(DateValue(Text1.Value) If

5、(y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 Then Text2.Value = "是閏年" Else Text2.Value = "不是閏年" End If例3：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體FrmPrime上“判斷素數(shù)”按鈕的單擊事件處理代碼，判斷文本框text1中自然數(shù)是否為素數(shù)（只能被1和本身整除的自然數(shù)），并將判斷結(jié)果顯示在標(biāo)簽Label1中。Dim i As Integer, j As Integer, x As Integer, pd As Str

6、ingx = Text1For i = 2 To x pd = "素數(shù)" For j = 2 To Sqr(i) If i Mod j = 0 Then pd = "不是素數(shù)" End If Next jNext iLabel2.Caption = pd練習(xí)冊三：在考生文件夾下打開Access數(shù)據(jù)庫prog0226.mdb，在窗體FormNum中，編寫“判斷”按鈕的Click事件代碼，實現(xiàn)如下功能：根據(jù)輸入的字符判斷是否為數(shù)字，若是顯示“Yes”，否則顯示“No”。Dim a As Stringa = Text1If a >= "0&qu

7、ot; And a <= "9" ThenText2 = "Yes"ElseText2 = "No"End If例4：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體Judge上“判斷”按鈕的單擊事件處理代碼，判斷文本框text1中字符是否是數(shù)字，并將判斷結(jié)果顯示在標(biāo)簽Label1中。Dim C As String C = Text1.Value If C >= "0" And C <= "9" Then Label1.Caption = C & "是

8、數(shù)字!" Else Label1.Caption = C & "是其它字符!" End If例5：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體qsws的“求三位數(shù)字”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：在text1輸入一個三位正整數(shù)，單擊“求三位數(shù)字”按鈕，分別在text2、text3、text4上顯示其百位數(shù)字、十位數(shù)字和個位數(shù)字；若輸入的整數(shù)不足三位，則退出窗體。 a = Text1.Value If a < 100 Or a > 999 Then DoCmd.Close Else gw = Int(a / 1) Mod 10

9、 sw = Int(a / 10) Mod 10 bw = Int(a / 100) Mod 10 Text2.Value = bw Text3.Value = sw Text4.Value = gw End If2、對輸入的兩個值進行運算或判斷：練習(xí)冊一：在考生文件夾下打開Access數(shù)據(jù)庫prog0224.mdb，按圖在窗體FormJudge中，編寫“判斷”按鈕的Click事件代碼，實現(xiàn)如下功能：根據(jù)輸入的三條邊長a、b、c，判斷能否構(gòu)成三角形，如果可以，顯示“Yes”，否則顯示“No”。Dim a As Integer, b As Integer, c As Integera = Tex

10、t1b = Text2c = Text3If (a + b) > c And (a + c) > b And (b + c) > a ThenText4 = "Yes"ElseText4 = "No"End If例1：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體Compare上“比較”按鈕的單擊事件處理代碼，判斷文本框Text1、Text2中兩個數(shù)的大小，將比較結(jié)果（a<b,a=b,a>b）顯示在標(biāo)簽Label1中。Dim a As Integer, b As Integer a = Text1.Value b

11、= Text2.Value If a > b Then Label1.Caption = "a>b" ElseIf a = b Then Label1.Caption = "a=b" Else Label1.Caption = "a<b" End If例2：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體sumnum上“求和”按鈕的單擊事件處理代碼，實現(xiàn)計算區(qū)間M,N中所有整數(shù)的和，M和N的值分別于文本框Text1、Text2中輸入，結(jié)果顯示在標(biāo)簽Label1中。 Dim m As Integer, n As

12、 Integer, sum As Long m = Text1.Value n = Text2.Value sum = 0 For i = m To n sum = sum + i Next iLabel1.Caption = sum3、對輸入的值進行變化練習(xí)冊七：在考生文件夾下打開Access數(shù)據(jù)庫prog0215.mdb。在窗體FormTime中，編寫“12小時制”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：按文本框Text1中輸入24小時制的時間，轉(zhuǎn)換為12小時制時間，結(jié)果顯示在文本框Text2中。Dim a As Integer, b As Stringa = hour(Text1)If a

13、 >= 0 And a <= 24 ThenIf a < 12 Thenb = Text1 & "AM"Elseb = (hour(Text1) - 12) & ":" & minute(Text1) & "PM"End IfText2 = bEnd If練習(xí)冊五：在考生文件夾下打開Access數(shù)據(jù)庫prog0228.mdb。在窗體FormPick中，編寫“提取”按鈕的Click事件代碼，實現(xiàn)如下功能：根據(jù)輸入的字符串s，順序提取s中的數(shù)字并顯示在Label2中。Dim s As St

14、ring, a As String, b As StringDim n As Integers = Trim(Text1.Value)n = Len(s)For i = 1 To na = Mid(s, i, 1)If a >= "0" And a <= "9" Thenb = b & aEnd IfNext iLabel2.Caption = b例1：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體forminvt中的“逆序”按鈕的單擊事件處理代碼，將文本框Text1中輸入的字符串逆序顯示在文本框Text2中。Dim s A

15、s String, i As Integer, a As Strings = Text1i = 1j = Len(s)While i < ja = Mid(s, i, 1)Mid(s, i, 1) = Mid(s, j, 1)Mid(s, j, 1) = ai = i + 1j = j - 1WendText2 = s4、對輸入的數(shù)值進行計算練習(xí)冊二：在考生文件夾下打開Access數(shù)據(jù)庫prog0225.mdb，在窗體FormSec中，編寫“Y=”按鈕的Click事件代碼，實現(xiàn)如下功能：按輸入的X值，根據(jù)以下分段函數(shù)計算Y的值。x = Text1If x >= 0 Theny =

16、x 2 + 8Elsey = 2 * x - 5End IfText2 = y練習(xí)冊十：在考生文件夾下打開Access數(shù)據(jù)庫prog0218.mdb。在窗體FormChange中，編寫“轉(zhuǎn)化”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：分別在在文本框Text1和Text2中輸入1，9區(qū)間內(nèi)的整數(shù)數(shù)n，a，將它們轉(zhuǎn)化為數(shù)值aaaaaaaa（n個a），結(jié)果顯示在文本框Text3中。Dim a As Integer, b As String, c As Stringa = Text1b = Text2If (a >= 1 And a <= 9) And (b >= 1 And b <

17、;= 9) Thenc = String(a, b)Text3 = cEnd If例1：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體calc上“計算”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：根據(jù)文本框Text1中輸入的X值，計算如下分段函數(shù)的值，結(jié)果顯示在Text2中。 Dim x As Single, y As Single x = Text1.Value Select Case x Case Is <= -10 y = 2 * (Sin(x) + 1) Case Is <= 10 y = (Abs(x) - 5) / 3 Case Else y = x / 7 - 8

18、 End Select Text2.Value = y例2：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體section上命令按鈕“Y=”的單擊事件處理代碼，實現(xiàn)對下列分段函數(shù)的計算，X的值于文本框Text1輸入，Y值顯示在標(biāo)簽Label1中。 Dim x As Single, y As Single x = Text1.Value If x >= 10 Then y = x 2 + 1 Else y = x + 1 End If Label1.Caption = y例3：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體areaorgirth上的組合款的change事件

19、處理代碼，實現(xiàn)依據(jù)組合框中選擇“計算面積”和“計算周長”，計算圓的面積或周長，圓的半徑由文本框Text1輸入，計算結(jié)果顯示在標(biāo)簽Text2中。Dim r As Single, c As Single Const PI = 3.14159 r = Text1.Value If Combo1.Value = "計算面積" Then c = PI * r * r Else c = 2 * PI * r End If Text2.Value = c例4：打開Access數(shù)據(jù)庫“所用文件.mdb”。對窗體tstj，編寫“計算”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：（1）若兩種商品的總

20、計金額小于300，按原價付款，否則打九折；（2）實際付款額四舍五入取整。dj1 = Text1.Value sl1 = Text2.Value dj2 = Text3.Value sl2 = Text4.Value fke = dj1 * sl1 + dj2 * sl2 If fke > 300 Then fke = fke * 0.9 End If Text5.Value = Round(fke, 0)5、利用循環(huán)遍歷輸入的字符或數(shù)字的每一位，做出運算或判斷練習(xí)冊四：在考生文件夾下打開Access數(shù)據(jù)庫prog0227.mdb。在窗體FormSum中，編寫“求和”按鈕的Click事件代

21、碼，實現(xiàn)如下功能：根據(jù)輸入的整數(shù)n，計算1+22+32+42+······+n2的值。Dim n As IntegerDim s As Longn = Text1s = 0For i = 1 To ns = i 2 + sNext iLabel2.Caption = s例1：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體szzh的“計算”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：求一個三位正整數(shù)的各位數(shù)字之和，若輸入的整數(shù)小于100或大于999，則顯示“輸入有誤”。Dim num As Integer num = Text1.V

22、alue If num > 999 Or num < 100 Then jg = "輸入有誤" Else gw = Int(num / 1) Mod 10 sw = Int(num / 10) Mod 10 bw = Int(num / 100) Mod 10 jg = gw + sw + bw End If Text2.Value = jg例2：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體fszs的“非數(shù)字字符個數(shù)”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：輸入一個字符串，單擊“非數(shù)字字符個數(shù)”按鈕，統(tǒng)計字符串中包含的非數(shù)字字符個數(shù)（不計字符串前后的空

23、格），并將結(jié)果顯示在Text2文本框中。s = Trim(Text1.Value) n = Len(s) js = 0 For i = 1 To n c = Mid(s, i, 1) If Not (c >= "0" And c <= "9") Then js = js + 1 End If Next i Text2.Value = js練習(xí)冊九：在考生文件夾下打開Access數(shù)據(jù)庫prog0217.mdb。在窗體FormMult中，編寫“計算”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：在文本框Text1中輸入一個偶數(shù)n（n<20），計算2

24、*4*6*8*n的值，結(jié)果顯示在文本框Text2中。Dim i As Integer, a As Long, n As Integern = Text1If (n < 20) And (n Mod 2 = 0) Thena = 1i = 2While i <= na = i * ai = i + 2WendText2 = aEnd If例3：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體CalChar上“統(tǒng)計”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：在文本框Text1中輸入一字符串，單擊“統(tǒng)計”按鈕，將在文本框Text2中顯示該字符串的非空格字符的個數(shù)。 Dim count

25、 As Integer, i As Integer, s As String, x As String count = 0 s = Text1.Value For i = 1 To Len(s) x = Mid(s, i, 1) If x <> Space(1) Then count = count + 1 End If Next i Text2.Value = count例4：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體stfn上“偶數(shù)字符串”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：在Text1中輸入一個字符串，單擊“偶數(shù)字符串”按鈕，在Text2中顯示刪去其他字符后的

26、偶數(shù)字符串。Dim s As String, n As Integer, i As Integer Dim c As String, zfc As String s = Text1.Value n = Len(s) zfc = "" For i = 1 To n c = Mid(s, i, 1) If c >= "0" And c <= "9" Then If c Mod 2 = 0 Then zfc = zfc + c End If End If Next i Text2.Value = zfc例5：打開Access數(shù)據(jù)

27、庫“所用文件.mdb”。要求編寫窗體tjyw上“統(tǒng)計英文字母個數(shù)”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：輸入一個字符串，單擊“統(tǒng)計英文字母個數(shù)”按鈕，在Text2文本框中顯示該字符串中英文字母的個數(shù)。s = Text1.Valuen = Len(s)js = 0For i = 1 To n c = Mid(s, i, 1) If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then js = js + 1 End IfNext iText2.

28、Value = js注：如果題目改為統(tǒng)計非數(shù)字字符個數(shù)，則改為If Not (c >= "0" And c <= "9") Then例6：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體factor上“因子個數(shù)”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：輸入一個正整數(shù)，單擊“因子個數(shù)”按鈕，顯示該數(shù)的因子個數(shù)。數(shù)n的因子是指除本身外能夠整除n的數(shù)。如6的因子有：1，2，3；10的因子有：1，2，5。Dim number As Integer, count As Integer, i As Integer number = Text1.Va

29、lue count = 0 For i = 1 To number - 1 If number Mod i = 0 Then count = count + 1 End If Next i Text2.Value = count例7：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體sszh上“計算”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：計算從1到該數(shù)之間（含該數(shù)）的所有素數(shù)之和，結(jié)果顯示在Text2中。注：素數(shù)是指只能被1和本身整除的數(shù)。 x = Text1.Value s = 0 For i = 2 To x pd = True For j = 2 To Sqr(i) If i Mo

30、d j = 0 Then pd = False End If Next j If pd Then s = s + i End If Next iText2.Value = s注：題目改為統(tǒng)計1到該數(shù)之間所有素數(shù)的個數(shù)，則改為s=s+1例8：打開Access數(shù)據(jù)庫“所用文件.mdb”。要求編寫窗體js3上“計算”按鈕的單擊事件處理代碼，實現(xiàn)如下功能：在文本框Text1中輸入一個正整數(shù)后，單擊“計算”按鈕，計算1到該數(shù)之間（含該數(shù)）的奇數(shù)和，結(jié)果顯示在Text2中。a = Text1.Valuejsh = 0For i = 1 To a If i Mod 2 <> 0 Then jsh = jsh + i End IfNext iText2.Value = jsh注：如果題目改為偶數(shù)，則改為If i Mod 2 = 0 Then例9：打開A