上海海事大學VB題庫-程序填空

程序填空K第1題2I1程序填空』（1分）（題號：59）’【程序填空】'功能：輸入一個數,若大于0,則顯示"+"；若小于0,,則顯示若等于"0",則顯示"零"。PrivateSubCommandl_Click()x=Val(Text1.Text)SelectCasex，**********Spy^cE**********[?]Label1.Caption="+"CaseIs<0**********SCE**********，**********Spy^cE**********r9]LabelI.Caption="零"EndSelect答案:.答案:...CaseIs>0Label1.Caption=Case0或CaseElse或CaseIs=0K第2題1r程序填空」（1分）（題號:60）【程序填空】助能：輸入任何一個英文字母X,, 若X的值為,則顯示X的大寫字母；, 若x的值為則顯示x的小寫字母；'若x的值為其它的值,則顯示xa（如輸入的X的值是g,則顯示ga）oPrivateSubCommandl_Click()x=TextI.Text，**********spa「f**********，**********Sp^CE**********Case[?]Label1.Caption=UCase(x)Case“m“，”o”，”p“To“z"Label1.Caption=LCase(x)CaseElse，**********Sp^cE**********[?]EndSelectEndSub答案：. SelectCasex. “a"，“c”，”d“To“f". Label!.Caption=Trim(x)+"a"或Label1.Caption=x+"aMK第3題』［程序填空』（1分）（題號:36）U程序填空】'功能：以下程序的功能如（圖l）oPrivateSubForm_Click()Dima%,b%,c%,d!Dimxl,x2Dimp,q,ra=InputBox("請輸入a的值”)b=Inpu出ox(”請輸入b的值”)c=InputBox。請輸入c的值”)d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then，**********Sp^cE**********If[?]Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2=p，**********Spy\CE**********[?]Print,,xl=H;xl,,'x2=n;x2，**********Sp^cE**********q=Sqr(-d)/(2*a)Print"xl="；p;"+“；q;“i“，“x2="；p;"/;q;“i"EndIfEndSub答案：. d>0或 0<d. EndIf. ElseK第4題》『程序填空』（1分）（題號:51）’【程序填空】T‘功能：下面的程序段用于建立文件并輸出文件，文件內容如下:t，**********,***************PrivateSubForm_Click()t**********Spy^CE**********Opennc:\l.txtnFor[?]As#lFori=1To5Print#l,Spc(i);******,,Nexti

，**********Spy^cE**********[?]，**********Sp^cE**********Open"c:\l.txtnFor[?]As#1Fori=1To5LineInput#1,xPrintxNextiClose#1答案:.答案:...OutputClose#1或CloseInputK第5題』『程序填空J（1分）（題號:49）'【程序填空】'功能：以下程序段用于求En!PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBox("請輸入一個正整數”)sum=0Fori=1Ton**********Sp^cE**********sum=[?]NextiPrintsumEndSubPrivateFunctionmul(ByValxAsInteger)DimsAsInteger,iAsIntegers=1，**********Sp^cE**********Fori=1To[?]s=s*iNexti，**********Sp^cE**********EndFunction答案：. sum^+* mul(i). x. mul=sK第6題）『程序填空』（1分）（題號:61）U程序填空】'功能：根據輸入的學習成績，分別顯示優(yōu)秀（9。分以上），良好' （75分以上），及格（60分以上），不及格幾個等級。PrivateSubCommandl_Click()x=Val(Text1.Text)Ifx>=90ThenLabel1.Caption二"優(yōu)秀”，**********Sp/\CE**********Elself[?]ThenLabel1.Caption="良好"Elselfx>=60Then，**********Sp^cE**********，**********Spy^CE**********LabelLCaption="不及格”EndIfEndSub答案：. x>=75或75<=X. Label1.Caption="及格"或Labell="及格. ElseR第7題》「程序填空」（1分）（題號:57）’【程序填空】T,功能:求1!+2!+……+10!的值。tPrivateSubForm_Click()***********Sp^cE**********[?1s=1ForI=2To10t=t*I**********Spy^CE**********[?]**********Spy^CE**********[?]PrintsEndSub答案：. t=1. s=★ +★ t. NextI 或 NextK第8題』『程序填空」（1分）（題號:46）’【程序填空】助能：從鍵盤輸入學生分數，統(tǒng)計學生總人數和各分數段人數,, 即優(yōu)秀（90-100）.良好（80-89）、中等（70-79）、, 及格（60-69）、不及格（60以下）的人數。PrivateSubForm_Click()Dimscore%,nl%,n2%,n3%,n4%,n5%msg="請輸入分數(-1結束)"msgtitile="輸入數據"score=Val(InputBox(msg,msgtitle))，**********Sp^cE**********While[?]total=total+1，**********Spy^cE**********SelectCase[?]CaseIs>=90nl=nl+1CaseIs>=80n2=n2+1CaseIs>=70n3=n3+1CaseIs>=60n4=n4+1CaseElsen5=n5+1，**********Sp^cE**********[?]score=Val(InputBox(msg,msgtitle))WendPrintnl,n2,n3,n4,n5,totalEndSub答案：.score>=0★And*score<=100或0v=score★And*scorev=100或0<=score★And*100>=score或score>=0★And*100>=score. score. EndSelectR第9題』『程序填空』（1分）（題號:56）【程序填空】功能：輸入數字1?7,顯示其對應是星期兒（例:輸入1,顯示星期日,如果輸入其它內容，一律顯示“輸入錯誤”）PrivateSubCommandl_Click()dimxasintegerdimyasstringx=val(textl.text)**********SP/\CE**********[?]y=”今天是星期日"y="星期一“y="星期二"y="星期三"y="星期四"，**********Sp^cE**********[?]y="星期六"，**********Sp^cE**********[?]y="輸入錯誤"endselectText2.Text=yEndSub答案：. selectcasex. y="星期五”. CaseElseR第10題》『程序填空』（1分）（題號:41）【程序填空】下面過程max（）用于求3個數中最大值，利用這個過程求5個數中最大值。PrivateSubForm_Click()Print"5個數34、124、68、73、352的最大值是：”maxi=max(34,124,68)，**********Spy\CE**********maxi=[?]PrintmaxiEndSubPublicFunctionmax(ByVala%,ByVaib%,ByVaic%)，**********Spy^cE**********If[?]Thenm=aElsem=bEndIf，**********Sp^cE**********If[?]Thenmax=mElsemax=cEndIfEndFunction答案：. max(maxl,73,352). a>b或b<a. m>c或cvmK第11題》『程序填空」（1分）（題號:43）“程序填空】功能：下面的程序段用于實現以下功能：利用冒泡法將一組整數' 從小到大排序。PrivateSubForm_Click()Constn=15Dima(lTon)AsInteger,workAsBooleanDimiAsInteger,jAsInteger,xAsIntegerRandomizeFori=1Tona(i)=Int(90*Rnd)+10NextiFori=1TonPrinta(i);NextiPrint**********SP/\CE**********Fori=nTo2[?]work=TrueForj=1Toi-1Ifa(j)>a(j+I)Thenx=a(j):a(j)=a(j+1):a(j+1)=x，**********Spy^cE**********[?]EndIfNextj，**********Spy^cE**********IfworkThen[?]NextiFori=1TonPrinta(i);NextiEndSub答案：. Step-1.work=False或work=0或notwork=true. ExitForK第12題」『程序填空」（1分）（題號:37）’【程序填空】'功能：以下程序用于判斷一個正整數（23）是否為素數。PrivateSubForm_Click()n=InputBox("請輸入一個正整數(23)”)k=Int(Sqr(n))i=2swit=0t**********Spy^CE**********DoWhilei<=kAnd[?]**********SP/\CE**********If[?]Thenswit=1

Else，**********Sp^cE**********[?]EndIfLoopIfswit=0ThenPrintn;"是一個素數”ElsePrintn;“不是素數”EndIf答案:.答案:...swit=0nModi=0或n/i★=★n\i或n/i★=★int(n/i)i= ★+★1K第13題』『程序填空J（1分）（題號:55）’【程序填空】，功能：過程suixian可以判斷某一個數字是否是水仙花數，利用’ 該過程找出三位數中所有水仙花數。' 所謂“水仙花數”是指一個3位數，其各位數字立方和等于' 該數本身。PrivateSubForm_Click()DimiAsIntegerFori=100To999**********Spy\CE**********[?]NextiEndSubPublicSubsuixian(xAsInteger)Dimi%,j%,k%‘**********SP/\CE**********i=[?]j=(x-i*100)\10k=x-i*100-j*10，**********Sp^cE**********If[?]ThenPrintxEndSub答案：.suixian(i)或callsuixian(i)或suixiani.x\100或int(x/100).x=★iA+★jA3*+★k八3或x=★i*i*i^+★ +★k*k*kK第14題》『程序填空」（1分）（題號:50）’【程序填空】功能：從鍵盤上輸入一串字符，以”?”結束，統(tǒng)計輸入字符中的* 大、小寫字母和數字的個數。PrivateSubForm_Click()Dimch$,nl%,n2%,n3%nl=0n2=0n3=0ch=lnputBox("請輸入一個字符”)，**********Spy^cE**********DoWhile[?]SelectCasechCase"a”ToVnl=nl+1**********SP/\CE**********Case[?]n2=n2+1Case“0“To“9“n3=n3+1EndSelectch=InputBox("請輸入一個字符")，**********Spy\CE**********[?]Printnl,n2,n3EndSub答案：.ch★<>★"?"或notch="?"或not"?"=ch. ”A“To“Z“. LoopR第15?3］程序填空」（1分）（題號:54）“程序填空】'功能：本程序用于實現：從鍵盤接收-數字，判斷其是否在數組, 中，如果在數組中則將其刪除，否則顯示該數字不在數組, 中。PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("請輸入要刪除的整數”)Fori=1To10?**********5f>^(2E**********Ifa(i)=xThen[?]Nexti，**********Sp^cE**********If[?]ThenFork=iTo9**********Sp^CE**********NextkPrint”刪除后的數組:"Fori=1To9Printa(i);NextiElsePrint”該數字不在數組中”EndIfEndSub答案：. ExitFor. i<10或10>i3).a(k)=a(*k★+★1★)R第16題《『程序填空』（1分）（題號:48）“程序填空】'功能：利用下面的過程求m!和m*nPrivateSubForm_Click()DimmAsInteger,nAsIntegerm=2n=3**********Spy^cE**********[?]EndSubPrivateSubfind(xAsInteger,yAsInteger)Dims,iAsInteger，**********Spy^cE**********[?]Fori=1Toxq=q*i**********Spy^CE**********P=[?]NextiPrints,p答案:.答案:...findm,n或callfind(m,n)s=1或s=l:p=Op*+*y或x*yK第17題1『程序填空J（1分）（題號:58）【程序填空】功能：求A,B,C三個數的最大值。

PrivateSubCommandl_Click()A=Val(Textl.Text)，**********Sp^cE**********[?]C=Val(Text3.Text)IfA>BAndA>CThenMAXDATE=A，**********Spy^cE**********Elself[?]ThenMAXDATE=BElse**********SP/\CE**********EndIfLabel1.Caption=MAXDATE&”是最大值”答案:!).2).3).答案:!).2).3).B=Val(Text2.Text)或b=val(tex⑵B>C或C<B或B>C★and或c<b★and*a<bMAXDATE=CK第18題X『程序填空』（1分）（題號:42）'【程序填空】'功能：以下程序段利用隨機函數生成15個10-100之間的整數,然后用選擇法將其從小到大排序。PrivateSubForm_Click()Constn=15Dima(lTon)AsIntegerDimiAsInteger,jAsInteger,tAsInteger,minAsIntegerRandomizeFori=1Ton，**********SP/\CE**********a(i)=[?]NextiFori=1TonPrinta(i);NextiPrintFori=1Ton-1Forj=i+1TonIfa(j)<a(t)Thent=jNextj，**********Spy^cE**********If[?]Thenmin=a(i):a(i)=a(t):a(t)=minEndIfNextiFori=1TonPrinta(i);Nexti答案:.答案:...Int(^I00^*★Rnd^)^+★10t=io或t<i或i>t或nott=i或noti=tK第19題D［程序填空』（1分）（題號:44）【程序填空】功能：以下程序的功能如（圖1）。PrivateSubForm_Click()DimsAsSingle,mAsInteger,p#s=1Form=1To10，**********Spy\CE**********p=[?]s=s+1/pNextmPrintsFunctionn(k%)p=1Form=1Tok，**********Sp^cE**********p=[?]Nextm，**********Sp^cE**********[?]EndFunction答案：. n(m). p**★ m. n=pKM20J?2『程序填空』（1分）（題號:592）下面的程序段用于打印出以下圖形TTOC\o"1-5"\h\zT *? ***， *****， *******， *****? ***? *PrivateSubForm_Click()Dimi%,j%,k%Fori=3To0Step-1Forj=0To2*iPrintn0;Nextj**********SPy^CE**********Fork=5To[?]Print"*”；NextkPrintNextiFori=0To3Forj=0To2*i+2，**********Sp^cE**********[?]NextjFork=0To4-2*iPrintn*";Nextk[?]NextiEndSub答案：. 24力★1★StepEl. Print"或?". Print或?K第21題》『程序填空』（1分）（題號:595）【程序填空】功能：窗體上建立了一個文本框Textl（"輸入口令"）和一個命令按鈕Command】（"檢查"）。'判斷密碼是否正確，并顯示相應提示, 在加載窗體時設置密碼框最大長度為8,密碼顯示字符為“*”dimxasstringPrivateSubCommand1_Click()x=Textl.Text，**********Spy^cE**********Ifx[?]"12345678"ThenMsgBox("歡迎你用機!”)ElseMsgBox("對不起，口令錯”)EndIfTextl.Text=,M,Textl.SetFocusPrivateSubForm_Load()Textl.Text二””，**********Spy^CE**********Textl.[?]=8，**********Sp^CE**********Textl.[?]EndSub答案:.MaxLengthPasswordCharMaxLengthPasswordChar.K第22題1「程序填空J（1分）（題號:38）’【程序填空】'功能：下面的程序段，用于實現在一個nXm的矩陣中，找出值最, 大的元素所在的行和列，并輸出其值及行號和列號。PrivateSubForm_Click()Dimmat()AsIntegerDimnasinteger,mAsIntegern=Val(InputBox("請輸入矩陣的行數”))m=Val(InputBox("請輸入矩陣的列數',))，**********Spy^CE**********[?]Fori=1TonForj=1Tommat(i,j)=InputBox("請輸入數組元素值”)mat(i,j)=Val(mat(i,j))NextjNextiPrint”所建立的矩陣為”Fori=1TonForj=1TomPrintmat(i,j);NextjPrintNextiMax=mat(l,1)Fori=1TonForj=1Tom**********Sp^cE**********If[?]ThenMax=mat(i,j)col=j，**********sp^ce**********[?]EndIfNextjNextiPrintPrim”矩陣最大的元素的值為：mat(row,col)Print”它所在的行號為：”;row;”列號為：”;colEndSub答案：.ReDimmat(n,m)AsInteger或ReDimmat(n,m).Max<mat(i,j)或mat(i,j)>Max.row=IK第23題》『程序填空』（2分）（題號:45）’【程序填空】助能：下面的程序段用于求矩陣相乘C=A><B,設A、B、C分別為mXp、pXn>mXn的矩陣。PrivateSubForm__Click()Constm=4,p=3,n=2Dima(1Tom,1Top)AsIntegerDimb(1Top,1Ton)AsIntegerDimc(lTom,1Ton)AsIntegerDimiAsInteger,jAsInteger,kAsInteger,sumAsIntegerFori=1TomFork=1Topa(i,k)=iNextkNextiFori=1TopFork=1Tonb(i,k)=iNextkNextiFori=1TomForj=1Ton***********Sp^cE**********[?]Fork=1Top，**********Spy^CE*******sum=sum+[?]Nextk，**********Spy^cE**********c(i,j)=[?1Nextj,iPrint”輸出矩陣”Fori=1TomFork=1TonPrintc(i,k),NextkPrintNextiEndSub答案：. sum=0. a(i,k) b(kj). sumK第24題》『程序填空」（2分）（題號:52）’【程序填空】‘功能：卜面的程序段用于打印出以下圖形****PrivateSubForm_Click()Dimi%,j%,k%Fori=0To3Forj=0To2-iPrintnM;Nextj**********Spy\CE**********Fork=1To[?]Print"*”；NextkPrintNextiFori=OTo2Forj=OToi，**********Spy^cE**********[?]NextjFork=0To4-2*iPrint"*”；Nextk，**********Sp^cE**********[?]NextiEndSub答案：. Z*★i★+. Print"";或form1.print"";或？.Print或form1.Print或？K第25題?！撼绦蛱羁铡唬?分）（題號:47）【程序填空】助能：以下程序段用于實現：輸入兩個正整數m和n,求其最大

公因數和最小公倍數。PrivateSubForm_CIick()Dima%,b%,numl%,num2%,tempnuml=InputBox("請輸入一個正整數”)num2=InputBox("請輸入一個正整數")，**********Sp^cE**********If[?]Thentemp=numl:numl=num2:num2=tempEndIfa=numlb=num2，**********Sp/^CE**********DoWhile[?]temp=aModba=b**********SCE**********LoopPrint”最大公因數為aPrint”最小公倍數為："；numl*num2/a答案:.答案:..b=0.numl<num2或num2>numlb★<>★0或b>0或0<b或temp<>0或temp>0或0<temp或notnot0=bb=tempK第26題』『程序填空J（2分）（題號:40）【程序填空】功能：以下程序段用于輸出楊輝三角：結果樣式如圖1PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1，**********Sp^cE**********

[?]NextIForI=3TonForj=2ToI-1，**********Spy^cE**********arr(i,j)=[?]NextjNextIForI=1TonForj=1ToI，**********Sp^cE**********?【？】&””；NextjPrintNextI答案:.答案:...arr(i,1)=1★arr(i-!,]-1)★+★arr(i-1,j)arr(i,j)或str(arr(i,j))K第27題》【程序填空』（2分）（題號:39）U程序填空】'功能：以下程序段用于實現矩陣轉置，即將一個nXm的矩陣的行和列‘互換PrivateSubForm_Click()Constn=3Constm=4Dima(n,m),b(m,m)AsIntegerForI=1TonForj=1Toma(I,j)=Int(Rnd*90)+10Nextj**********SP/\CE**********[?1ForI=1TonForj=1Tom，**********Spy^cE**********[?]NextjNextIPrim”矩陣轉置前”ForI=1TonForj=1TomPrinta(I,j);Nextj，**********sp^ce**********[?]NextIPrint"矩陣轉置后"ForI=1TomForj=1TonPrintb(I,j);NextjPrintNextIEndSub答案：. Nexti或Next. bai)=a(i,j).print或form1.print或?K第28題?！撼绦蛱羁铡梗?分）（題號:53）“程序填空】'功能：下面的程序實現：從鍵盤輸入一個數字，將其插入一個'有序數組中，插入后的數組仍保持有序。PrivateSubForm_Click()Dima(IO)AsInteger,xAsIntegerFori=1To8a(i)=2*i-1Printa(i);NextiPrintx=InputBox(”請輸入要插入的整數”)，**********Spy^cE**********[?]i=8DoWhilea(i)>x，**********Spy^cE**********[?]i=i-1Loop，**********Spy^cE**********Ifi>0Then[?]Fori=1To9Printa(i);NextiEndSub答案：. a(0)=x.a(i+1)=a(i)或a(1+i)=a(i).a(i+l)=x或a(l+i)=x『第1題》『程序填空』(1分)(題號：56)’【程序填空】'功能：輸入數字1-7,顯示其對應是星期幾（例:輸入1,顯示星期日,, 如果輸入其它內容，一律顯示"輸入錯誤"）PrivateSubCommandl_Click()dimxasintegerdimyasstringx=val(textl.text)，**********Spy^CE**********[?]y=”今天是星期日”y二"星期一“y="星期二"y二"星期三”y="星期四”，**********Sp^cE**********[?]y="星期六"**********Sp^cE**********y="輸入錯誤"endselectText2.Text=yEndSub答案：. selectcasex. y=“星期五”. CaseElseI［第2題）『程序填空』（1分）（題號:59）’【程序填空】'功能：輸入一個數,若大于0,則顯示“+”；若小于0,1則顯示”?“；若等于“0”,則顯示“零“。PrivateSubCommandl_Click()x=Val(Text1.Text)SelectCasex，**********Spy^CE**********[?]Label1.Caption="+HCaseIs<0，**********Sp^cE**********，**********Spy^CE**********LabelLCaption="零”EndSelectEndSub

答案:.答案:...Label1.Caption=',-nCase0或CaseElse或CaseIs=0K第3題》『程序填空』（1分）（題號:36）’【程序填空】’功能：以下程序的功能如（圖1）。PrivateSubForm_Click()Dima%,b%?c%,d!Dimxl,x2Dimp,q,ra=InputBox("請輸入a的值”)b=InputBox("請輸入b的值”)c=InputBox("請輸入c的值”)d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then，**********Sp^cE**********If[?1Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2=p，**********Spy^cE**********PrintMxl=n;xl,“x2="；x2**********Spy^cE**********q=Sqr(-d)/(2*a)PrintMxl=n;p;"+“；q;“i“，“x2="；p;q;"iEndIfEndSub答案:. d>0或 0<d. EndIf. ElseK第4題》『程序填空」（1分）（題號:49）“程序填空】'功能：以下程序段用于求￡n!PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBox("請輸入一個正整數”)sum=0Fori=1Ton**********Sp^cE**********sum=[?]NextiPrintsumEndSubPrivateFunctionmul(ByValxAsInteger)DimsAsInteger,iAsIntegers=1**********Sp^cE**********Fori=1To[?]s=s*iNexti，**********Sp^cE**********[?]EndFunction答案：. sum^+* mul(i). x. mul=sK第5題》（程序填空J（1分）（題號:60）'【程序填空】'功能：輸入任何一個英文字母X,, 若x的值為,則顯示x的大寫字母：, 若x的值為則顯示x的小寫字母；,若x的值為其它的值,則顯示xa（如輸入的X的值是g,則顯示ga）oPrivateSubCommandl_Click()x=Text1.Text，**********Spy^CE**********[?]，**********Sp^cE**********Case[?]Label1.Caption=UCase(x)Case“m“，To“z"Label1.Caption=LCase(x)CaseElse，**********Spy^cE**********[?]EndSelectEndSub答案：. SelectCasex. "a","c","d"To"f". Label1.Caption=Trim(x)+"a"或Label1.Caption=x+"a"k第6題。r程序填空」（i分）（題號：5i）【程序填空】功能：下面的程序段用于建立文件并輸出文件，文件內容如下:，*****************，***********PrivateSubForm_Click()，**********Spy^cE**********Open"c:\l.txt"For[?]As#1Fori=!To5Print#1,Spc(i);”*****''Nexti，**********Spy^CE**********[?]，**********Sp^cE**********OpenMc:\l.txtnFor[?]As#lFori=1To5LineInput#1,xPrintxNextiClose#1EndSub答案：. Output. Close#1 或Close. InputR第7題》『程序填空』（1分）（題號:57）【程序填空】'功能:求1!+2!+……+10!的值。PrivateSubForm_Click()，**********Spy^cE**********s=1Fori=2To10*1，**********Sp^cE**********[?]PrintsEndSub答案：. t=1. s=★ +★ t. NextI 或 NextK第8題U『程序填空」（1分）（題號:41）'【程序填空】不面過程max。用于求3個數中最大值，利用這個過程求5個數中最大值。PrivateSubForm_Click()Print”5個數34、124、68、73、352的最大值是：”maxi=max(34,124,68)，**********Sp/\CE**********maxi=【？】PrintmaxiEndSubPublicFunctionmax(ByVala%,ByVaib%,ByVaic%)，**********Spy^cE**********If[?]Thenm=aElsem=bEndIf，**********Sp^cE**********If[?]Thenmax=mElsemax=cEndIfEndFunction答案：. max(maxl,73,352). a>b或b<a. m>c或cvmK第9題》r程序填空』（1分）（題號:46）【程序填空】'功能：從鍵盤輸入學生分數，統(tǒng)計學生總人數和各分數段人數,' 即優(yōu)秀（90400）、良好（80-89）、中等（70-79）.1 及格（60?69）、不及格（60以下）的人數。PrivateSubForm_Click()Dimscore%,nl%,n2%,n3%,n4%,n5%msg="請輸入分數(?1結束)”msgtitile="輸入數據”score=Val(InputBox(msg,msgtitle))，**********SP^CE**********While[?]total=total+1，**********Spy^cE**********SelectCase[?]CaseIs>=90nl=nl+1CaseIs>=80n2=n2+1CaseIs>=70n3=n3+1CaseIs>=60n4=n4+1CaseElsen5=n5+1**********Spy^cE**********[7]score=Val(InputBox(msg,msgtitle))WendPrintnl,n2,n3,n4,n5,totalEndSub答案:

scorev=100或.score>=0★And*score<=100或0<=score★scorev=100或0<=score★And*100>=score或score>=0★And*100>=score. score. EndSelectK第10題》『程序填空J（1分）（題號：61）’【程序填空】'功能：根據輸入的學習成績，分別顯示優(yōu)秀（90分以上），良好, （75分以上），及格（60分以上），不及格幾個等級。PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx>=90ThenLabel1.Caption="優(yōu)秀”，**********Sp^cE**********Elself[?]ThenLabel1.Caption="良好"Elselfx>=60Then，**********Spy^cE**********，**********Sp^ce**********Labell.C叩tion="不及格"EndIf答案:.答案:...x>=75或75<=XLabel1.Caption="及格"或Labell="及格”ElseK第11題】［程序填空」（1分）（題號:54）

’【程序填空】'功能：本程序用于實現：從鍵盤接收一數字，判斷其是否在數組, 中，如果在數組中則將其刪除，否則顯示該數字不在數組, 中。PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("請輸入要刪除的整數”)Fori=ITo10，**********Spy^cE**********Ifa(i)=xThen[?]Nexti，**********Sp/\CE**********If[?]ThenFork=iTo9，**********SP^CE**********[?]NextkPrint”刪除后的數組:"Fori=1To9Printa(i);NextiElsePrint”該數字不在數組中”EndIf答案:.答案:...ExitFori<10或10>ia(k)=a(*k★+★1★)K第12題》『程序填空』（1分）（題號:43）【程序填空】

'功能：下面的程序段用于實現以下功能：利用冒泡法將一組整數,從小到大排序。PrivateSubForm_Click()Constn=15Dima(lTon)AsInteger,workAsBooleanDimiAsInteger,jAsInteger,xAsIntegerRandomizeFori=1Tona(i)=Int(90*Rnd)+10NextiFori=1TonPrinta(i);NextiPrint**********Spy^cE**********Fori=nTo2[?]work=TrueForj=1Toi-1Ifa(j)>a(j+l)Thenx=a(j):a(j)=a(j+1):a(j+1)=x**********Spy^CE**********[?]EndIfNextj，**********Sp^cE**********IfworkThen[?]NextiFori=1TonPrinta(i);Nexti答案:.答案:...Step-1work=False或work=0或notwork=trueExitForK第13題》「程序填空」（1分）（題號:55）

’【程序填空】'功能：過程suixian可以判斷某一個數字是否是水仙花數，利用, 該過程找出三位數中所有水仙花數。' 所謂"水仙花數"是指一個3位數，其各位數字立方和等于, 該數本身。PrivateSubForm_Click()DimiAsIntegerFori=100To999?**********gp>^(2E**********[?]NextiEndSubPublicSubsuixian(xAsInteger)Dimi%,j%,k%，**********Spy\cE**********i=[?]j=(x-i*100)\10k=x-i*100-j*10**********Spy^cE**********If[?]If[?]EndSubThenPrintx答案:答案:...suixian(i)或callsuixian(i)或suixianix\100或int(x/100)x=*iA3*+★jA3*+★kA3或x=*i*i*i*+★j*j*j*+★k*k*kR第14題》『程序填空］（1分）（題號:58）【程序填空】功能：求A.B,C三個數的最大值。PrivateSubCommandl_Click()A=Val(Textl.Text)，**********sb\ce**********[?]

C=Val(Text3.Text)IfA>BAndA>CThenMAXDATE=A，**********Sp^cE**********Elself[?]ThenMAXDATE=BElse，**********SP/^CE**********[?]EndIfLabel1.Caption=MAXDATE&”是最大值”答案:.答案:...B=Val(Text2.Text)或b=val(tex⑵B>C或C<B或B>C★and★b>a或c<b★and*a<bMAXDATE=CR第15題》『程序填空』（1分）（題號:595）'【程序填空】功能：窗體上建立了一個文本框Textl（"輸入口令"）和一個命令按鈕Command】（"檢查"）。,判斷密碼是否正確，并顯示相應提示, 在加載窗體時設置密碼框最大長度為8,密碼顯示字符為“*”dimxasstringPrivateSubCommandI_Click()x=Text1.Text，**********Spy^CE**********Ifx[?]H12345678"ThenMsgBox("歡迎你用機!”)ElseMsgBox("對不起，口令錯”)EndIfTextl.Text=""Textl.SetFocusEndSubPrivateSubForm_Load()Textl.Text二"”，**********Spy^CE**********Textl.[?]=8，**********SPACE**********Textl.[?]="*"EndSub答案：. =. MaxLength. PasswordCharK第16題21「程序填空」（1分）（題號:48）U程序填空】'功能：利用下面的過程求m!和m*nPrivateSubForm_Click()DimmAsInteger,nAsIntegerm=2n=3，**********Spy^cE**********[?]EndSubPrivateSubfind(xAsInteger,yAsInteger)Dims,iAsInteger，**********Spy^cE**********[?]Fori=1Toxs=s*i，**********SP/XCE**********p=(7]NextiPrints,pEndSub

答案:...findm,n或callfind(m,n)s=1或s=l：p=0答案:...K第17題》『程序填空J（1分）（題號:42）’【程序填空】助能：以下程序段利用隨機函數生成15個10/00之間的整數,然后用選擇法將其從小到大排序。PrivateSubForm_Click()Constn=15Dima(lTon)AsIntegerDimiAsInteger,jAsInteger,tAsInteger,minAsIntegerRandomizeFori=1Ton，**********SP^CE**********a(i)=[?]NextiFori=1TonPrinta(i);NextiPrintFori=1Ton-1**********sp/\CE**********Forj=i+1TonIfa(j)<a(t)Thent=jNextj，**********SP/\CE**********If[?]Thenmin=a(i):a(i)=a(t):a(t)=minEndIfNextiFori=1TonPrinta(i);NextiEndSub答案：. Int(^100i^ *★ Rnd^)^ +★10. t=i. (★<>★1或 tvi或 i>t或nott=i 或noti=tK第18題H『程序填空』（1分）（題號:44）'【程序填空】'功能：以下程序的功能如（圖1）。PrivateSubForm_Click()DimsAsSingle,mAsInteger,p#s=1Form=1To10，**********Spy^cE**********p=[?]s=s+1/pNextmPrintsEndSubFunctionn(k%)p=1Form=1Tok，**********SP^CE**********p=[?]Nextm**********Spy^CE**********[?]EndFunction答案：. n(m). p**★ m. n=p’【程序填空】'功能：從鍵盤上輸入一串字符，以"?"結束，統(tǒng)計輸入字符中的'大、小寫字母和數字的個數。PrivateSubForm_Click()Dimch$,nl%,n2%,n3%nl=0n2=0n3=0ch=InputBox("請輸入一個字符”)，**********Sp^cE**********DoWhile[?]SelectCasechCase"a“To“z“nl=nl+1，**********Spy^cE**********Case[?]n2=n2+1Case“0“To“9"n3=n3+1EndSelectch=lnputBox("請輸入一個字符")，**********Sp^cE**********[?]Printnl,n2,n3答案:.答案:...ch★<>★"?"或notch="?"或not"?"=ch"A"To"Z"LoopK第20題?！撼绦蛱羁铡唬?分）（題號:38）‘功能：下面的程序段，用于實現在一個nXm的矩陣中，找出值最, 大的元素所在的行和列，并輸出其值及行號和列號。PrivateSubForm_Click()Dimmat()AsIntegerDimnasinteger,mAsIntegern=Val(InputBox("請輸入矩陣的行數"))m=Val(InputBox("請輸入矩陣的列數”))，**********Spy^cE**********[?]Fori1TonForj=1Tommat(i,j)=InputBox("請輸入數組元素值”)mat(i,j)=Val(mat(i,j))NextjNextiPrint”所建立的矩陣為"Fori=1TonForj=1TomPrintmat(i,j);NextjPrintNextiMax=mat(1,1)Fori=1TonForj=1Tom**********Spy^CE**********If[?]ThenMax=mat(i,j)col=j**********Sp^cE**********EndIfNextjNextiPrintPrint”矩陣最大的元素的值為：";mat(row,col)Print”它所在的行號為：”;row;”列號為：”;colEndSub答案：.ReDimmat(n,m)AsInteger或ReDimmat(n,m).Max<mat(i,j)或mat(i,j)>Max

3).row=3).row=IR第21題U『程序填空」（1分）（題號:592）'下面的程序段用于打印出以下圖形tTOC\o"1-5"\h\z， *? **** ****** *******， *****? ***? *PrivateSubForm_Click()Dimi%,j%,k%Fori=3To0Step-1Forj=OTo2*iPrintnH;Nextj******************Fork=5To[?]PrintM*M;NextkPrintNextiFori=OTo3Forj=OTo2*i+2，**********Spy^CE**********NextjFork=0To4-2*Printn*Nextk**********Spy^CE**********NextiEndSub答案:. 2★*★!★-★l^Stepi^-1. Print"或?". Print或？K第22題』『程序填空』（1分）（題號:37）’【程序填空】'功能：以下程序用于判斷一個正整數（23）是否為素數。PrivateSubForm_Click()n=InputBox("請輸入一個正整數(妾3)”)k=lnt(Sqr(n))i=2swit=0，**********SP^CE**********DoWhilei<=kAnd[?]**********SP/\CE**********If[?]Thenswit=1臼se，**********Sp^cE**********[?]EndIfLoopIfswit=OThenPrintn;"是一個素數"ElsePrintn;"不是素數”EndIfEndSub答案：. swit=0. nModi=0或 n/i ★=★n\i或n/i★=★int(n/i). i= ★+★ 1U程序填空】'功能：以下程序段用于輸出楊輝三角：結果樣式如圖1PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1**********Sp^cE**********[?]NextIForI=3TonForj=2ToI-1，**********Spy^cE**********arr(i,j)=[?]NextjNextIForI=1TonForj=IToI，**********Sp^cE**********?【？】&””；NextjPrintNextIEndSub答案：. arr(i,1)=1.★anti-1,j-1)★+★arr(i-1,j). arr(i,j)或str(arr(i,j))KM24?3［程序填空］（2分）（題號:45）’功能：下面的程序段用于求矩陣相乘C=AXB,設A、B、C分別為，mXp、pXn、mXn的矩陣。PrivateSubForm_Click()Constm=4,p=3,n=2Dima(1Tom,1Top)AsIntegerDimb(1Top,1Ton)AsIntegerDimc(lTom,ITon)AsIntegerDimiAsInteger,jAsInteger,kAsInteger,sumAsIntegerFori=1TomFork=1Topa(i,k)=iNextkNextiFori=1TopFork=1Tonb(i,k)=iNextkNextiFori=1TomForj=1Ton，**********Sp^cE**********[?]Fork=1Top，**********Spy^cE**********sum=sum+[?]Nextk，**********Sp^cE**********c(i,j)=[?]Nextj,iPrint”輸出矩陣”Fori=1TomFork=1TonPrintc(i,k),NextkPrintNexti答案:.答案:...sum=0a(i,k)b(kj)sum'【程序填空】'功能：下面的程序實現：從鍵盤輸入一個數字，將其插入一個,有序數組中，插入后的數組仍保持有序。PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To8a(i)=2*i-lPrinta(i);NextiPrintX=InputBox("請輸入要插入的整數")，**********Sp/\CE**********[?]i=8DoWhilea(i)>x**********Spy\CE**********i=i-1Loop，**********Sp^cE**********Ifi>0Then[?]Fori=1To9Printa(i);NextiEndSub答案：. a(0)=x.a(i+1)=a(i)或a(l+i)=a(i).a(i+1)=x或a(l+i)=xK第26題X「程序填空」（2分）（題號:39）'【程序填空】'功能：以下程序段用于實現矩陣轉置，即將一個nXm的矩陣的行和列'互換PrivateSubForm_Click()Constn=3Constm=4Dima(n,m),b(m,m)AsIntegerForI=1TonForj=1Toma(IJ)=Int(Rnd*90)+10Nextj，**********Spy^cE**********[?]ForI=1TonForj=1Tom，**********Spy^cE**********[?]NextjNextIPrim”矩陣轉置前”ForI=1TonForj=1TomPrinta(I,j);Nextj，**********Sp^cE**********[?]NextIPrint”矩陣轉置后”ForI=1TomForj=1TonPrintb(I,j);NextjPrintNextI答案:.答案:...Nexti或Nextb(j,i)=a(i,j)print或form1.print或?R第27題J1程序填空J（2分）（題號:47）’【程序填空】'功能：以下程序段用于實現：輸入兩個正整數m和n,求其最大, 公因數和最小公倍數。PrivateSubForm_Click()Dima%,b%,numl%,num2%,tempnuml=InputBox("請輸入一個正整數")num2=InputBox("請輸入一個正整數")，**********Spy^cE**********If[?]Thentemp=numl:numl=num2:num2=tempEndIfa=numlb=num2，**********Spy^cE**********DoWhile(?)temp=aModba=b**********SP/\CE**********[?]LoopPrint”最大公因數為：";a答案:..b=0.Print”答案:..b=0.num1<num2或num2>num1b★<>★0或b>0或0<b或temp<>0或temp>0或0ctemp或notnot0=bb=tempK第28題?！撼绦蛱羁铡唬?分）（題號:52）助能：下面的程序段用于打印出以下圖形******PrivateSubForm_Click()Dimi%,j%,k%Fori=OTo3Forj=0To2-iPrintMNextj**********Spy^cE**********Fork=1To[?]Print"*”；NextkPrintNextiFori=OTo2Forj=OToi，**********Sp(\CE**********[?]NextjFork=0To4-2*iPrintM*n;Nextk，**********SPy^CE**********[?]NextiEndSub答案：.*★1. Print"“；或form1.printnn;或?.Print或form1.Print或?K第1題》[程序填空」(2分)(題號:50)'功能：從鍵盤上輸入?串字符，以"?”結束，統(tǒng)計輸入字符中的' 大、小寫字母和數字的個數。PrivateSubForm_Click（）Dimch$,nl%,n2%,n3%nl=0n2=0n3=0ch=InputBox（"請輸入一個字符”）'**********SPACE**********DoWhile[?] CH<>"?”SelectCasechCaseaIoznl=nl+1‘**********space**********Case[?] “A”TO"Z”n2=n2+1Case"0"To"9"n3=n3+1EndSelectch=InputBox（"請輸入一個字符”）'**********SPACE********** LOOP[?]Printnl,n2,n3EndSub答案：. ch★<>★ 或notch=或not"?”=ch. "A"To"Z". LoopK第2題』『程序填空J（2分）（題號:514）【程序填空】功能：本程序求3、100之間的所有素數（質數）并統(tǒng)計個數；同時將這些素數從小到大依次寫入順序文件dataout.txt；素數的個數顯示在窗體Forml上。PrivateSubCommand1Click（）DimcountAsInteger,flagAsBooleanDimtlAsInteger,t2AsInteger'**********SPACE**********#1OpenApp.Path&*\dataout.txt*ForOutputAs[?]#1count=0Fortl=3To100'**********SPACE**********flag=[?] TRU