《二级Access考试程序设计题技巧》由会员分享，可在线阅读，更多相关《二级Access考试程序设计题技巧（14页珍藏版）》请在金锄头文库上搜索。
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数据库prog021
2、6.mdb。在窗体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事件代码，实现如下功能：根据输入的字符
6、判断是否为数字，若是显示“Yes”，否则显示“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 =
7、 Text1.Value If 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 If2、对输入的两个值进行运算或判断：练习册一：在考生文件夹下打开Access数据库prog0224.mdb，按图在窗体FormJudge中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的三条边长a、b、c，判断能否构成三角形，如果可以，显示
8、“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 = YesElseText4 = NoEnd If例1：打开Access数据库“所用文件.mdb”。要求编写窗体Compare上“比较”按钮的单击事件处理代码，判断文本框Text1、Text2中两个数的大小，将比较结果（ab）显示在标签Label1中。Dim a As Integer, b As Integer a = Te
9、xt1.Value b = Text2.Value 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 St
10、ring, i As Integer, a As Strings = 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 And a = 1 And b = 9) Th
