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

1、给输入的内容给出判断：

练习册六：在考生文件夹下打开Access数据库prog0214.mdb，在窗体FormGrade中，编写“等级”按钮的单击事件处理代码，实现如下功能：根据下表，将由文本框Text1输入成绩对应的等级显示有文本框Text2中。

Dim a As Integer Dim s As String a = Text1

If a >= 0 And a <= 100 Then If a >= 90 Then s = \

ElseIf a >= 75 Then s = \

ElseIf a >= 60 Then s = \Else

s = \End If Text2 = s End If

练习册八：在考生文件夹下打开Access数据库prog0216.mdb。在窗体FormNumber中，编写“位数”按钮的单击事件处理代码，实现如下功能：在文本框Text1中输入一个不超过4位的正整数，判断它的位数，结果显示在文本框Text2中。

Dim a As Integer, b As Integer a = Text1

If a > 0 And a < 1000 Then If a >= 100 Then b = 3

ElseIf a >= 10 Then b = 2 Else b = 1 End If End If Text2 = b

1

例1：打开Access数据库“所用文件.mdb”。要求编写窗体djzh上“成绩等级”按钮的单击事件处理代码，实现如下功能：当成绩小于0或大于100，显示“非法数据”，否则按如下规则转换：

成绩≥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 Select Text2.Value = dj

例2：打开Access数据库“所用文件.mdb”。要求编写窗体leapyear上“是否闰年”按钮的单击事件处理代码，实现如下功能：输入一个日期，单击“是否闰年”按钮，根据判断结果显示“是闰年”或“不是闰年”。 ( 参见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

2

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

Dim i As Integer, j As Integer, x As Integer, pd As String x = Text1 For i = 2 To x pd = \素数\ For j = 2 To Sqr(i) If i Mod j = 0 Then pd = \不是素数\ End If Next j Next i

Label2.Caption = pd

练习册三：在考生文件夹下打开Access数据库prog0226.mdb，在窗体FormNum中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的字符判断是否为数字，若是显示“Yes”，否则显示“No”。

Dim a As String a = Text1

If a >= \Text2 = \Else

Text2 = \

End If

例4：打开Access数据库“所用文件.mdb”。要求编写窗体Judge上“判断”按钮的单击事件处理代码，判断文本框text1中字符是否是数字，并将判断结果显示在标签Label1中。

Dim C As String C = Text1.Value

If C >= \ Label1.Caption = C & \是数字!\ Else

Label1.Caption = C & \是其它字符!\ End If

3

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

a = Text1.Value

If a < 100 Or a > 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 If

2、对输入的两个值进行运算或判断：

练习册一：在考生文件夹下打开Access数据库prog0224.mdb，按图在窗体FormJudge中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的三条边长a、b、c，判断能否构成三角形，如果可以，显示“Yes”，否则显示“No”。

Dim a As Integer, b As Integer, c As Integer a = Text1 b = Text2 c = Text3

If (a + b) > c And (a + c) > b And (b + c) > a Then Text4 = \Else

Text4 = \End If

4