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

. PAGE . 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 = A ElseIf a = 75 Then s = B ElseIf a = 60 Then s = C Else s = D 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：打开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 例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 = 0 And a = 9 Then Text2 = Yes Else Text2 = No End If 例4：打开Access数据库“所用文件.mdb”。要求编写窗体Judge上“判断”按钮的单击事件处理代码，判断文本框text1中字符是否是数字，并将判断结果显示在标签Label1中。 Dim C As String C = Text1.Value If C = 0 And C = 9 Then Label1.Caption =