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

给输入的内容给出判断L练习册六在考生文献夹下打开数据库在窗体中，Access prog

0214.mdb,FormGrade编写“等级”按钮的单击事件解决代码，实现如下功能根据下表，将由文本框输入成绩相应的等级显示有文本框中Textl Text2Dim a As IntegerDim s As Stringa=TextlIf a=0And a=100ThenIf a=90Thens=，，，，AElself a=75Thens=，，，，BElself a=60Thens=HCnElses=nDnEnd IfText2=sEnd If练习册八在考生文献夹下打开数据库在窗体Access prog

0216.mdb FormNumbero中，编写“位数”按钮的单击事件解决代码，实现如下功能在文本框中输Textl入一个不超过位的正整数，判断它的位数，结果显示在文本框中4Text2Dim a As Integer,b As Integera=TextlIf a0And a1000ThenIf a=100ThenDim x As Single,y As Singlex=Text

1.ValueIf x=10ThenXIOy=x A2+1Elsey=x+1End IfLabell.Caption=y例打开数据库“所用文献规定编写窗体上的组合款的3:Access.mdb”areaorgirth事件解决代码，实现依据组合框中选择“计算面积”和“计算周长”,计算change圆的面积或周长，圆的半径由文本框输入，计算结果显示在标签中Textl Text2Dim rAs Single,c As SingleConst PI=

3.14159r=Textl.Value计算面积If Combol.Value=Thenc=PI*r*rElsec=2*PI*rEnd IfTextl.Value=c例打开数据库”所用文献.对窗体编写“计算”按钮的单击事4:Access mdb”tstj,件解决代码，实现如下功能若两种商品的总计金额小于按原价付款，否则打九折;1300,实际付款额四舍五入取整2djl=Textl.Valuesll=Textl.Valuesl2=Text

4.Valuefke=djl*sll+dj2*sl2If fke300Thenfke=fke*

0.9End IfText

5.Value=Roundfke,

0.运用循环遍历输入的字符或数字的每一位，做出运5算或判断练习册四在考生文献夹下打开数据库在窗体中，Access prog

2.Caption=s例打开数据库”所用文献规定编写窗体的“计算”按钮1Access.mdb”szzh的单击事件解决代码，实现如下功能求一个三位正整数的各位数字之和,若输入的整数小于或大于则显示“输入有误二100999,Dim numAs IntegerIfnum999Or num100Then输入有误”Jg=Elsegw=Intnum/1Mod10sw=Intnum/10Mod10bw=Intnum/100Mod10jg=gw+sw+bwEnd IfText

2.Value=jg例打开数据库所用文献规定编写窗体的“非数字字符个数”2:Access.mdb”fszs按钮的单击事件解决代码，实现如下功能输入一个字符串，单击“非数字字符个数”按钮，记录字符串中包含的非数字字符个数不计字符串前后的空格,并将结果显示在文本框中Text2s=TrimTextl.Valuen=Lensjs=OFor i=1To nc=Mid⑸i,1If Not c=n0n And c=n9H Thenjs=js+1End IfNext iText

2.Value=js练习册九在考生文献夹下打开数据库在窗体Access prog

2.Value=count例打开数据库所用文献规定编写窗体上“偶数字符串”按4:Access.mdb”stfn钮的单击事件解决代码，实现如下功能在中输入一个字符串，单击“偶数Textl字符串”按钮，在中显示删去其他字符后的偶数字符串Text2Dim sAs String,n As Integer,i As IntegerDim c AsString,zfc AsStrings=Textl.Valuen=Lenszfc=For i=1To nc=Mids,i,1Ifc=n0n Andc=9ThenIf cMod2=0Thenzfc=zfc+cEnd IfEnd IfNextiText

2.Value=zfc例打开数据库”所用文献规定编写窗体上“记录英文字母个5:Access.mdb”tjyw数”按钮的单击事件解决代码，实现如下功能输入一个字符串，单击“记录英文字母个数”按钮，在文本框中显示该字符串中英文字母的个数Text2s=Textl.Valuen=Lensjs=OFor i=1To nc=Mids,i,1If c=a Andc=Hzn Orc=A Andc=nZn Thenjs=js+1End IfNexti注假如题目改为记录非数字字符个数，则改为Textl.Value=js IfNotc=0Andc=9Then例打开数据库”所用文献规定编写窗体上“因子个数”按6Access.mdb”factor钮的单击事件解决代码，实现如下功能输入一个正整数，单击“因子个数”按钮，显示该数的因子个数数的因子是指除自身外可以整除的数如的因子有；的因子有:n n61,2,3101,2,5Dim numberAs Integer,countAs Integer,i As Integernumber=Textl.Valuecount=0For i=1To number-1If numberMod i=0Thencount=count+1End IfNextiText

2.Value=count例打开数据库所用文献规定编写窗体上“计算”按钮的单7:Access.mdb”sszh击事件解决代码，实现如下功能计算从到该数之间含该数的所有素数之和，1结果显示在中注素数是指只能被和自身整除的数Text21x=Textl.Values=0For i=2To xpd=TrueFor j=2To SqriIfi Modj=0Thenpd=FalseEnd IfNextjIf pdThens=s+iEnd IfNextiText

2.Value=s注题目改为记录到该数之间所有素数的个数，则改为1s=s+l例打开数据库”所用文献规定编写窗体上“计算”按钮的单8:Access.mdb”js3击事件解决代码，实现如下功能在文本框中输入一个正整数后，单击Textl“计算”按钮，计算到该数之间（含该数）的奇数和，结果显示在中1Text2a=Textl.Valuejsh=0For i=1To aIfi Mod20Thenjsh=jsh+iEnd IfNextiText

2.Value=jsh注假如题目改为偶数，则改为Ifi Mod2=0Then例打开数据库”所用文献规定编写窗体上“计算”按钮的单9:Access.mdb”qh2击事件解决代码，实现如下功能在文本框中输入一个正整数，单击:计算”Textl按钮，计算从到该数之间（含该数）能被整除的奇数之和，结果显示在15Text2中a=Textl.Valuejsh=0For i=1To aIfi Mod20ThenIf i Mod5=0Thenjsh=jsh+iEnd IfEnd IfNext iTextl.Value=jsh注题目假如改为被整除的偶数之和，则改为和3Ifi Mod2=OThen IfiMod3=0Then例打开数据库所用文献规定编写窗体上“计算”10:Access.mdb”calcexp按钮的单击事件解决代码，实现计算等差数列，各项的和，数列最后一1,2,…N项由文本框中输入，计算结果显示在标签中N TextlLabellDim nAsInteger,sum AsInteger n=Textl.Value sum=n*l+n*ii・l/2Labell.Caption=sum例打开数据库“所用文献规定编写窗体上“计算”按钮的11:Access.mdb qh3单击事件解决代码，实现如下功能在文本框中输入一个位正整数，单击Textl3二计算”按钮，计算从到该数之间（含该数）个位数是的整数之和，结果显示16在中Text2a=Textl.Valueqh=0For i=1To aIflnti/1Mod10=6Then qh=qh+iEnd IfNextiTextl.Value=qh例打开数据库”所用文献规定编写窗体上“计算”按钮的12:Access.mdb”qh4单击事件解决代码，实现如下功能在文本框中输入一个正整数，单击“计Textl算”按钮，计算从到之间（含）以该输入数为个位数的各自然数之和，110001000,结果显示在中Text2a=Textl.Valueqh=0For i=1To1000If RightStri,l=a Thenqh=qh+iEnd IfText

2.Value=qhb=3＞Elself a=10Then b=2Elseb=1End IfEnd IfText2=b例打开数据库所用文献规定编写窗体上“成绩等级”1:Access.mdb”djzh按钮的单击事件解决代码，实现如下功能当成绩小于或大于显示“非法数0100,据”，否则按如下规则转换成绩，优秀85:/成绩＜:合格6085成绩＜:不合格60Dim cj AsSingle,dj AsStringcj=Text

1.ValueSelect CasecjCase85To100”优秀”dj=Case60To84合格”dj=Case0To59不合格”dj=Case Else非法数据”dj=End SelectText

2.Value=dj例打开数据库所用文献规定编写窗体上“是否闰年”2:Access.mdb”leapyear按钮的单击事件解决代码，实现如下功能输入一个日期，单击“是否闰年”按钮，根据判断结果显示“是闰年”或“不是闰年”（参见字符串转换日期函数P218）闰年的条件是年份能被整除但不能被整除，或能被整除DateValue4100400Dim y As Integery=Year DateValueTextl.ValueIf yMod4=0And yMod1000Or yMod400=0Then是闰年Text

2.Value=Else不是闰年”Text

2.Value=EndIf例打开数据库所用文献规定编写窗体上“判断素数”3:Access.mdb”FrmPrime按钮的单击事件解决代码，判断文本框中自然数是否为素数（只能被和自身textl1整除的自然数），并将判断结果显示在标签中LabellDim iAsInteger,jAsInteger^x AsInteger,pd AsStringx=TextlFor i=2To x素数”pd=For j=2To SqriIfiModj=0Then不是素数”pd=EndIfNextjNext iLabell.Caption=pd练习册三在考生文献夹下打开数据库在窗体中，Access prog

0226.mdb,FormNum编写“判断”按钮的事件代码，实现如下功能根据输入的字符判断是否为Click数字，若是显示，否则显示“Yes”“No”Dim aAs Stringa=TextlIfa=n0H And a=n9n ThenText2=YesElseText2=HNonEnd If例打开数据库所用文献规定编写窗体上“判断”按”的4:Access.mdb”Judge单击事件解决代码，判断文本框中字符是否是数字，并将判断结果显示在标textl签中Label1Dim CAs StringC=Textl.ValueIf C=0And C=9Then是数字!”Labell.Caption=CElse是其它字符Labell.Caption=C VEndIf例打开数据库所用文献规定编写窗体的“求三位数字”按5:Access.mdb”qsws钮的单击事件解决代码，实现如下功能在输入一个三位正整数,单击“求三textl位数字”按钮，分别在上显示其百位数字、十位数字和个位数字；text

2.text

3.text4若输入的整数局限性三位，则退出窗体a=Textl.ValueIf a100Ora999ThenDoCmd.CloseElsegw=Inta/1Mod10sw=Inta/10Mod10bw=Inta/100Mod10Text

2.Value=bwText

3.Value=swText

4.Value=gwEnd If.对输入的两个值进行运算或判断2练习册一在考生文献夹下打开数据库按图在窗体Access prog

0224.mdb,FormJudge中，编写“判断”按钮的事件代码，实现如下功能根据输入的三条边长、Click a、判断能否构成三角形，假如可以，显示，否则显示b c,“Yes”“No”Dim aAsInteger,b AsInteger,c AsIntegera=Textlb=Text2c=Text3If a+bc And a+cb And b+ca ThenText4=HYesnElseText4=HNonEnd If例打开数据库所用文献规定编写窗体上“比较”按1Access.mdb”Compare钮的单击事件解决代码，判断文本框中两个数的大小，将比较结果Textl.Text2显示在标签中ab,a=b,ab Label1Dim aAsInteger,b AsIntegera=Textl.Valueb=Text

2.ValueIf ab ThenLabell.Caption=HabnElself a=b ThenLabell.Caption=Ha=bnElseLabell.Caption=nabnEnd If例打开数据库所用文献规定编写窗体上“求和”按钮2:Access.mdb”sumnum的单击事件解决代码，实现计算区间［］中所有整数的和，和的值分别M,N MN于文本框中输入，结果显示在标签中Textl.Text2LabellDim mAsInteger,nAsInteger,sum AsLongm=Textl.Valuen=Textl.Valuesum=0For i=m Tonsum=sum+iNext iLabell.Caption=sum.对输入的值进行变化3练习册七在考生文献夹下打开数据库在窗体中，Access prog

0215.mdb FormTime编写小时制”按钮的单击事件解决代码，实现如下功能按文本框中输“12Text1入小时制的时间，转换为小时制时间，结果显示在文本框中2412Text2Dim aAsInteger,b AsStringa=hourTextlIf a=0Anda=24ThenIf a12Thenb=TextlnAMnElseb=hourTextl-12minuteTextlPMEnd IfText2=bEnd If练习册五在考生文献夹下打开数据库在窗体中，Access prog

0228.mdb FormPick编写“提取”按钮的事件代码，实现如下功能根据输入的字符串顺序提Click s,取中的数字并显示在中s Label2DimsAsString,aAsString,b AsStringDim nAs Integers=TrimTextl.Valuen=LensFor i=1To na=Mids,i,1Ifa=n0n Anda=n9n Thenb=baEnd IfNextiLabell.Caption=b例打开数据库”所用文献规定编写窗体中的“逆序”按1Access.mdb”forminvt钮的单击事件解决代码，将文本框中输入的字符串逆序显示在文本框中Textl Text2DimsAsString,iAsInteger,aAsStrings=Textli=1j=LensWhile ija=Mids,i,1Mids,i,l=MidsJ,1Mids,j,1=ai=i+1j=j-1WendText2=s.对输入的数值进行计算4练习册二在考生文献夹下打开数据库在窗体中，Access prog

0225.mdb,FormSec编写按钮的事件代码，实现如下功能按输入的值，根据以下分段函数计Click XX0X0算的值Yx=TextlIf x=0Theny=xA2+8Elsey=2*x.5EndIfText2=y练习册十在考生文献夹下打开数据库在窗体Access prog

0218.mdb□FormChange中，编写“转化”按钮的单击事件解决代码，实现如下功能分别在在文本框Textl和中输入［］区间内的整数数将它们转化为数值（个）Text21,9n,a,aaaaaaaa na,结果显示在文本框中Text3Dim aAsInteger,b AsString,cAsStringa=Textlb=Text2If a=1Anda=9And b=1Andb=9Thenc=Stringa,bText3=cEnd If例打开数据库“所用文献规定编写窗体上“计算”按钮的1Access.mdb”calc单击事件解决代码，实现如下功能根据文本框中输入的值，计算如下分Textl X段函数的值，结果显示在中Text2Dim xAsSingle,yAsSingle x=2sin x+1y=xW-10Textl.Value lx|-5/3-10x10Select Casexx/7-8x10Case Is=-10y=2*Sinx+1Case Is=10y=Absx-5/3Case Elsey=x/7-8End SelectText

2.Value=y例打开数据库所用文献”规定编写窗体上命令按钮“2:Access.mdb sectionY二”的单击事件解决代码，实现对下列分段函数的计算，的值于文本框X Textl输入,值显示在标签中Y Labell。