vb程序閱讀題與填空題

VB程序閱讀題與程序填空題綜合練習(xí)1、閱讀下面程序，當(dāng)單擊窗體之后，窗體上輸出的是 。PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimkAsIntegerk=0Fori=0To10Step3Forj=1To10Ifj>=5Theni=i+4:ExitForj=j+1k=k+1NextIfi>8ThenExitForNextPrintkEndSub2、閱讀下面的事件過程。單擊窗體后，在文本框是 和 ；若將程序中 A語句與單擊窗體后在 Text1和Text2中顯示的內(nèi)容分別是

Text1和Text2中顯示的內(nèi)容分別B語句的位置互換，再次執(zhí)行程序，和 。DimxAsInteger,yAsIntegerx=1:y=0DoWhilex<3y=y+x 'A語句x=x+1 'B語句LoopText1.Text=xText2.Text=yEndSub3、下面程序段中， k循環(huán)共執(zhí)行

次，在窗體上顯示的結(jié)果是

。DimbAsInteger,kAsIntegerb=1Fork=1To5b=b*kIfb>=15ThenElsek=k+1EndIfNextkPrintk,b4、以下是按鈕 cmdl的Click事件過程，求 1~100之間的所有質(zhì)數(shù)。質(zhì)數(shù)的個(gè)數(shù)顯示在窗體上，在劃線處填上缺少的內(nèi)容。PrivateSubcmdl_Click()DimintNumAsInteger,int1AsInteger,int2AsIntegerintNum=0Forint1=Forint2=2Toint1\2If(int1Modint2)=0ThenintNum=1EndIfNextIfsNum=sNum+1EndIfNextPrintEndSub5、若命令按鈕的名稱為

CmdExit，程序要求單擊以上命令按鈕時(shí)，

程序停止運(yùn)行。請(qǐng)?jiān)诋嬀€處中填入適當(dāng)?shù)膬?nèi)容。Private

Sub

CmdExit_

()End Sub6、下面的事件過程判斷文本框 txt1中輸入的數(shù)所在區(qū)間，并在文本框 txt2中輸出判斷結(jié)果。在畫線處填入正確的內(nèi)容。PrivateSubComandl_Click()Dimint1AsIntegerint1=val(txt1.Text)SelectCaseint1Casetxt2.Text="值為0"Casetxt2.Text="值在1和10之間（包括 1和10）"Casetxt2.Text="值大于10"CaseElsetxt2.Text="值小于0"EndSelectEndSub四、讀程序題，寫出程序運(yùn)行結(jié)果。1．運(yùn)行結(jié)果：PrivateSubForm_Click()ForI=1To9Forj=1To30-3*IPrint"";NextjFork=1ToIPrintk;NextkFork=I-1To1Step-1Printk;NextkPrintNextIEndSub2．運(yùn)行結(jié)果：PrivateSubCommand1_Click()StaticSAsIntegerDimiAsIntegerS=1Fori=1To5S=S*iNextiPrintSEndSub

3．運(yùn)行結(jié)果：ForX=5To1Step–1ForY=1To6-XPrintTab(Y+5);"*";NextYPrintNextX4．運(yùn)行結(jié)果：S=0:T=0:U=0ForX=1To3ForY=1ToXForZ=YTo3S=S+1NextZT=T+1NextYU=U+1NextXPrintS;T;U5．運(yùn)行結(jié)果：PrivateSubCommand1_Click()DimbAsIntegera=3.6b=3.6Text1.Text=aText2.Text=bEndSub2．以下程序判斷從文本框 Text1中輸入的數(shù)據(jù)，如果該數(shù)據(jù)滿足條件：除以 3余2，除以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框 Text1中，選中其中的文本。PrivateSubCommand_Click()X=Val(Text1.Text)If （1） ThenPrintXElse2）3）4）EndIfEndSub五、編程題文本框1（text1） 命令按鈕 1command1文本框2（text2） 命令按鈕 2command2文本框3（text3）文本框4（text4）

命令按鈕 3command31．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框 1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成．程序運(yùn)行后，用戶按清除按鈕，則清除文本框中顯示的內(nèi)容，按計(jì)算按鈕，則計(jì)算三科平均成績。單擊退出按鈕則退出。PrivateSubCommand1_Click()Text1.Text=[1]Text2.[2]=""[2][3].Text=""[3]EndSubPrivateSubCommand2_Click()IfText1.[4]=""OrText2.Text=[5]OrText3.Text=""Then[4]MsgBox"成績輸入不全！"[5]ElseText4.Text=([6]+Val(Text2.Text)[6]+Val(Text3.Text))/[7][7][8][8]EndSubPrivateSubCommand3_Click()Unload[9][9][10]Sub[10]3．設(shè)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)“歡迎您！”幾個(gè)字的字體變成粗體，用戶選中斜體復(fù)選框時(shí) “歡迎您！”幾個(gè)字的字體變成斜體。若取消選中，則恢復(fù)原字體。 按結(jié)束，則退出。4．任給3個(gè)數(shù)，求其中間數(shù)，寫出程序代碼。三、閱讀程序題1．閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubForm_Click()DimsAsLong,fAsLong,nAsInteger,iAsIntegern=3Fori=1Tonf=f+is=s+fNextPrint"s=";sEndSub寫出程序運(yùn)行時(shí)單擊窗體后，窗體 Form1上的輸出結(jié)果。運(yùn)行結(jié)果：2．閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubCommand1_Click()x=0DoWhilex<100x=(x+2)*(x+4)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub文件框Text3的結(jié)果是：運(yùn)行結(jié)果：3．閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubCommand1_Click()DimSum1AsInteger,Sum2AsIntegerSum1=0:Sum2=1ForI=1To4ForJ=1ToISum2=Sum2*JNextJSum1=Sum1+Sum2NextIPrintSum1EndSub寫出程序運(yùn)行時(shí)單擊命令按紐后，窗體上的輸出結(jié)果。運(yùn)行結(jié)果：閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubCommand1_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox("請(qǐng)輸入一個(gè)正整數(shù)="))6．閱讀下列程序并寫出程序運(yùn)行結(jié)果Ifx<6ThenPrivateSubCommand1_Click()s=s*xDimA(2To7)AsIntegerElseDimbAsIntegers=s+xForb=2To7EndIfA(b)=bText1.Text="s="&Str(s)NextbEndSubText1.Text=A(b-2)程序運(yùn)行時(shí)連續(xù)3次單擊Command1，且設(shè)輸入EndSub的數(shù)據(jù)為6、5、4時(shí)，分別寫出文本框Text1的值。程序運(yùn)行后，單擊命令按紐文本框5．閱讀下列程序并寫出程序運(yùn)行結(jié)果Text1的結(jié)果是：PrivateSubForm_Click()DimA(1To3)AsStringDimcAsInteger,jAsIntegerA(1)=“2”A(2)=“4”A(3)=“6”c=0Forj=1to3c=c+Val(A(j))NextjPrintcEndSub寫出程序運(yùn)行時(shí)單擊窗體后，窗體運(yùn)行結(jié)果：7．閱讀下列程序并寫出程序運(yùn)行結(jié)果Subtest(iAsInteger)i=i+1EndSubPrivateSubForm_Click()DimxAsIntegerx=4Print"x=";xCalltest(x)Print"x=";xEndSub閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubForm_Click()a=1:b=1Print"A=";a;",B=";bCallmult(a)Print"A=";a;",B=";bEndSubPrivateSubmult(x)x=2*xb=3*bEndSub閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubForm_Click()DimiAsInteger,aAsIntegerk=0Fori=1To6Ifi>3Thena=a+4Elsea=a+1

Form1上的結(jié)果：閱讀下列程序并寫出程序運(yùn)行結(jié)果PrivateSubForm_Click()StaticSumAsIntegerI=1Whilei<=3Sum=Sum+II=I+1WendPrintSumEndSub點(diǎn)擊兩次后， Sum的值應(yīng)該是：EndIfNextiPrinti,aEndSub寫出程序運(yùn)行時(shí)單擊窗體后， Form1上的輸出結(jié)果。閱讀下列程序并寫出程序運(yùn)行結(jié)果SubChange(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tPrintx,yEndsubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=3:b=4Changea,bPrinta,bEndSub寫出程序運(yùn)行時(shí)單擊窗體后，

Form1上的輸出結(jié)果(20)下列程序段執(zhí)行結(jié)果為 (x=5y=-6IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-xA)-33 B)5-9 C)3-3

)

D)-65(23)單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為 ( )PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)Printx;yEndSubPublicSubProc(nAsInteger,ByValmAsInteger)n=nMod10m=mMod10EndSubA)1232 B)232 C)23 D)123二、填空題完成下面的程序，使顯示結(jié)果如下圖所示。PrivateSubForm_Click()FontSize=18Sample＄="【1】 "x=(ScaleWidth-TextWidth(Sample＄))/2y=(ScaleHeight-TextHeight(Sample＄))/2CurrentX=xCurrentY=y【2】 Sample＄EndSub(2)下列程序的功能是： 當(dāng)x<50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x>100時(shí)，沒有意義。請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DimxAsSinglex=InputBox("請(qǐng)輸入x的值！")【3】CaseIs<50y=0.8*xCase50To100y=0.7*x【4】Print"輸入的數(shù)據(jù)出界！ "EndSelectPrintx,yEndSub35.窗體上有 Text1、Text2兩個(gè)文本框及一個(gè)命令按鈕DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)EndSubx=x+y:y=x+y

Command1,

編寫下列程序：P1=x+yEndFunctionPrivateFunctionP2(xAsInteger,yAsInteger)AsIntegerP2=2*x+yEndFunction當(dāng)單擊1次和單擊 2次命令按鈕后，文本框 Text1和Text2內(nèi)的值分別是（ C）31.如下程序，運(yùn)行的結(jié)果是（ B）PrivateSubForm_Click()DimmAsInteger,iAsInteger,x(10)AsIntegerFori=0to4x(i)=i+1NextiFori=1to2Callproc(x)NextiFori=0to4Printx(i);NextiEndSubPublicSubproc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSub假設(shè)有以下程序段：ForI=1to3Forj=5to1Step-1PrintI*jNextjNextI

5．執(zhí)行了以下的程序后，列表框中的數(shù)據(jù)項(xiàng)有 ________。SubForm_click()Fori=0To4List1.AddItemiNextFori=1To2List1.RemoveItemiNextEndsub則語句PrintI*j 的執(zhí)行次數(shù) I、j的值分別是（A）在窗體上一個(gè)文本框，其名稱為Text1,然后編寫如下事件過程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=UCase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSub程序運(yùn)行后，如果在鍵盤上輸入單字母 "K"，則在文本框 Text1中顯示的內(nèi)容為（）100X100X05.下面的程序輸入X的值，按以下公式求Y值。Y100X0X100400100X200PrivateSubCommand1_Click()X=Val(Text1.Text)SelectCaseXCase【1】Print"X<-100ORX>200"Case【2】Y=100-XCase【3】Y=100+XCase【4】Y=400EndSelectText2.Text=YEndSub6．以下程序是利用公式4*(1111L)來計(jì)算的值。其中，變量k表示當(dāng)1357前符號(hào)項(xiàng)，t表示當(dāng)前項(xiàng)，n表示當(dāng)前項(xiàng)的序號(hào)，要求精度控制在0.00001內(nèi)。試分析程序，完成空格處填的內(nèi)容。DimpiAsSingle,tAsSingleDimnAsSingle,kAsSinglepi=0:n=1k=1:t=1DoWhile(【1】)pi=pi+tk=-kt=【2】n=n+1Looppi=【3

】Print"pi=";pi7．下列程序的功能是輸出的前 20項(xiàng)，按每行Fibonacci數(shù)列：F1=1,F2=1,Fn=Fn-1+Fn-2(n>=2)DimaAsInteger,bAsIntegerDimcAsInteger,iAsIntegera=1:b=1:i=3Printa,b,DoWhile(i<=20)c=a+ba=bb=c

5個(gè)數(shù)的形式輸出?！?

】If

【2

】ThenPrintEndIf【3

】LoopEndSub4．執(zhí)行下面的程序段后，

s的值為

____________。a=5Fori=2.6To4.9Step0.6s=s+1Nexti5．下面是一個(gè)體操評(píng)分程序。滿分為10分）。

20位評(píng)委，除去一個(gè)最高分和一個(gè)最低分，

計(jì)算平均分（設(shè)Max=0Min=10Fori=1To20n=Val(InputBox"請(qǐng)輸入分?jǐn)?shù)")If______________ThenMax=nIf______________ThenMin=ns=s+ns=______________p=s/18Print"最高分";Max,"最低分";MinPrint"最后得分:";p6．下面程序的功能是求1到100的平方和，如果平方和超過了1000則跳出循環(huán)，輸出此時(shí)的和S。ForI=1To1009．以下程序段，程序運(yùn)行后，要求s=s+i*i執(zhí)行4次循環(huán)。Ifs>1000Thenx=1______________DoEndIfx=x+1nextiprint15abc:PrintsloopUntil___________7．以下程序段的輸出結(jié)果是____________。num=010．下列程序運(yùn)行后，內(nèi)層循環(huán)的循環(huán)總次數(shù)___________。Whilenum<=2Forx=1to4num=num+1Fory=1toxPrintnumPrintyWendNexty8．以下程序段的輸出結(jié)果是____________。DimjAsInteger,sAsIntegerNextxDos=s+jj=j+13．寫出下面程序的運(yùn)行結(jié)果。LoopUntilj=5PrivateSubForm_Click()Print"s=";sFori=1To4四、程序閱讀題x=41．寫出下面程序的運(yùn)行結(jié)果。Forj=1To3PrivateSubForm_Click()x=3DimsAsInteger,kAsInteger,mAsInteger,nAsIntegerFork=1To2s=1x=x+6Form=1To3NextkForn=mTo3NextjFork=nTomStep-1Nextis=s*kprintxNextk,n,mEndSubPrintsEndSub2．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click()Fori=3To1Step-1PrintSpc(10-i);Forj=1To2*i-1Print"*";NextjPrintNextiEndSub4．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click()m=0Dom=m+1Ifm>10ThenExitDoLoopUntilm<10PrintmEndSub5．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click()DimmAsInteger,nAsIntegerm=10Dom=m+nForn=10Tomstep-1m=m+nNextnLoopWhilem<50Printm;nEndSub18．下列程序的輸出結(jié)果是 ________。DimyAsIntegery=10Whiley<>0y=y-1Wend

6．寫出下面程序的運(yùn)行結(jié)果。PrivateSubForm_Click()DimmAsInteger,nAsInteger,kAsIntegerm=1:n=a:k=5DoWhilem<=k*nm=m*nn=n+1Printm;nLoopPrintm;nEndSub7．寫出下面程序的運(yùn)行結(jié)果。DimiAsInteger,aAsIntegerDoWhilei<20DoWhileTrueIfiMod10=0ThenExitDoElsei=i-1EndIfLoopi=i+11a=a+iLoopPrintaPrint"y=";yA)y=0 B)y=1 C)y=隨機(jī)值 D)y=-119．以下程序的輸出結(jié)果是 ________。DimmAsIntegerm=1Whilem<=3m=m+1Printm;WendA)2B)23 C)234 D)234520．下面的程序運(yùn)行結(jié)果是 ________。PrivateSubForm_Click()m=0DoUntil0m=m+1Ifm>10ThenExitDoLoopPrintmEndSub1．下列過程的功能是：在對(duì)多個(gè)文本框進(jìn)行輸入時(shí)，對(duì)第一個(gè)文本框（ Text1）輸入完畢后用回車鍵使焦點(diǎn)跳到第二個(gè)文本框（ Text2），而不是 Tab鍵來切換。請(qǐng)完成該程序。PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If【1 】ThenText2.

【2

】EndIfEndSub1．編寫如下兩個(gè)事件過程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub在一般情況下（即不按住

Shift

鍵和鎖定大寫），運(yùn)行程序，如果按

A鍵，則程序的輸出結(jié)果是什么？2．在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，并把窗體的

KeyPreview

屬性設(shè)置為

True，然后編寫如下代碼：DimsaveallAsStringPrivateSubCommand1_Click()Text1.Text=UCase(saveall)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)saveall=saveall+Chr(KeyAscii)EndSubPrivateSubForm_Load()Text1.Text=""EndSub程序運(yùn)行后，在鍵盤上輸入 abcdefg，單擊命令按鈕，寫出文本框上顯示的內(nèi)容。3.單擊窗體時(shí)，下列程序的執(zhí)行結(jié)果為PrivateSubForm_Click()Test(2)EndSubPrivateSubTest(xAsInteger)x=x*2+1Ifx<6ThenCallTest(x)EndIfx=x*2+1Printx;EndSub

________。6．單擊窗體時(shí)，下列程序代碼的執(zhí)行結(jié)果為 ________，如果在Procl過程的第二形參加ByVal關(guān)鍵字，那么單擊窗體時(shí)，程序代碼的執(zhí)行結(jié)果為 ________。PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerx=1:y=2:z=3Callprocl(x,x,z)Callprocl(x,y,y)EndSubPrivateSubprocl(xAsInteger,yAsInteger,zAsInteger)x=3*zy=2*zz=x+yPrintx;y;z

y前9．下列程序連續(xù)運(yùn)行三次的結(jié)果為

________。OptionExplicitSubFirst()StaticsAsIntegerDimiAsIntegerFori=1To10Step2s=s+iNextiPrints;EndSubPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerCallFirstEndSub10．運(yùn)行下列程序，在立即窗口上第二行顯示OptionExplicitDimaAsIntegerPrivateSubCommand1_Click()DimbAsIntegerDimdAsIntegera=1:b=2d=fun(a,fun(a,b))Debug.Printa,b,dEndSubPrivateFunctionfun(kAsInteger,nAsInteger)AsIntegerDebug.Printk,n;k=n+a+kn=k+a+nfun=k+nDebug.PrintfunEndFunction

________；第三行顯示 ________。1．寫出下列程序的運(yùn)行結(jié)果。PrivateSubCommand1_Click()Dimx%,y%x=18y=28Callswap(x,y)Printx,yEndSubPrivateSubs,b%)Dimt%t=aa=bb=tEndSub三、程序閱讀題：3．寫出下列程序的執(zhí)行結(jié)果。OptionExplicitSubSs(ByValxAsInteger,ByRefyAsInteger,zAsInteger)x=x+1y=y+1z=z+1EndSubPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=1:b=2:c=3CallSs(a,b,c)Printa,b,cEndSub4．在窗體上畫一個(gè)命令按鈕，名稱為Command1，程序運(yùn)行后，寫出下面程序的輸出結(jié)果。FunctionM(xAsInteger,yAsInteger)AsInteger7．寫出下面程序的輸出結(jié)果。PrivateFunctionf()AsIntegerM=IIf(x>y,x,y)StaticiAsIntegerEndFunctionDimsAsIntegerPrivateSubCommand1_Click()i=i+1DimaAsInteger,bAsIntegers=s+ia=100f=sb=200EndFunctionprintM(a,b)PrivateSubCommand1_Click()EndSubDimiAsInteger5．寫出下面程序的輸出結(jié)果。DimaAsIntegerPrivateSubCommand1_Click()Fori=1To4DimkAsIntegera=a+f()Fori=3To5Step2Nextik=iPrintaCalltext(k)EndSubm=m+kNextiPrintm;iEndSubPrivateSubtest(nAsInteger)n=1+2*nEndSub6．寫出下面程序的輸出結(jié)果。FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsInteger8．寫出下面程序的輸出結(jié)果。a=2PublicFunctionmyfun(m!,n%)AsIntegerFori=1To3Ifn=0ThenPrintF(a)myfun=1NextiElseEndSubIfnMod2=1ThenEndSubmyfun=m*myfun(m,n\2)9．當(dāng)發(fā)生了Command1_Click事件后，Else寫出下面程序的輸出結(jié)果。myfun=myfun(m,n\2)\mPublicFunctionage(nAsInteger)AsIntegerEndIfDimkAsIntegerEndIfIfn=1ThenEndFunctionk=1PrivateSubCommand1_Click()ElsePrintmyfun(3,11)k=2*age(n-1)+3EndIfage=kEndFunctionPrivateSubCommand1_Click()DimaAsInteger,kAsIntegerk=5:a=age(5):PrintaEndSub四、程序填空題：3．以下Function過程Odd用于判斷一個(gè)數(shù)是否為奇數(shù)。當(dāng)單擊命令按鈕時(shí)，隨機(jī)產(chǎn)生一個(gè)二位數(shù)，設(shè)用Odd過程判斷該數(shù)是否是奇數(shù)。 如果是奇數(shù)，則顯示True，否則顯示False。OptionExplicitPrivateSubCommand1_Click()DimxAsIntegerx=【1】Printx,Odd(x)EndSubFunctionOdd(ByValnAsInteger)AsBooleanIf【2】ThenOdd=FalseElseOdd=TrueEndIfEndFunction4．下列程序的功能是求兩個(gè)正整數(shù)的最大公約數(shù)。閱讀下列程序，請(qǐng)?jiān)诳崭裉幪烊缦鄳?yīng)的語句，使之完成上述功能。OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,gAsIntegera=InputBox("輸入數(shù)字 a:")b=InputBox("輸入數(shù)字b:")【1 】=Gc(a,b)Printa;"和";b;"的最大公約數(shù)是： ";gEndSubPrivateFunctionGc(ByValxAsInteger, 【2DimzAsIntegerz=xModyDoWhilez<>0x=yy=zz=xModyLoopGc=【3 】EndFunction

】AsInteger)5．下列程序的功能是將一個(gè)數(shù)的各位數(shù)字相乘并打印在窗體上。閱讀下列程序，請(qǐng)?jiān)诳崭裉幪烊缦鄳?yīng)的語句，使之完成上述功能。OptionExplicitPrivateSubCommand1_Click()DimnAsLongn=InputBox("請(qǐng)輸入一個(gè)數(shù)")PrintFun1(n)EndSubPrivateFunctionFun1(NumAsLong)AsLongDimsAsLongs=1Num=Abs(Num)DoWhile【1s=s*(NumMod10)Num= 【2LoopFun1=【3EndFunction

】】

】三、程序閱讀題1．在窗體上畫一個(gè)文本框和一個(gè)圖片框，然后編寫如下兩個(gè)事件過程，程序運(yùn)行后，在文本框中顯示的內(nèi)容是什么？在圖片框中顯示的內(nèi)容是什么？PrivateSubForm_Load()Text1.Text="計(jì)算機(jī)"EndSubPrivateSubText1_Change()Picture1.Print"文化基礎(chǔ)"EndSub2．窗體上有一按鈕和一個(gè)列表框，執(zhí)行下列程序，寫出運(yùn)行結(jié)果。PrivateSubCommand1_Click()List1.AddItem"China"List1.AddItem"USA"List1.AddItem"Japan",1PrintList1.List(2)EndSub四、程序填空題1．在窗體上畫一個(gè)名稱為 Command1的命令按鈕和一個(gè)名稱為 Text1的文本框，程序運(yùn)行后，Command1為禁用（灰色）。當(dāng)向文本框中輸入任何字符時(shí)，命令按鈕Command1變?yōu)榭捎?。?qǐng)?jiān)诳瞻壮鎏砣脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1【1 】Command1.Enabled=TrueEndSub2．下面的程序運(yùn)行時(shí)，用戶在組合框中輸入數(shù)據(jù)，當(dāng)按回車鍵時(shí)，如果組合框列表中沒有與輸入內(nèi)容相同的選項(xiàng)，則將輸入內(nèi)容添加到列表中。閱讀程序并填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimaddtextAsBooleanIfKeyAscii=13Thenaddtext=FalseFori= 【1 】IfCombo1.Text=Combo1.List(i)Thenaddtext=TrueEndIfNextIfNotaddtextThen

【2

】tCombo1.Text=""EndIfEndSub3．在窗體上畫一個(gè)名稱為 label1和標(biāo)簽和一個(gè)名稱為表框中添加若干列表項(xiàng)。 當(dāng)雙擊列表框中的某個(gè)項(xiàng)目時(shí)，目。請(qǐng)?jiān)诳瞻壮鎏钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

List1的列表框。程序運(yùn)行后，在列在標(biāo)簽Label1中顯示所選中的項(xiàng)PrivateSubForm_Load()List1.AddItemList1.AddItemList1.AddItem

北京””上海””河北””EndSubPrivateSub【1

】Label1.Caption=

【2

】EndSub4．在窗體中建立一個(gè)文本框，名字為 txtVB，用來輸入和顯示文字。再建立兩個(gè)框架，名字為”字體”和”大小”，然后在 ”字體”框架中建立兩個(gè)單選鈕，名字分別為 ”optSong”和”optHi；”在”大小”框架中建立兩個(gè)單選鈕，名字