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

.1、给输入的容给出判断：练习册六：在考生文件夹下翻开Access 数据库 prog0214.mdb，在窗体 FormGrade中，编写“等级按钮的单击事件处理代码，实现如下功能：根据下表，将由文本框 Te*t1 输入成绩对应的等级显示有文本框 Te*t2 中。Dim a As Integer Dim s As String a=Te*t1 If a=0 And a=90 Then s=A ElseIf a=75 Then s=B ElseIf a=60 Then s=C Else s=D End If Te*t2=s End If 练习册八：在考生文件夹下翻开Access数据库prog0216.mdb。在窗体FormNumber中，编写“位数按钮的单击事件处理代码，实现如下功能：在文本框 Te*t1中输入一个不超过4 位的正整数，判断它的位数，结果显示在文本框Te*t2中。Dim a As Integer,b As Integer a=Te*t1 If a 0 And a=100 Then b=3 ElseIf a=10 Then b=2 Else b=1 End If End If Te*t2=b 例 1：翻开 Access 数据库“所用文件.mdb。要求编写窗体 djzh 上“成绩等级按钮的单击事件处理代码，实现如下功能：当成绩小于 0 或大于 100，显示“非法数据，否则按如下规则转换：成绩85：优秀 60成绩85：合格.成绩60：不合格 Dim cj As Single,dj As String cj=Te*t1.Value Select Case cj Case 85 To 100 dj=优秀 Case 60 To 84 dj=合格 Case 0 To 59 dj=不合格 Case Else dj=非法数据 End Select Te*t2.Value=dj 例 2：翻开 Access 数据库“所用文件.mdb。要求编写窗体 leapyear 上“是否闰年按钮的单击事件处理代码，实现如下功能：输入一个日期，单击“是否闰年按钮，根据判断结果显示“是闰年或“不是闰年。(参见 P218 字符串转换日期函数DateValue)闰年的条件是：年份能被 4 整除但不能被 100 整除，或能被 400 整除。Dim y As Integer y=Year(DateValue(Te*t1.Value)If(y Mod 4=0 And y Mod 100 0)Or y Mod 400=0 Then Te*t2.Value=是闰年 Else Te*t2.Value=不是闰年 End If 例 3：翻开 Access 数据库“所用文件.mdb。要求编写窗体 FrmPrime 上“判断素数按钮的单击事件处理代码，判断文本框 te*t1 中自然数是否为素数 只能被 1 和本身整除的自然数，并将判断结果显示在标签 Label1 中。Dim i As Integer,j As Integer,*As Integer,pd As String*=Te*t1 For i=2 To*pd=素数.For j=2 To Sqr(i)If i Mod j=0 Then pd=不是素数 End If Ne*t j Ne*t i Label2.Caption=pd 练习册三：在考生文件夹下翻开 Access 数据库 prog0226.mdb，在窗体 FormNum中，编写“判断按钮的 Click 事件代码，实现如下功能：根据输入的字符判断是否为数字，假设是显示“Yes，否则显示“No。Dim a As String a=Te*t1 If a=0 And a=0 And C=9 Then Label1.Caption=C&是数字!Else Label1.Caption=C&是其它字符!End If 例 5：翻开 Access 数据库“所用文件.mdb。要求编写窗体 qsws 的“求三位数字按钮的单击事件处理代码，实现如下功能：在 te*t1 输入一个三位正整数，单击“求三位数字按钮，分别在 te*t2、te*t3、te*t4 上显示其百位数字、十位数字和个位数字；假设输入的整数缺乏三位，则退出窗体。a=Te*t1.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.Te*t2.Value=bw Te*t3.Value=sw Te*t4.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=Te*t1 b=Te*t2 c=Te*t3 If(a+b)c And(a+c)b And(b+c)a Then Te*t4=Yes Else Te*t4=No End If 例 1：翻开 Access 数据库“所用文件.mdb。要求编写窗体 pare 上“比拟按钮的单击事件处理代码，判断文本框 Te*t1、Te*t2 中两个数的大小，将比拟结果ab显示在标签 Label1 中。Dim a As Integer,b As Integer a=Te*t1.Value b=Te*t2.Value If a b Then Label1.Caption=ab ElseIf a=b Then Label1.Caption=a=b Else Label1.Caption=a=0 And a=24 Then If a=0 And a=9 Then b=b&a End If Ne*t i Label2.Caption=b 例 1：翻开 Access 数据库“所用文件.mdb。要求编写窗体 forminvt 中的“逆序按钮的单击事件处理代码，将文本框 Te*t1 中输入的字符串逆序显示在文本框 Te*t2 中。Dim s As String,i As Integer,a As String.s=Te*t1 i=1 j=Len(s)While i=0 Then y=*2+8 Else y=2*-5 End If Te*t2=y 练习册十：在考生文件夹下翻开Access数据库prog0218.mdb。在窗体FormChange中，编写“转化按钮的单击事件处理代码，实现如下功能：分别在在文本框Te*t1 和 Te*t2 中输入1，9区间的整数数 n，a，将它们转化为数值aaaaaaaan 个 a，结果显示在文本框Te*t3中。Dim a As Integer,b As String,c As String a=Te*t1 b=Te*t2 If(a=1 And a=1 And b=9)Then c=String(a,b)Te*t3=c.End If 例 1：翻开 Access 数据库“所用文件.mdb。要求编写窗体 calc 上“计算按钮的单击事件处理代码，实现如下功能：根据文本框 Te*t1 中输入的*值，计算如下分段函数的值，结果显示在 Te*t2 中。Dim*As Single,y As Single *=Te*t1.Value Select Case*Case Is=-10 y=2*(Sin(*)+1)Case Is=10 Then y=*2+1 Else y=*+1 End If Label1.Caption=y 例 3：翻开 Access 数据库“所用文件.mdb。要求编写窗体 areaorgirth 上的组合款的 change 事件处理代码，实现依据组合框中选择“计算面积和“计算周长，计算圆的面积或周长，圆的半径由文本框 Te*t1 输入，计算结果显示在标签 Te*t2 中。Dim r As Single,c As Single Const PI=3.14159 r=Te*t1.Value If bo1.Value=计算面积 Then c=PI*r*r Else c=2*PI*r End If.Te*t2.Value=c 例 4：翻开 Access 数据库“所用文件.mdb。对窗体 tstj，编写“计算按钮的单击事件处理代码，实现如下功能：1假设两种商品的总计金额小于 300，按原价付款，否则打九折；2实际付款额四舍五入取整。dj1=Te*t1.Value sl1=Te*t2.Value dj2=Te*t3.Value sl2=Te*t4.Value fke=dj1*sl1+dj2*sl2 If fke 300 Then fke=fke*0.9 End If Te*t5.Value=Round(fke,0)5、利用循环遍历输入的字符或数字的每一位，做出运算或判断 练习册四：在考生文件夹下翻开Access 数据库 prog0227.mdb。在窗体 FormSum中，编写“求和按钮的 Click 事件代码，实现如下功能：根据输入的整数 n，计算 1+22+32+42+n2的值。Dim n As Integer Dim s As Long n=Te*t1 s=0 For i=1 To n s=i 2+s Ne*t i Label2.Caption=s 例 1：翻开 Access 数据库“所用文件.mdb。要求编写窗体 szzh 的“计算按钮的单击事件处理代码，实现如下功能：求一个三位正整数的各位数字之和，假设输入的整数小于 100 或大于 999，则显示“输入有误。Dim num As Integer num=Te*t1.Value If num 999 Or num=0 And c=9)Then js=js+1 End If Ne*t i Te*t2.Value=js 练习册九：在考生文件夹下翻开 Access 数据库 prog0217.mdb。在窗体 FormMult中，编写“计算按钮的单击事件处理代码，实现如下功能：在文本框 Te*t 1 中输入一个偶数nn20，计算 2*4*6*8*n 的值，结果显示在文本框 Te*t2中。Dim i As Integer,a As Long,n As Integer n=Te*t1 If(n 20)And(n Mod 2=0)Then a=1 i=2 While i=n a=i*a i=i+2 Wend Te*t2=a End If 例 3：翻开 Access 数据库“所用文件.mdb。要求编写窗体 CalChar 上“统计按钮的单击事件处理代码，实现如下功能：在文本框 Te*t1 中输入一字符串，单击“统计按钮，将在文本框 Te*t2 中显示该字符串的非空格字符的个数。Dim count As Integer,i As Integer,s As String,*As String count=0 s=Te*t1.Value For i=1 To Len(s)*=Mid(s,i,1)If*Space(1)Then.count=count+1 End If Ne*t i Te*t2.Value=count 例 4：翻开 Access 数据库“所用文件.mdb。要求编写窗体 stfn 上“偶数字符串按钮的单击事件处理代码，实现如下功能：在 Te*t1 中输入一个字符串，单击“偶数字符串按钮，在 Te*t2 中显示删去其他字符后的偶数字符串。Dim s As String,n As Integer,i As Integer Dim c As String,zfc As String s=Te*t1.Value n=Len(s)zfc=For i=1 To n c=Mid(s,i,1)If c=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=Te*t1.Value count=0.For i=1 To number-1 If number Mod i=0 Then count=count+1 End If Ne*t i Te*t2.Value=count 例 7：翻开 Access 数据库“所用文件.mdb。要求编写窗体 sszh 上“计算按钮的单击事件处理代码，实现如下功能：计算从 1 到该数之间含该数的所有素数之和，结果显示在 Te*t2 中。注：素数是指只能被 1 和本身整除的数。*=Te*t1.Value s=0 For i=2 To*pd=True For j=2 To Sqr(i)If i Mod j=0 Then pd=False End If Ne*t j If pd Then s=s+i End If Ne*t i Te*t2.Value=s 注：题目改为统计 1 到该数之间所有素数的个数，则改为s=s+1 例 8：翻开 Access 数据库“所用文件.mdb。要求编写窗体 js3 上“计算按钮的单击事件处理代码，实现如下功能：在文本框 Te*t1 中输入一个正整数后，单击“计算按钮，计算 1 到该数之间含该数的奇数和，结果显示在 Te*t2中。a=Te*t1.Value jsh=0 For i=1 To a If i Mod 2 0 Then.jsh=jsh+i End If Ne*t i Te*t2.Value=jsh 注：如果题目改为偶数，则改为If i Mod 2=0 Then 例 9：翻开 Access 数据库“所用文件.mdb。要求编写窗体 qh2 上“计算按钮的单击事件处理代码，实现如下功能：在文本框 Te*t1 中输入一个正整数，单击“计算按钮，计算从 1 到该数之间含该数能被 5 整除的奇数之和，结果显示在 Te*t2 中。a=Te*t1.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 Ne*t i Te*t2.Value=jsh 注：题目如果改为被 3 整除的偶数之和，则改为 If i Mod 2=0 Then 和 If i Mod 3=0 Then 例 10：翻开 Access 数据库“所用文件.mdb。要求编写窗体 calce*p 上“计算按钮的单击事件处理代码，实现计算等差数列：1，2，N 各项的和，数列最后一项 N 由文本框 Te*t1 中输入，计算结果显示在标签 Label1 中。Dim n As Integer,sum As Integer n=Te*t1.Value sum=n*1+n*(n-1)/2 Label1.Caption=sum 例 11：翻开 Access 数据库“所用文件.mdb。要求编写窗体 qh3 上“计算按钮的单击事件处理代码，实现如下功能：在文本框 Te*t1 中输入一个 3 位正整数，单击“计算按钮，计算从 1 到该数之间含该数个位数是 6 的整数之和，结果显示在 Te*t2 中。a=Te*t1.Value.qh=0 For i=1 To a If Int(i/1)Mod 10=6 Then qh=qh+i End If Ne*t i Te*t2.Value=qh 例 12：翻开 Access 数据库“所用文件.mdb。要求编写窗体 qh4 上“计算按钮的单击事件处理代码，实现如下功能：在文本框 Te*t1 中输入一个正整数，单击“计算按钮，计算从 1 到 1000 之间含 1000，以该输入数为个位数的各自然数之和，结果显示在 Te*t2 中。a=Te*t1.Value qh=0 For i=1 To 1000 If Right(Str(i),1)=a Then qh=qh+i End If Ne*t i Te*t2.Value=qh