1、給輸入的內(nèi)容給出判斷：sbText1Text2DimaAsIntegerDimsAsStringa=Text1Ifa>=0Anda<=100ThenIfa>=90Thens="A"ElseIfa>=75Thens="B"ElseIfa>=60Thens="C"Elses="D"EndIfText2=sEndIf練習(xí)冊(cè)八：在考生文件夾下打開(kāi)Access數(shù)據(jù)庫(kù)prog0216.mdb。在窗體FormNumber框Text1中輸入一個(gè)不超過(guò)4位的正整數(shù)，判斷它的位數(shù)，結(jié)果顯示在文本框Text2中。DimaAsInteger,bAsIntegera=Text1Ifa>0Anda<1000ThenIfa>=100Thenb=3ElseIfa>=10Thenb=2Elseb=1EndIfEndIfText2=bAccess.mdbdjzh0或大于100據(jù)”，否則按如下規(guī)則轉(zhuǎn)換：成績(jī)≥85：優(yōu)秀60≤成績(jī)<85：合格成績(jī)<60：不合格DimcjAsSingle,djAsStringcj=Text1.ValueSelectCasecjCase85To100dj="優(yōu)秀"Case60To84dj="合格"Case0To59dj="不合格"CaseElsedjEndSelectText2.Valuedj例打開(kāi)Access數(shù)據(jù)庫(kù)“所用文件.mdb”要求編寫(xiě)窗體leapyear上“是否閏年”按鈕的單擊事件處理代碼實(shí)現(xiàn)如下功能輸入一個(gè)日期單擊“是否閏年”按鈕根據(jù)判斷結(jié)果顯示“是閏年”或“不是閏年”。 (參見(jiàn)P218字符串轉(zhuǎn)換日期函數(shù)DateValue)閏年的條件是：年份能被4整除但不能被100整除，或能被400整除。DimyAsIntegery=Year(DateValue(Text1.Value))If(yMod4=0AndyMod100<>0)OryMod400=0ThenText2.Value="是閏年"ElseText2.Value="不是閏年"EndIf3s數(shù)據(jù)庫(kù)“所用文件e上“判斷素?cái)?shù)”text1自然數(shù)是否為素?cái)?shù)（1本身整除的自然數(shù)1DimiAsInteger,jAsInteger,xAsInteger,pdAsStringx=Text1Fori=2Toxpd="素?cái)?shù)"Forj=2ToSqr(i)IfiModj=0Thenpd="不是素?cái)?shù)"EndIfNextjNextiLabel2.Caption=pdsb中，編寫(xiě)“判斷”按鈕的Click事件代碼，實(shí)現(xiàn)如下功能：根據(jù)輸入的字符判斷是否為數(shù)字，若是顯示“Yes”，否則顯示“No”。DimaAsStringa=Text1Ifa>="0"Anda<="9"ThenText2="Yes"ElseText2="No"EndIf4：打開(kāi)Access.mdb”。要求編寫(xiě)窗體Judgetext1Label1DimCAsStringC=Text1.ValueIfC>="0"AndC<="9"ThenLabel1.Caption=C&"是數(shù)字!"ElseLabel1.Caption=C&"是其它字符!"EndIf5s數(shù)據(jù)庫(kù)“所用文件s“求三位數(shù)字”text1“求三位數(shù)字”按鈕，分別在text2、text3、text4上顯示其百位數(shù)字、十位數(shù)字和個(gè)位數(shù)字；若輸入的整數(shù)不足三位，則退出窗體。a=Text1.ValueIfa<100Ora>999ThenDoCmd.CloseElsegw=Int(a/1)Mod10sw=Int(a/10)Mod10bw=Int(a/100)Mod10Text2.Value=bwText3.Value=swText4.Value=gwEndIf2、對(duì)輸入的兩個(gè)值進(jìn)行運(yùn)算或判斷：練習(xí)冊(cè)一：在考生文件夾下打開(kāi)Access數(shù)據(jù)庫(kù)prog0224.mdb，按圖在窗體FormJudgeClick三條邊長(zhǎng)abNo”。DimaAsInteger,bAsInteger,cAsIntegera=Text1b=Text2c=Text3If(a+b)>cAnd(a+c)>bAnd(b+c)>aThenText4="Yes"ElseText4="No"EndIf1Access.mdbCompareText1、Text2中兩個(gè)數(shù)的大小，將比較結(jié)果（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實(shí)現(xiàn)計(jì)算區(qū)間[M,N]中所有整數(shù)的和NText1、Text2Label1DimmAsInteger,nAsInteger,sumAsLongm=Text1.Valuen=Text2.Valuesum=0Fori=mTonsum=sum+iNextiLabel1.Caption=sum3、對(duì)輸入的值進(jìn)行變化練習(xí)冊(cè)七：在考生文件夾下打開(kāi)Access數(shù)據(jù)庫(kù)prog0215.mdb。在窗體FormTime中，編寫(xiě)“12小時(shí)制”按鈕的單擊事件處理代碼，實(shí)現(xiàn)如下功能：按文本框Text1中輸入24小時(shí)制的時(shí)間，轉(zhuǎn)換為12小時(shí)制時(shí)間，結(jié)果顯示在文本框Text2中。DimaAsInteger,bAsStringa=hour(Text1)Ifa>=0Anda<=24ThenIfa<12Thenb=Text1&"AM"Elseb=(hour(Text1)-12)&":"&minute(Text1)&"PM"EndIfText2=bEndIfAccess數(shù)據(jù)庫(kù)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、對(duì)輸入的數(shù)值進(jìn)行計(jì)算Access數(shù)據(jù)庫(kù)，在窗體FormSec中，編寫(xiě)“YClickXYx=Text1Ifx>=0Theny=x^2+8Elsey=2*x-5EndIfText2=y練習(xí)冊(cè)十：在考生文件夾下打開(kāi)Access數(shù)據(jù)庫(kù)prog0218.mdb。在窗體FormChange中，編寫(xiě)“轉(zhuǎn)化”按鈕的單擊事件處理代碼，實(shí)現(xiàn)如下功能：分別在Text1Text21，9n，a，將它們轉(zhuǎn)化為數(shù)值（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數(shù)據(jù)庫(kù)“所用文件n上命令按鈕“=”Text1YLabel1DimxAsSingle,yAsSinglex=Text1.ValueIfx>=10Theny=x^2+1Elsey=x+1EndIfLabel1.Caption=y3Access.mdbareaorgirthchange計(jì)算圓的面積或周長(zhǎng)，Text1Text2中。DimrAsSingle,cAsSingleConstPI=3.14159r=Text1.ValueIfCombo1.Value="計(jì)算面積"Thenc=PI*r*rElsec=2*PI*rEndIfText2.Value=c4Access.mdbtstj，編寫(xiě)“”按鈕的單擊事件處理代碼，實(shí)現(xiàn)如下功能：300，按原價(jià)付款，否則打九折；實(shí)際付款額四舍五入取整。dj1=Text1.Valuesl1=Text2.Valuedj2=Text3.Valuesl2=Text4.Valuefke=dj1*sl1+dj2*sl2Iffke>300Thenfke=fke*0.9EndIfText5.Value=Round(fke,0)5算或判斷Accessprog0227.mdbFormSum中，編寫(xiě)“求和”按鈕的Clickn1+22+32+42+·+n2的值。DimnAsIntegerDimsAsLongn=Text1s=0Fori=1Tons=i^2+sNextiLabel2.Caption=s1Access.mdbszzh計(jì)算”按鈕的求一個(gè)三位正整數(shù)的各位數(shù)字之和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“非數(shù)字字符個(gè)數(shù)”“字字符個(gè)數(shù)”（格2s=Trim(Text1.Value)n=Len(s)js=0Fori=1Tonc=Mid(s,i,1)IfNot(c>="0"Andc<="9")Thenjs=js+1EndIfNextiText2.Value=js練習(xí)冊(cè)九在考生文件夾下打開(kāi)Access數(shù)據(jù)庫(kù)prog0217.mdb在窗體FormMult中，編寫(xiě)“計(jì)算”按鈕的單擊事件處理代碼，實(shí)現(xiàn)如下功能：在文本框Text 1中輸入一個(gè)偶數(shù)（0，計(jì)算*n的值，結(jié)果顯示在文本框中。DimiAsInteger,aAsLong,nAsIntegern=Text1If(n<20)And(nMod2=0)Thena=1i=2Whilei<=na=i*ai=i+2WendText2=aEndIfAccess“所用文件.mdb”CalChar“統(tǒng)計(jì)”Text1Text2DimcountAsInteger,iAsInteger,sAsString,xAsStringcount=0s=Text1.ValueFori=1ToLen(s)x=Mid(s,i,1)Ifx<>Space(1)Thencount=count+1EndIfNextiText2.Value=count4Access“所用文件.mdb”stfn“偶數(shù)字符串”Text1“數(shù)字符串”Text2DimsAsString,nAsInteger,iAsIntegerDimcAsString,zfcAsStrings=Text1.Valuen=Len(s)zfc=""Fori=1Tonc=Mid(s,i,1)Ifc