二级Access考试程序设计题技巧

1、给输入的内容给出判断：练习册六：在考生文件夹下打开Access数据库prog0214.mdb，在窗体FormGrade 中，编写“等级”按钮的单击事件处理代码，实现如下功能：根据下表，将由文本框Text1输入成绩对应的等级显示有文本框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 = "C"Elses = "D"End IfText2 = sEnd If练习册八：在考生文件夹下打开Access数据库prog0216.mdb。

在窗体FormNumber中，编写“位数”按钮的单击事件处理代码，实现如下功能：在文本框Text1中输入一个不超过4位的正整数，判断它的位数，结果显示在文本框Text2中。

Dim a As Integer, b As Integera = Text1If a > 0 And a < 1000 ThenIf a >= 100 Thenb = 3ElseIf a >= 10 Then b = 2Elseb = 1End IfEnd IfText2 = b例1：打开Access数据库“所用文件.mdb”。

要求编写窗体djzh上“成绩等级”按钮的单击事件处理代码，实现如下功能：当成绩小于0或大于100，显示“非法数据”，否则按如下规则转换：成绩≥85：优秀60≤成绩<85 ：合格成绩<60 ：不合格Dim cj As Single, dj As Stringcj = Text1.ValueSelect Case cjCase 85 To 100dj = "优秀"Case 60 To 84dj = "合格"Case 0 To 59dj = "不合格"Case Elsedj = "非法数据"End SelectText2.Value = dj例2：打开Access数据库“所用文件.mdb”。

要求编写窗体leapyear上“是否闰年”按钮的单击事件处理代码，实现如下功能：输入一个日期，单击“是否闰年”按钮，根据判断结果显示“是闰年”或“不是闰年”。

( 参见P218 字符串转换日期函数DateValue )闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。

Dim y As Integery = Year(DateValue(Text1.Value))If (y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 Then Text2.Value = "是闰年"ElseText2.Value = "不是闰年"End If例3：打开Access数据库“所用文件.mdb”。

要求编写窗体FrmPrime上“判断素数”按钮的单击事件处理代码，判断文本框text1中自然数是否为素数（只能被1和本身整除的自然数），并将判断结果显示在标签Label1中。

Dim i As Integer, j As Integer, x As Integer, pd As Stringx = Text1For i = 2 To xpd = "素数"For j = 2 To Sqr(i)If i Mod j = 0 Thenpd = "不是素数"End IfNext jNext iLabel2.Caption = pd练习册三：在考生文件夹下打开Access数据库prog0226.mdb，在窗体FormNum 中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的字符判断是否为数字，若是显示“Yes”，否则显示“No”。

Dim a As Stringa = Text1If a >= "0" And a <= "9" ThenText2 = "Yes"ElseText2 = "No"End If例4：打开Access数据库“所用文件.mdb”。

要求编写窗体Judge上“判断”按钮的单击事件处理代码，判断文本框text1中字符是否是数字，并将判断结果显示在标签Label1中。

Dim C As StringC = Text1.ValueIf C >= "0" And C <= "9" ThenLabel1.Caption = C & "是数字!"ElseLabel1.Caption = C & "是其它字符!"End If例5：打开Access数据库“所用文件.mdb”。

要求编写窗体qsws的“求三位数字”按钮的单击事件处理代码，实现如下功能：在text1输入一个三位正整数，单击“求三位数字”按钮，分别在text2、text3、text4上显示其百位数字、十位数字和个位数字；若输入的整数不足三位，则退出窗体。

a = Text1.ValueIf a < 100 Or a > 999 ThenDoCmd.CloseElsegw = Int(a / 1) Mod 10sw = Int(a / 10) Mod 10bw = Int(a / 100) Mod 10Text2.Value = bwText3.Value = swText4.Value = gwEnd If2、对输入的两个值进行运算或判断：练习册一：在考生文件夹下打开Access数据库prog0224.mdb，按图在窗体FormJudge中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的三条边长a、b、c，判断能否构成三角形，如果可以，显示“Yes”，否则显示“No”。

Dim a As Integer, b As Integer, c As Integera = Text1b = Text2c = Text3If (a + b) > c And (a + c) > b And (b + c) > a ThenText4 = "Yes"ElseText4 = "No"End If例1：打开Access数据库“所用文件.mdb”。

要求编写窗体Compare上“比较”按钮的单击事件处理代码，判断文本框Text1、Text2中两个数的大小，将比较结果（a<b,a=b,a>b）显示在标签Label1中。

Dim a As Integer, b As Integera = Text1.Valueb = Text2.ValueIf a > b ThenLabel1.Caption = "a>b"ElseIf a = b ThenLabel1.Caption = "a=b"ElseLabel1.Caption = "a<b"End If例2：打开Access数据库“所用文件.mdb”。

要求编写窗体sumnum上“求和”按钮的单击事件处理代码，实现计算区间[M,N]中所有整数的和，M和N的值分别于文本框Text1、Text2中输入，结果显示在标签Label1中。

Dim m As Integer, n As Integer, sum As Longm = Text1.Valuen = Text2.Valuesum = 0For i = m To nsum = sum + iNext iLabel1.Caption = sum3、对输入的值进行变化练习册七：在考生文件夹下打开Access数据库prog0215.mdb。

在窗体FormTime 中，编写“12小时制”按钮的单击事件处理代码，实现如下功能：按文本框Text 1中输入24小时制的时间，转换为12小时制时间，结果显示在文本框Text2中。

Dim a As Integer, b As Stringa = hour(Text1)If a >= 0 And a <= 24 ThenIf a < 12 Thenb = Text1 & "AM"Elseb = (hour(Text1) - 12) & ":" & minute(Text1) & "PM"End IfText2 = bEnd If练习册五：在考生文件夹下打开Access数据库prog0228.mdb。

在窗体FormPick 中，编写“提取”按钮的Click事件代码，实现如下功能：根据输入的字符串s，顺序提取s中的数字并显示在Label2中。

Dim s As String, 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数据库“所用文件.mdb”。

要求编写窗体forminvt中的“逆序”按钮的单击事件处理代码，将文本框Text1中输入的字符串逆序显示在文本框Text2中。

Dim s As 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、对输入的数值进行计算练习册二：在考生文件夹下打开Access数据库prog0225.mdb，在窗体FormSec 中，编写“Y=”按钮的Click事件代码，实现如下功能：按输入的X值，根据以下分段函数计算Y的值。