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

1、给输入的内容给出判断：sbText1Text2DimaAsIntegerDimsAsStringa=Text1Ifa>=0Anda<=100ThenIfa>=90Thens="A"ElseIfa>=75Thens="B"ElseIfa>=60Thens="C"Elses="D"EndIfText2=sEndIf练习册八：在考生文件夹下打开Access数据库prog0216.mdb。在窗体FormNumber框Text1中输入一个不超过4位的正整数，判断它的位数，结果显示在文本框Text2中。DimaAsInteger,bAsIntegera=Text1Ifa>0Anda<1000ThenIfa>=100Thenb=3ElseIfa>=10Thenb=2Elseb=1EndIfEndIfText2=bAccess.mdbdjzh0或大于100据”，否则按如下规则转换：成绩≥85：优秀60≤成绩<85：合格成绩<60：不合格DimcjAsSingle,djAsStringcj=Text1.ValueSelectCasecjCase85To100dj="优秀"Case60To84dj="合格"Case0To59dj="不合格"CaseElsedjEndSelectText2.Valuedj例打开Access数据库“所用文件.mdb”要求编写窗体leapyear上“是否闰年”按钮的单击事件处理代码实现如下功能输入一个日期单击“是否闰年”按钮根据判断结果显示“是闰年”或“不是闰年”。 (参见P218字符串转换日期函数DateValue)闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。DimyAsIntegery=Year(DateValue(Text1.Value))If(yMod4=0AndyMod100<>0)OryMod400=0ThenText2.Value="是闰年"ElseText2.Value="不是闰年"EndIf3s数据库“所用文件e上“判断素数”text1自然数是否为素数（1本身整除的自然数1DimiAsInteger,jAsInteger,xAsInteger,pdAsStringx=Text1Fori=2Toxpd="素数"Forj=2ToSqr(i)IfiModj=0Thenpd="不是素数"EndIfNextjNextiLabel2.Caption=pdsb中，编写“判断”按钮的Click事件代码，实现如下功能：根据输入的字符判断是否为数字，若是显示“Yes”，否则显示“No”。DimaAsStringa=Text1Ifa>="0"Anda<="9"ThenText2="Yes"ElseText2="No"EndIf4：打开Access.mdb”。要求编写窗体Judgetext1Label1DimCAsStringC=Text1.ValueIfC>="0"AndC<="9"ThenLabel1.Caption=C&"是数字!"ElseLabel1.Caption=C&"是其它字符!"EndIf5s数据库“所用文件s“求三位数字”text1“求三位数字”按钮，分别在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，按图在窗体FormJudgeClick三条边长abNo”。DimaAsInteger,bAsInteger,cAsIntegera=Text1b=Text2c=Text3If(a+b)>cAnd(a+c)>bAnd(b+c)>aThenText4="Yes"ElseText4="No"EndIf1Access.mdbCompareText1、Text2中两个数的大小，将比较结果（a<b,a=b,a>b）Label1DimaAsInteger,bAsIntegera=Text1.Valueb=Text2.ValueIfa>bThenLabel1.Caption="a>b"ElseIfa=bThenLabel1.Caption="a=b"ElseLabel1.Caption="a<b"EndIfAccess.mdbsumnum实现计算区间[M,N]中所有整数的和NText1、Text2Label1DimmAsInteger,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=bEndIfAccess数据库prog0228.mdbFormPickClickssLabel2DimsAsString,aAsString,bAsStringDimnAsIntegers=Trim(Text1.Value)n=Len(s)Fori=1Tona=Mid(s,i,1)Ifa>="0"Anda<="9"Thenb=b&aEndIfNextiLabel2.Caption=b1Access“所用文件.mdb”forminvt“逆序”按钮的单击事件处理代码，将文本框Text1中输入的字符串逆序显示在文本框Text2DimsAsString,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-1WendText2=s4、对输入的数值进行计算Access数据库，在窗体FormSec中，编写“YClickXYx=Text1Ifx>=0Theny=x^2+8Elsey=2*x-5EndIfText2=y练习册十：在考生文件夹下打开Access数据库prog0218.mdb。在窗体FormChange中，编写“转化”按钮的单击事件处理代码，实现如下功能：分别在Text1Text21，9n，a，将它们转化为数值（n3DimaAsInteger,bAsString,cAsStringa=Text1b=Text2If((a>=1Anda<=9)And(b>=1Andb<=9))Thenc=String(a,b)Text3=cEndIfAccess.mdbcalcText1XText2DimxAsSingle,yAsSinglex=Text1.ValueSelectCasexCaseIs<=y=2*(Sin(x)+1)CaseIs<=10y=(Abs(x)-5)/3CaseElsey=x/7-8EndSelectText2.Value=y2s数据库“所用文件n上命令按钮“=”Text1YLabel1DimxAsSingle,yAsSinglex=Text1.ValueIfx>=10Theny=x^2+1Elsey=x+1EndIfLabel1.Caption=y3Access.mdbareaorgirthchange计算圆的面积或周长，Text1Text2中。DimrAsSingle,cAsSingleConstPI=3.14159r=Text1.ValueIfCombo1.Value="计算面积"Thenc=PI*r*rElsec=2*PI*rEndIfText2.Value=c4Access.mdbtstj，编写“”按钮的单击事件处理代码，实现如下功能：300，按原价付款，否则打九折；实际付款额四舍五入取整。dj1=Text1.Valuesl1=Text2.Valuedj2=Text3.Valuesl2=Text4.Valuefke=dj1*sl1+dj2*sl2Iffke>300Thenfke=fke*0.9EndIfText5.Value=Round(fke,0)5算或判断Accessprog0227.mdbFormSum中，编写“求和”按钮的Clickn1+22+32+42+·+n2的值。DimnAsIntegerDimsAsLongn=Text1s=0Fori=1Tons=i^2+sNextiLabel2.Caption=s1Access.mdbszzh计算”按钮的求一个三位正整数的各位数字之和100999，则显示“输入有误”。DimnumAsIntegernum=Text1.ValueIfnum>999Ornum<100Thenjg="输入有误"Elsegw=Int(num/1)Mod10sw=Int(num/10)Mod10bw=Int(num/100)Mod10jg=gw+sw+bwEndIfText2.Value=jg2Access.mdbfszs“非数字字符个数”“字字符个数”（格2s=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中，编写“计算”按钮的单击事件处理代码，实现如下功能：在文本框Text 1中输入一个偶数（0，计算*n的值，结果显示在文本框中。DimiAsInteger,aAsLong,nAsIntegern=Text1If(n<20)And(nMod2=0)Thena=1i=2Whilei<=na=i*ai=i+2WendText2=aEndIfAccess“所用文件.mdb”CalChar“统计”Text1Text2DimcountAsInteger,iAsInteger,sAsString,xAsStringcount=0s=Text1.ValueFori=1ToLen(s)x=Mid(s,i,1)Ifx<>Space(1)Thencount=count+1EndIfNextiText2.Value=count4Access“所用文件.mdb”stfn“偶数字符串”Text1“数字符串”Text2DimsAsString,nAsInteger,iAsIntegerDimcAsString,zfcAsStrings=Text1.Valuen=Len(s)zfc=""Fori=1Tonc=Mid(s,i,1)Ifc