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