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

1、给输入的内容给出判断：练习册六在考生文件夹下打开Access数据库prog0214.mdb,在窗体FormGrade中，编写“等级”按钮的单击事件处理代码，实现如下功能：根据下表，将由文本框Text1输入成绩对应的等级显示有文本框Text2中。DimaAsIntegerDimsAsStringa=Text1Ifa>=0Anda<=100ThenIfa>=90Thens="A"ElseIfa>=75Thens="B"ElseIfa>=60Thens="C"Elses="D"EndIfText2=sEndIf练习册八：在考生文件夹下打开Access数据库prog0216.mdb。在窗体FormNumber中，编写“位数”按钮的单击事件处理代码，实现如下功能：在文本djdj="优秀"框Textl中输入一个不超过4位的正整数，判断它的位数，结果显示在文本框Text2中。DimaAsInteger,bAsIntegera=Text1Ifa>0Anda<1000ThenIfa>=100Thenb=3ElseIfa>=10Thenb=2Elseb=1EndIfEndIfText2=b例1：打开Access数据库“所用文件mdb”。要求编写窗体djzh上“成绩等级”按钮的单击事件处理代码，实现如下功能：当成绩小于0或大于100，显示“非法数据”，否则按如下规则转换：成绩285:优秀604成绩<85:合格成绩<60：不合格DimcjAsSingle,djAsStringcj=Text1.ValueSelectCasecjCase85To100Case60To84dj="合格"Case0To59dj="不合格"CaseElsedj="非法数据"EndSelectText2.Value=dj例2:打开Access数据库“所用文件mdb”。要求编写窗体leapyear上“是否闰年”按钮的单击事件处理代码，实现如下功能：输入一个日期，单击“是否闰年”按钮，根据判断结果显示“是闰年”或“不是闰年”。(参见P218字符串转换日期函数DateValue)闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。DimyAsIntegery=Year(DateValue(Text1.Value))If(yMod4=0AndyMod100<>0)OryMod400=0ThenText2.Value="是闰年"ElseText2.Value="不是闰年"EndIf例3:打开Access数据库“所用文件mdb”。要求编写窗体FrmPrime上“判断素数”按钮的单击事件处理代码，判断文本框1。41中自然数是否为素数(只能被1和本身整除的自然数)，并将判断结果显示在标签Label1中。DimiAsInteger,jAsInteger,xAsInteger,pdAsStringx=Text1Fori=2Toxpd="素数"Forj=2ToSqr(i)IfiModj=0Thenpd="不是素数"EndIfNextjNextiLabel2.Caption=pd练习册三在考生文件夹下打开Access数据库prog0226.mdb,在窗体FormNum中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的字符判断是否为数字，若是显示“Yes”，否则显示“No”。DimaAsStringa=Text1Ifa>="0"Anda<="9"ThenText2="Yes"ElseText2="No"EndIf例4:打开Access数据库“所用文件.mdb”。要求编写窗体Judge上“判断”按钮的单击事件处理代码，判断文本框textl中字符是否是数字，并将判断结果显示在标签Label1中。DimCAsStringC=Text1.ValueIfC>="0"AndC<="9"ThenLabel1.Caption=C&"是数字!"ElseLabel1.Caption=C&"是其它字符!"EndIf例5打开Access数据库“所用文件.mdb”。要求编写窗体qsws的“求三位数字”按钮的单击事件处理代码，实现如下功能：在1。点1输入一个三位正整数，单击“求三位数字”按钮，分别在text2、text3、text4上显示其百位数字、十位数字和个位数字；若输入的整数不足三位，则退出窗体。a=Text1.ValueIfa<100Ora>999ThenDoCmd.CloseElsegw=Int(a/1)Mod10sw=Int(a/10)Mod10bw=Int(a/100)Mod10Text2.Value=bwText3.Value=swText4.Value=gwEndIf2、对输入的两个值进行运算或判断：练习册一：在考生文件夹下打开Access数据库prog0224.mdb按图在窗体FormJudge中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的三条边长a、b、c，判断能否构成三角形，如果可以，显示“Yes”，否则显示“No”。DimaAsInteger,bAsInteger,cAsIntegera=Text1b=Text2c=Text3If(a+b)>cAnd(a+c)>bAnd(b+c)>aThenText4="Yes"ElseText4="No"EndIf例1：打开Access数据库“所用文件mdb”。要求编写窗体Compare上“比较”按钮的单击事件处理代码，判断文本框Textl、Text2中两个数的大小，将比较结果(a<b,a=b,a>b)显示在标签Label1中。DimaAsInteger,bAsIntegera=Text1.Valueb=Text2.ValueIfa>bThenLabel1.Caption="a>b"ElseIfa=bThenLabel1.Caption="a=b"ElseLabel1.Caption="a<b"EndIf例2:打开Access数据库“所用文件.mdb”。要求编写窗体sumnum上“求和”按钮的单击事件处理代码，实现计算区间［M,N］中所有整数的和，M和N的值分别于文本框Text1、Text2中输入，结果显示在标签Label1中。DimmAsInteger,nAsInteger,sumAsLongm=Text1.Valuen=Text2.Valuesum=0Fori=mTonsum=sum+iNextiLabel1.Caption=sum3、对输入的值进行变化练习册七在考生文件夹下打开Access数据库prog0215.mdb。在窗体FormTime中，编写“12小时制”按钮的单击事件处理代码，实现如下功能：按文本框Text1中输入24小时制的时间，转换为12小时制时间，结果显示在文本框Text2中。DimaAsInteger,bAsStringa=hour(Text1)Ifa>=0Anda<=24ThenIfa<12Thenb=Text1&"AM"Elseb=(hour(Text1)-12)&":"&minute(Text1)&"PM"EndIfText2=bEndIf练习册五：在考生文件夹下打开Access数据库prog0228.mdb。在窗体FormPick中，编写“提取”按钮的Click事件代码，实现如下功能：根据输入的字符串s，顺序提取s中的数字并显示在Label2中。DimsAsString,aAsString,bAsStringDimnAsIntegers=Trim(Text1.Value)n=Len(s)Fori=1Tona=Mid(s,i,1)Ifa>="0"Anda<="9"Thenb=b&aEndIfNextiLabel2.Caption=b例1：打开Access数据库“所用文件mdb”。要求编写窗体forminvt中的“逆序”按钮的单击事件处理代码，将文本框Text1中输入的字符串逆序显示在文本框Text2中。DimsAsString,iAsInteger,aAsStrings=Text1i=1j=Len(s)Whilei<ja=Mid(s,i,1)Mid(s,i,1)=Mid(s,j,1)Mid(s,j,1)=ai=i+1j=j-1WendDimaAsInteger,bAsString,cAsStringDimaAsInteger,bAsString,cAsStringText2=s4、对输入的数值进行计算练习册二：在考生文件夹下打开Access数据库prog0225.mdb,在窗体FormSec中，编写“Y二”按钮的Click事件代码，实现如下功能：按输入的X值，根据以下分段函数计算Y的值。rx24-8 x>o1*5 X<0x=TextlIfx>=0Theny=x八2+8Elsey=2*x-5EndIfText2=y练习册十：在考生文件夹下打开Access数据库prog0218.mdb。在窗体FormChange中，编写“转化”按钮的单击事件处理代码，实现如下功能：分别在在文本框Text1和Text2中输入［1,9］区间内的整数数n，a，将它们转化为数值aaaaaaaa（n个a），结果显示在文本框Text3中。

a=Textlb=Text2If((a>=1Anda<=9)And(b>=1Andb<=9))Thenc=String(a,b)Text3=cEndIf例1:打开Access数据库“所用文件mdb”。要求编写窗体calc上“计算”按钮的单击事件处理代码，实现如下功能：根据文本框Textl中输入的X值，计算如下分段函数的值，结果显示在Text2中。2[sin(x)+1)(lxl-5)/3x/7-e2[sin(x)+1)(lxl-5)/3x/7-eic^-10x>10CaseIs<=-10y=2*(Sin(x)+1)CaseIs<=10y=(Abs(x)-5)/3CaseElsey=x/7-8EndSelectText2.Value=y例2打开Access数据库'所用文件.mdb”。要求编写窗体section上命令按钮“Y二”的单击事件处理代码，实现对下列分段函数的计算，X的值于文本框Textl输入,Y值显示在标签Labell中。DimxAsSingle,yAsSinglex=Textl.ValueIfx>=10Then v1^+3hit)y=xA2+1Else Z+l,¥<10L.y=x+1EndIfLabell.Caption=y例3:打开Access数据库"所用文件.mdb''。要求编写窗体areaorgirth上的组合款的change事件处理代码，实现依据组合框中选择“计算面积”和“计算周长”，计算圆的面积或周长，圆的半径由文本框Textl输入，计算结果显示在标签Text2中。DimrAsSingle,cAsSingleConstPI=3.14159r=Textl.ValueIfCombol.Value="计算面积”Thenc=Pl*r*rElsec=2*PI*rEndIfText2.Value=c例4:打开Access数据库“所用文件mdb”。对窗体tstj,编写“计算”按钮的单击事件处理代码，实现如下功能：(1)若两种商品的总计金额小于300,按原价付款，否则打九折；(2)实际付款额四舍五入取整。djl=Textl.Valuesll=Text2.Valuedj2=Text3.Valuesl2=Text4.Valuefke=djl*sll+dj2*sl2Iffke>300Thenfke=fke*0.9EndIfText5.Value=Round(fke,0)5、利用循环遍历输入的字符或数字的每一位，做出运算或判断练习册四：在考生文件夹下打开Access数据库prog0227.mdb。在窗体FormSum中，编写“求和”按钮的Click事件代码，实现如下功能：根据输入的整数n,计算1+22+32+42+，+工的值。DimnAsIntegerDimsAsLongn=Text1s=0Fori=1Tons=i八2+sNextiLabel2.Caption=s例1：打开Access数据库“所用文件.mdb”。要求编写窗体szzh的“计算”按钮的单击事件处理代码，实现如下功能：求一个三位正整数的各位数字之和，若输入的整数小于100或大于999，则显示“输入有误”。DimnumAsIntegernum=Text1.ValueIfnum>999Ornum<100Thenjg="输入有误"Elsegw=Int(num/1)Mod10sw=Int(num/10)Mod10bw=Int(num/100)Mod10jg=gw+sw+bwEndIfText2.Value=jg例2:打开Access数据库“所用文件mdb”。要求编写窗体fszs的“非数字字符个数”按钮的单击事件处理代码，实现如下功能：输入一个字符串，单击“非数字字符个数”按钮，统计字符串中包含的非数字字符个数(不计字符串前后的空格)，并将结果显示在Text2文本框中。s=Trim(Text1.Value)n=Len(s)js=0Fori=1Tonc=Mid(s,i,1)IfNot(c>="0"Andc<="9")Thenjs=js+1EndIfNextiText2.Value=js练习册九：在考生文件夹下打开Access数据库prog0217.mdb。在窗体FormMult中，编写“计算”按钮的单击事件处理代码，实现如下功能：在文本框Text1中输入一个偶数n(n<20)，计算2*4*6*8*……*n的值，结果显示在文本框Text2中。DimiAsInteger,aAsLong,nAsIntegern=Text1If(n<20)And(nMod2=0)Thena=1Whilei<=na=i*ai=i+2WendText2=aEndIf例3:打开Access数据库“所用文件mdb”。要求编写窗体CalChar上“统计”按钮的单击事件处理代码，实现如下功能：在文本框Textl中输入一字符串，单击“统计”按钮，将在文本框Text2中显示该字符串的非空格字符的个数。DimcountAsInteger,iAsInteger,sAsString,xAsStringcount=0s=Text1.ValueFori=1ToLen(s)x=Mid(s,i,1)Ifx<>Space(1)Thencount=count+1EndIfNextiText2.Value=count例4:打开Access数据库“所用文件mdb”。要求编写窗体stfn上“偶数字符串”按钮的单击事件处理代码，实现如下功能：在Text1中输入一个字符串，单击“偶数字符串，，按钮，在Text2中显示删去其他字符后的偶数字符串。DimsAsString,nAsInteger,iAsIntegerDimcAsString,zfcAsStrings=Text1.Valuen=Len(s)zfc=""Fori=1Tonc=Mid