2023年二级Access考试程序设计题技巧.doc

《2023年二级Access考试程序设计题技巧.doc》由会员分享，可在线阅读，更多相关《2023年二级Access考试程序设计题技巧.doc（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1、给输入内容给出判断：练习册六：在考生文献夹下打开Access数据库prog0214.mdb，在窗体FormGrade中，编写“级别”按钮单击事件解决代码，实现如下功能：依照下表，将由文本框Text1输入成绩相应级别显示有文本框Text2中。Dim a As IntegerDim s As Stringa = Text1If a = 0 And a = 90 Thens = AElseIf a = 75 Thens = BElseIf a = 60 Thens = CElses = DEnd IfText2 = sEnd If练习册八：在考生文献夹下打开Access数据库prog0216.m

2、db。在窗体FormNumber中，编写“位数”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一种不超过4位正整数，判断它位数，成果显示在文本框Text2中。Dim a As Integer，b As Integera = Text1If a 0 And a = 100 Thenb = 3ElseIf a = 10 Then b = 2Elseb = 1End IfEnd IfText2 = b例1：打开Access数据库“所用文献.mdb”。规定编写窗体djzh上“成绩级别”按钮单击事件解决代码，实现如下功能：当成绩不大于0或不不大于100，显示“非法数据”，否则按如下规则转换

3、：成绩85：先进60成绩85 ：合格 成绩60 ：不合格Dim cj As Single，dj As String cj = Text1.Value Select Case cj Case 85 To 100 dj = 先进 Case 60 To 84 dj = 合格 Case 0 To 59 dj = 不合格 Case Else dj = 非法数据 End SelectText2.Value = dj例2：打开Access数据库“所用文献.mdb”。规定编写窗体leapyear上“与否闰年”按钮单击事件解决代码，实现如下功能：输入一种日期，单击“与否闰年”按钮，依照判断成果显示“是闰年”或“

4、不是闰年”。 ( 参见P218 字符串转换日期函数DateValue )闰年条件是：年份能被4整除但不能被100整除，或能被400整除。 Dim y As Integer y = Year(DateValue(Text1.Value) If (y Mod 4 = 0 And y Mod 100 0) Or y Mod 400 = 0 Then Text2.Value = 是闰年 Else Text2.Value = 不是闰年 End If例3：打开Access数据库“所用文献.mdb”。规定编写窗体FrmPrime上“判断素数”按钮单击事件解决代码，判断文本框text1中自然数与否为素数（只能

5、被1和自身整除自然数），并将判断成果显示在标签Label1中。Dim i As Integer，j As Integer，x As Integer，pd As Stringx = Text1For i = 2 To x pd = 素数 For j = 2 To Sqr(i) If i Mod j = 0 Then pd = 不是素数 End If Next jNext iLabel2.Caption = pd练习册三：在考生文献夹下打开Access数据库prog0226.mdb，在窗体FormNum中，编写“判断”按钮Click事件代码，实现如下功能：依照输入字符判断与否为数字，若是显示“Ye

6、s”，否则显示“No”。Dim a As Stringa = Text1If a = 0 And a = 0 And C = 9 Then Label1.Caption = C & 是数字! Else Label1.Caption = C & 是其他字符! End If例5：打开Access数据库“所用文献.mdb”。规定编写窗体qsws“求三位数字”按钮单击事件解决代码，实现如下功能：在text1输入一种三位正整数，单击“求三位数字”按钮，分别在text2、text3、text4上显示其百位数字、十位数字和个位数字；若输入整数局限性三位，则退出窗体。 a = Text1.Value If a

7、 999 Then DoCmd.Close Else gw = Int(a / 1) Mod 10 sw = Int(a / 10) Mod 10 bw = Int(a / 100) Mod 10 Text2.Value = bw Text3.Value = sw Text4.Value = gw End If2、对输入两个值进行运算或判断：练习册一：在考生文献夹下打开Access数据库prog0224.mdb，按图在窗体FormJudge中，编写“判断”按钮Click事件代码，实现如下功能：依照输入三条边长a、b、c，判断能否构成三角形，假如可以，显示“Yes”，否则显示“No”。Dim a

8、 As Integer，b As Integer，c As Integera = Text1b = Text2c = Text3If (a + b) c And (a + c) b And (b + c) a ThenText4 = YesElseText4 = NoEnd If例1：打开Access数据库“所用文献.mdb”。规定编写窗体Compare上“比较”按钮单击事件解决代码，判断文本框Text1、Text2中两个数大小，将比较成果（ab）显示在标签Label1中。Dim a As Integer，b As Integer a = Text1.Value b = Text2.Value

9、 If a b Then Label1.Caption = ab ElseIf a = b Then Label1.Caption = a=b Else Label1.Caption = a= 0 And a = 24 ThenIf a = 0 And a = 9 Thenb = b & aEnd IfNext iLabel2.Caption = b例1：打开Access数据库“所用文献.mdb”。规定编写窗体forminvt中“逆序”按钮单击事件解决代码，将文本框Text1中输入字符串逆序显示在文本框Text2中。Dim s As String，i As Integer，a As Strin

10、gs = Text1i = 1j = Len(s)While i = 0 Theny = x 2 + 8Elsey = 2 * x - 5End IfText2 = y练习册十：在考生文献夹下打开Access数据库prog0218.mdb。在窗体FormChange中，编写“转化”按钮单击事件解决代码，实现如下功能：分别在在文本框Text1和Text2中输入1，9区间内整数数n，a，将它们转化为数值aaaaaaaa（n个a），成果显示在文本框Text3中。Dim a As Integer，b As String，c As Stringa = Text1b = Text2If (a = 1 An

11、d a = 1 And b = 9) Thenc = String(a，b)Text3 = cEnd If例1：打开Access数据库“所用文献.mdb”。规定编写窗体calc上“计算”按钮单击事件解决代码，实现如下功能：依照文本框Text1中输入X值，计算如下分段函数值，成果显示在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 Then y = x 2 + 1 Else y = x + 1 End If Label

12、1.Caption = y例3：打开Access数据库“所用文献.mdb”。规定编写窗体areaorgirth上组合款change事件解决代码，实现根据组合框中选取“计算面积”和“计算周长”，计算圆面积或周长，圆半径由文本框Text1输入，计算成果显示在标签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数据库“所

13、用文献.mdb”。对窗体tstj，编写“计算”按钮单击事件解决代码，实现如下功能：（1）若两种商品总计金额不大于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、运用循环遍历输入字符或数字每一位，做出运算或判断练习册四：在考生文献夹下打开Access数据

14、库prog0227.mdb。在窗体FormSum中，编写“求和”按钮Click事件代码，实现如下功能：依照输入整数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数据库“所用文献.mdb”。规定编写窗体szzh“计算”按钮单击事件解决代码，实现如下功能：求一种三位正整数各位数字之和，若输入整数不大于100或不不大于999，则显示“输入有误”。Dim num As Integer num = Text1

15、.Value If num 999 Or num = 0 And c = 9) Then js = js + 1 End If Next i Text2.Value = js练习册九：在考生文献夹下打开Access数据库prog0217.mdb。在窗体FormMult中，编写“计算”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一种偶数n（n20），计算2*4*6*8*n值，成果显示在文本框Text2中。Dim i As Integer，a As Long，n As Integern = Text1If (n 20) And (n Mod 2 = 0) Thena = 1i =

16、2While i = na = i * ai = i + 2WendText2 = aEnd If例3：打开Access数据库“所用文献.mdb”。规定编写窗体CalChar上“记录”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一字符串，单击“记录”按钮，将在文本框Text2中显示该字符串非空格字符个数。 Dim count 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

17、count = count + 1 End If Next i Text2.Value = count例4：打开Access数据库“所用文献.mdb”。规定编写窗体stfn上“偶数字符串”按钮单击事件解决代码，实现如下功能：在Text1中输入一种字符串，单击“偶数字符串”按钮，在Text2中显示删去其她字符后偶数字符串。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

18、 = 0 And c = a And c = A And c = 0 And c = 9) Then例6：打开Access数据库“所用文献.mdb”。规定编写窗体factor上“因子个数”按钮单击事件解决代码，实现如下功能：输入一种正整数，单击“因子个数”按钮，显示该数因子个数。数n因子是指除自身外可以整除n数。如6因子有：1，2，3；10因子有：1，2，5。Dim number As Integer，count As Integer，i As Integer number = Text1.Value count = 0 For i = 1 To number - 1 If number Mo

19、d i = 0 Then count = count + 1 End If Next i Text2.Value = count例7：打开Access数据库“所用文献.mdb”。规定编写窗体sszh上“计算”按钮单击事件解决代码，实现如下功能：计算从1到该数之间（含该数）所有素数之和，成果显示在Text2中。注：素数是指只能被1和自身整除数。 x = Text1.Value s = 0 For i = 2 To x pd = True For j = 2 To Sqr(i) If i Mod j = 0 Then pd = False End If Next j If pd Then s =

20、s + i End If Next iText2.Value = s注：题目改为记录1到该数之间所有素数个数，则改为s=s+1例8：打开Access数据库“所用文献.mdb”。规定编写窗体js3上“计算”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一种正整数后，单击“计算”按钮，计算1到该数之间（含该数）奇数和，成果显示在Text2中。a = Text1.Valuejsh = 0For i = 1 To a If i Mod 2 0 Then jsh = jsh + i End IfNext iText2.Value = jsh注：假如题目改为偶数，则改为If i Mod 2

21、= 0 Then例9：打开Access数据库“所用文献.mdb”。规定编写窗体qh2上“计算”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一种正整数，单击“计算”按钮，计算从1到该数之间（含该数）能被5整除奇数之和，成果显示在Text2中。 a = Text1.Value jsh = 0 For i = 1 To a If i Mod 2 0 Then If i Mod 5 = 0 Then jsh = jsh + i End If End If Next iText2.Value = jsh注：题目假如改为被3整除偶数之和，则改为 If i Mod 2 = 0 Then和If

22、 i Mod 3 = 0 Then例10：打开Access数据库“所用文献.mdb”。规定编写窗体calcexp上“计算”按钮单击事件解决代码，实现计算等差数列：1，2，N各项和，数列最后一项N由文本框Text1中输入，计算成果显示在标签Label1中。 Dim n As Integer，sum As Integer n = Text1.Value sum = n * 1 + n * (n - 1) / 2Label1.Caption = sum例11：打开Access数据库“所用文献.mdb”。规定编写窗体qh3上“计算”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一种3位正

23、整数，单击“计算”按钮，计算从1到该数之间（含该数）个位数是6整数之和，成果显示在Text2中。 a = Text1.Value qh = 0 For i = 1 To a If Int(i / 1) Mod 10 = 6 Then qh = qh + i End If Next iText2.Value = qh例12：打开Access数据库“所用文献.mdb”。规定编写窗体qh4上“计算”按钮单击事件解决代码，实现如下功能：在文本框Text1中输入一种正整数，单击“计算”按钮，计算从1到1000之间（含1000），以该输入数为个位数各自然数之和，成果显示在Text2中。a = Text1.Value qh = 0 For i = 1 To 1000 If Right(Str(i)，1) = a Then qh = qh + i End If Next iText2.Value = qh