VB題庫(kù)-程序填空

程序填空〖第1題〗『程序填空』(1分)(題號(hào):59)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：輸入一個(gè)數(shù),若大于0,則顯示"+"；若小于0，'則顯示"-"；若等于"0",則顯示"零"。'-------------------------------------------------------PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasex'**********SPACE**********Caseis>0Label1.Caption="+"CaseIs<0'**********SPACE**********Label1.Caption="-"'**********SPACE**********Caseis=Label1.Caption="零"EndSelectEndSub答案：1).CaseIs>02).Label1.Caption="-"3).Case0或CaseElse或CaseIs=0〖第2題〗『程序填空』(1分)(題號(hào):60)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：輸入任何一個(gè)英文字母x,'若x的值為"a","c","d-f",則顯示x的大寫字母；'若x的值為"m","o","p-z",則顯示x的小寫字母；'若x的值為其它的值,則顯示xa（如輸入的X的值是g，則顯示ga）。'-------------------------------------------------------PrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********【?】'**********SPACE**********Case【?】Label1.Caption=UCase(x)Case"m","o","p"To"z"Label1.Caption=LCase(x)CaseElse'**********SPACE**********【?】EndSelectEndSub答案：1).SelectCasex2)."a","c","d"To"f"3).Label1.Caption=Trim(x)+"a"或Label1.Caption=x+"a"〖第3題〗『程序填空』(1分)(題號(hào):36)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序的功能如(圖1)。'-------------------------------------------------------PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("請(qǐng)輸入a的值")b=InputBox("請(qǐng)輸入b的值")c=InputBox("請(qǐng)輸入c的值")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If【?】Thenr=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p'**********SPACE**********【?】Print"x1=";x1,"x2=";x2'**********SPACE**********【?】q=Sqr(-d)/(2*a)Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"EndIfEndSub答案：1).d>0或0<d2).EndIf3).Else〖第4題〗『程序填空』(1分)(題號(hào):51)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于建立文件并輸出文件，文件內(nèi)容如下：''*****'*****'*****'*****'*****'-------------------------------------------------------PrivateSubForm_Click()'**********SPACE**********Open"c:\1.txt"For【?】As#1Fori=1To5Print#1,Spc(i);"*****"Nexti'**********SPACE**********【?】'**********SPACE**********Open"c:\1.txt"For【?】As#1Fori=1To5LineInput#1,xPrintxNextiClose#1EndSub答案：1).Output2).Close#1或Close3).Input〖第5題〗『程序填空』(1分)(題號(hào):49)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段用于求∑n!'-------------------------------------------------------PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")sum=0Fori=1Ton'**********SPACE**********sum=【?】NextiPrintsumEndSubPrivateFunctionmul(ByValxAsInteger)DimsAsInteger,iAsIntegers=1'**********SPACE**********Fori=1To【?】s=s*iNexti'**********SPACE**********【?】EndFunction答案：1).sum★+★mul(i)2).x3).mul=s〖第6題〗『程序填空』(1分)(題號(hào):61)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：根據(jù)輸入的學(xué)習(xí)成績(jī),分別顯示優(yōu)秀(90分以上),良好'(75分以上),及格(60分以上),不及格幾個(gè)等級(jí)。'-------------------------------------------------------PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx>=90ThenLabel1.Caption="優(yōu)秀"'**********SPACE**********ElseIf【?】ThenLabel1.Caption="良好"ElseIfx>=60Then'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption="不及格"EndIfEndSub答案：1).x>=75或75<=X2).Label1.Caption="及格"或Label1="及格"3).Else〖第8題〗『程序填空』(1分)(題號(hào):46)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：從鍵盤輸入學(xué)生分?jǐn)?shù)，統(tǒng)計(jì)學(xué)生總?cè)藬?shù)和各分?jǐn)?shù)段人數(shù)，'即優(yōu)秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人數(shù)。'-------------------------------------------------------PrivateSubForm_Click()Dimscore%,n1%,n2%,n3%,n4%,n5%msg="請(qǐng)輸入分?jǐn)?shù)（-1結(jié)束）"msgtitile="輸入數(shù)據(jù)"score=Val(InputBox(msg,msgtitle))'**********SPACE**********While【?】total=total+1'**********SPACE**********SelectCase【?】CaseIs>=90n1=n1+1CaseIs>=80n2=n2+1CaseIs>=70n3=n3+1CaseIs>=60n4=n4+1CaseElsen5=n5+1'**********SPACE**********【?】score=Val(InputBox(msg,msgtitle))WendPrintn1,n2,n3,n4,n5,totalEndSub答案：1).score>=0★And★score<=100或0<=score★And★score<=100或0<=score★And★100>=score或score>=0★And★100>=score2).score3).EndSelect〖第9題〗『程序填空』(1分)(題號(hào):56)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：輸入數(shù)字1-7,顯示其對(duì)應(yīng)是星期幾(例:輸入1,顯示星期日,'如果輸入其它內(nèi)容，一律顯示"輸入錯(cuò)誤")'-------------------------------------------------------PrivateSubCommand1_Click()dimxasintegerdimyasstringx=val(text1.text)'**********SPACE**********【?】case1y="今天是星期日"case2y="星期一"case3y="星期二"case4y="星期三"case5y="星期四"case6'**********SPACE**********【?】case7y="星期六"'**********SPACE**********【?】y="輸入錯(cuò)誤"endselectText2.Text=yEndSub答案：1).selectcasex2).y="星期五"3).CaseElse〖第10題〗『程序填空』(1分)(題號(hào):41)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'下面過程max()用于求3個(gè)數(shù)中最大值，利用這個(gè)過程求5個(gè)數(shù)中最大值。'-------------------------------------------------------PrivateSubForm_Click()Print"5個(gè)數(shù)34、124、68、73、352的最大值是："max1=max(34,124,68)'**********SPACE**********max1=【?】Printmax1EndSubPublicFunctionmax(ByVala%,ByValb%,ByValc%)'**********SPACE**********If【?】Thenm=aElsem=bEndIf'**********SPACE**********If【?】Thenmax=mElsemax=cEndIfEndFunction答案：1).max(max1,73,352)2).a>b或b<a3).m>c或c<m〖第11題〗『程序填空』(1分)(題號(hào):43)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于實(shí)現(xiàn)以下功能：利用冒泡法將一組整數(shù)'從小到大排序。'-------------------------------------------------------PrivateSubForm_Click()Constn=15Dima(1Ton)AsInteger,workAsBooleanDimiAsInteger,jAsInteger,xAsIntegerRandomizeFori=1Tona(i)=Int(90*Rnd)+10NextiFori=1TonPrinta(i);NextiPrint'**********SPACE**********Fori=nTo2【?】work=TrueForj=1Toi-1Ifa(j)>a(j+1)Thenx=a(j):a(j)=a(j+1):a(j+1)=x'**********SPACE**********【?】EndIfNextj'**********SPACE**********IfworkThen【?】NextiFori=1TonPrinta(i);NextiEndSub答案：1).Step-12).work=False或work=0或notwork=true3).ExitFor〖第12題〗『程序填空』(1分)(題號(hào):37)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序用于判斷一個(gè)正整數(shù)（≥3）是否為素?cái)?shù)。'-------------------------------------------------------PrivateSubForm_Click()n=InputBox("請(qǐng)輸入一個(gè)正整數(shù)（≥3）")k=Int(Sqr(n))i=2swit=0'**********SPACE**********DoWhilei<=kAnd【?】'**********SPACE**********If【?】Thenswit=1Else'**********SPACE**********【?】EndIfLoopIfswit=0ThenPrintn;"是一個(gè)素?cái)?shù)"ElsePrintn;"不是素?cái)?shù)"EndIfEndSub答案：1).swit=02).nModi=0或n/i★=★n\i或n/i★=★int(n/i)3).i=★i★+★1〖第13題〗『程序填空』(1分)(題號(hào):55)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：過程suixian可以判斷某一個(gè)數(shù)字是否是水仙花數(shù)，利用'該過程找出三位數(shù)中所有水仙花數(shù)。'所謂"水仙花數(shù)"是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于'該數(shù)本身。'-------------------------------------------------------PrivateSubForm_Click()DimiAsIntegerFori=100To999'**********SPACE**********【?】NextiEndSubPublicSubsuixian(xAsInteger)Dimi%,j%,k%'**********SPACE**********i=【?】j=(x-i*100)\10k=x-i*100-j*10'**********SPACE**********If【?】ThenPrintxEndSub答案：1).suixian(i)或callsuixian(i)或suixiani2).x\100或int(x/100)3).x=★i^3★+★j^3★+★k^3或x=★i*i*i★+★j*j*j★+★k*k*k〖第14題〗『程序填空』(1分)(題號(hào):50)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：從鍵盤上輸入一串字符，以"?"結(jié)束，統(tǒng)計(jì)輸入字符中的'大、小寫字母和數(shù)字的個(gè)數(shù)。'-------------------------------------------------------PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox("請(qǐng)輸入一個(gè)字符")'**********SPACE**********DoWhile【?】SelectCasechCase"a"To"z"n1=n1+1'**********SPACE**********Case【?】n2=n2+1Case"0"To"9"n3=n3+1EndSelectch=InputBox("請(qǐng)輸入一個(gè)字符")'**********SPACE**********【?】Printn1,n2,n3EndSub答案：1).ch★<>★"?"或notch="?"或not"?"=ch2)."A"To"Z"3).Loop〖第15題〗『程序填空』(1分)(題號(hào):54)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：本程序用于實(shí)現(xiàn)：從鍵盤接收一數(shù)字，判斷其是否在數(shù)組'中，如果在數(shù)組中則將其刪除，否則顯示該數(shù)字不在數(shù)組'中。'-------------------------------------------------------PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("請(qǐng)輸入要?jiǎng)h除的整數(shù)")Fori=1To10'**********SPACE**********Ifa(i)=xThen【?】Nexti'**********SPACE**********If【?】ThenFork=iTo9'**********SPACE**********【?】NextkPrint"刪除后的數(shù)組:"Fori=1To9Printa(i);NextiElsePrint"該數(shù)字不在數(shù)組中"EndIfEndSub答案：1).ExitFor2).i<10或10>i3).a(k)=a(★k★+★1★)〖第16題〗『程序填空』(1分)(題號(hào):48)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：利用下面的過程求m!和m*n'-------------------------------------------------------PrivateSubForm_Click()DimmAsInteger,nAsIntegerm=2n=3'**********SPACE**********【?】EndSubPrivateSubfind(xAsInteger,yAsInteger)Dims,iAsInteger'**********SPACE**********【?】Fori=1Toxs=s*i'**********SPACE**********p=【?】NextiPrints,pEndSub答案：1).findm,n或callfind(m,n)2).s=1或s=1:p=03).p★+★y或x*y〖第17題〗『程序填空』(1分)(題號(hào):58)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：求A,B,C三個(gè)數(shù)的最大值。'-------------------------------------------------------PrivateSubCommand1_Click()A=Val(Text1.Text)'**********SPACE**********【?】C=Val(Text3.Text)IfA>BAndA>CThenMAXDATE=A'**********SPACE**********ElseIf【?】ThenMAXDATE=BElse'**********SPACE**********【?】EndIfLabel1.Caption=MAXDATE&"是最大值"EndSub答案：1).B=Val(Text2.Text)或b=val(text2)2).B>C或C<B或B>C★and★b>a或c<b★and★a<b3).MAXDATE=C〖第18題〗『程序填空』(1分)(題號(hào):42)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段利用隨機(jī)函數(shù)生成15個(gè)10-100之間的整數(shù)，然后用選擇法將其從小到大排序。'-------------------------------------------------------PrivateSubForm_Click()Constn=15Dima(1Ton)AsIntegerDimiAsInteger,jAsInteger,tAsInteger,minAsIntegerRandomizeFori=1Ton'**********SPACE**********a(i)=【?】NextiFori=1TonPrinta(i);NextiPrintFori=1Ton-1'**********SPACE**********【?】Forj=i+1TonIfa(j)<a(t)Thent=jNextj'**********SPACE**********If【?】Thenmin=a(i):a(i)=a(t):a(t)=minEndIfNextiFori=1TonPrinta(i);NextiEndSub答案：1).Int(★100★*★Rnd★)★+★102).t=i3).t★<>★I或t<i或i>t或nott=i或noti=t〖第19題〗『程序填空』(1分)(題號(hào):44)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序的功能如(圖1)。'-------------------------------------------------------PrivateSubForm_Click()DimsAsSingle,mAsInteger,p#s=1Form=1To10'**********SPACE**********p=【?】s=s+1/pNextmPrintsEndSubFunctionn(k%)p=1Form=1Tok'**********SPACE**********p=【?】Nextm'**********SPACE**********【?】EndFunction答案：1).n(m)2).p★*★m3).n=p〖第20題〗『程序填空』(1分)(題號(hào):592)'下面的程序段用于打印出以下圖形''*'***'*****'*******'*****'***'*''-------------------------------------------------------PrivateSubForm_Click()Dimi%,j%,k%Fori=3To0Step-1Forj=0To2*iPrint"";Nextj'**********SPACE**********Fork=5To【?】Print"*";NextkPrintNextiFori=0To3Forj=0To2*i+2'**********SPACE**********【?】NextjFork=0To4-2*iPrint"*";Nextk'**********SPACE**********【?】NextiEndSub答案：1).2★*★i★-★1★Step★-12).Print"";或?"";3).Print或?〖第21題〗『程序填空』(1分)(題號(hào):595)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：窗體上建立了一個(gè)文本框Text1("輸入口令")和一個(gè)命令按鈕Command1("檢查")。'判斷密碼是否正確，并顯示相應(yīng)提示'在加載窗體時(shí)設(shè)置密碼框最大長(zhǎng)度為8，密碼顯示字符為“*”'-------------------------------------------------------dimxasstringPrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********MsgBox("歡迎你用機(jī)!")ElseMsgBox("對(duì)不起，口令錯(cuò)")EndIfText1.Text=""Text1.SetFocusEndSubPrivateSubForm_Load()Text1.Text=""'**********SPACE**********Text1.【?】=8'**********SPACE**********Text1.【?】="*"EndSub答案：1).=2).MaxLength3).PasswordChar〖第22題〗『程序填空』(1分)(題號(hào):38)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段，用于實(shí)現(xiàn)在一個(gè)nXm的矩陣中，找出值最'大的元素所在的行和列，并輸出其值及行號(hào)和列號(hào)。'-------------------------------------------------------PrivateSubForm_Click()Dimmat()AsIntegerDimnasinteger,mAsIntegern=Val(InputBox("請(qǐng)輸入矩陣的行數(shù)"))m=Val(InputBox("請(qǐng)輸入矩陣的列數(shù)"))'**********SPACE**********【?】Fori=1TonForj=1Tommat(i,j)=InputBox("請(qǐng)輸入數(shù)組元素值")mat(i,j)=Val(mat(i,j))NextjNextiPrint"所建立的矩陣為"Fori=1TonForj=1TomPrintmat(i,j);NextjPrintNextiMax=mat(1,1)Fori=1TonForj=1Tom'**********SPACE**********If【?】ThenMax=mat(i,j)col=j'**********SPACE**********【?】EndIfNextjNextiPrintPrint"矩陣最大的元素的值為：";mat(row,col)Print"它所在的行號(hào)為：";row;"列號(hào)為：";colEndSub答案：1).ReDimmat(n,m)AsInteger或ReDimmat(n,m)2).Max<mat(i,j)或mat(i,j)>Max3).row=I〖第23題〗『程序填空』(2分)(題號(hào):45)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于求矩陣相乘C=A×B，設(shè)A、B、C分別為'm×p、p×n、m×n的矩陣。'-------------------------------------------------------PrivateSubForm_Click()Constm=4,p=3,n=2Dima(1Tom,1Top)AsIntegerDimb(1Top,1Ton)AsIntegerDimc(1Tom,1Ton)AsIntegerDimiAsInteger,jAsInteger,kAsInteger,sumAsIntegerFori=1TomFork=1Topa(i,k)=iNextkNextiFori=1TopFork=1Tonb(i,k)=iNextkNextiFori=1TomForj=1Ton'**********SPACE**********【?】Fork=1Top'**********SPACE**********sum=sum+【?】Nextk'**********SPACE**********c(i,j)=【?】Nextj,iPrint"輸出矩陣"Fori=1TomFork=1TonPrintc(i,k),NextkPrintNextiEndSub答案：1).sum=02).a(i,k)★*★b(k,j)3).sum〖第24題〗『程序填空』(2分)(題號(hào):52)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于打印出以下圖形''*'***'*****'*******'*****'***'*'-------------------------------------------------------PrivateSubForm_Click()Dimi%,j%,k%Fori=0To3Forj=0To2-iPrint"";Nextj'**********SPACE**********Fork=1To【?】Print"*";NextkPrintNextiFori=0To2Forj=0Toi'**********SPACE**********【?】NextjFork=0To4-2*iPrint"*";Nextk'**********SPACE**********【?】NextiEndSub答案：1).2★*★i★+★12).Print"";或form1.print"";或?"";3).Print或form1.Print或?〖第25題〗『程序填空』(2分)(題號(hào):47)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段用于實(shí)現(xiàn)：輸入兩個(gè)正整數(shù)m和n，求其最大'公因數(shù)和最小公倍數(shù)。'-------------------------------------------------------PrivateSubForm_Click()Dima%,b%,num1%,num2%,tempnum1=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")num2=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")'**********SPACE**********If【?】Thentemp=num1:num1=num2:num2=tempEndIfa=num1b=num2'**********SPACE**********DoWhile【?】temp=aModba=b'**********SPACE**********【?】LoopPrint"最大公因數(shù)為：";aPrint"最小公倍數(shù)為：";num1*num2/aEndSub答案：1).num1<num2或num2>num12).b★<>★0或b>0或0<b或temp<>0或temp>0或0<temp或notb=0或not0=b3).b=temp〖第26題〗『程序填空』(2分)(題號(hào):40)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段用于輸出楊輝三角：結(jié)果樣式如圖1'-------------------------------------------------------PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1'**********SPACE**********【?】NextIForI=3TonForj=2ToI-1'**********SPACE**********arr(i,j)=【?】NextjNextIForI=1TonForj=1ToI'**********SPACE**********?【?】&"";NextjPrintNextIEndSub答案：1).arr(i,1)=12).★arr(i-1,j-1)★+★arr(i-1,j)3).arr(i,j)或str(arr(i,j))〖第27題〗『程序填空』(2分)(題號(hào):39)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段用于實(shí)現(xiàn)矩陣轉(zhuǎn)置，即將一個(gè)n×m的矩陣的行和列'互換'-------------------------------------------------------PrivateSubForm_Click()Constn=3Constm=4Dima(n,m),b(m,m)AsIntegerForI=1TonForj=1Toma(I,j)=Int(Rnd*90)+10Nextj'**********SPACE**********【?】ForI=1TonForj=1Tom'**********SPACE**********【?】NextjNextIPrint"矩陣轉(zhuǎn)置前"ForI=1TonForj=1TomPrinta(I,j);Nextj'**********SPACE**********【?】NextIPrint"矩陣轉(zhuǎn)置后"ForI=1TomForj=1TonPrintb(I,j);NextjPrintNextIEndSub答案：1).Nexti或Next2).b(j,i)=a(i,j)3).print或form1.print或?〖第28題〗『程序填空』(2分)(題號(hào):53)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序?qū)崿F(xiàn)：從鍵盤輸入一個(gè)數(shù)字，將其插入一個(gè)'有序數(shù)組中，插入后的數(shù)組仍保持有序。'-------------------------------------------------------PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To8a(i)=2*i-1Printa(i);NextiPrintx=InputBox("請(qǐng)輸入要插入的整數(shù)")'**********SPACE**********【?】i=8DoWhilea(i)>x'**********SPACE**********【?】i=i-1Loop'**********SPACE**********Ifi>0Then【?】Fori=1To9Printa(i);NextiEndSub答案：1).a(0)=x2).a(i+1)=a(i)或a(1+i)=a(i)3).a(i+1)=x或a(1+i)=x〖第7題〗『程序填空』(1分)(題號(hào):57)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：求1!+2!+……+10!的值。'-------------------------------------------------------PrivateSubForm_Click()'**********SPACE**********【?】s=1ForI=2To10t=t*I'**********SPACE**********【?】'**********SPACE**********【?】PrintsEndSub答案：1).t=12).s=★s★+★t3).NextI或Next〖第2題〗『程序填空』(2分)(題號(hào):514)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：本程序求3~100之間的所有素?cái)?shù)（質(zhì)數(shù)）并統(tǒng)計(jì)個(gè)數(shù)；'同時(shí)將這些素?cái)?shù)從小到大依次寫入順序文件dataout.txt；'素?cái)?shù)的個(gè)數(shù)顯示在窗體Form1上。'-------------------------------------------------------'PrivateSubCommand1_Click()DimcountAsInteger,flagAsBooleanDimt1AsInteger,t2AsInteger'**********SPACE**********OpenApp.Path&"\dataout.txt"ForOutputAs【?】count=0Fort1=3To100'**********SPACE**********flag=【?】Fort2=2ToInt(Sqr(t1))Ift1Modt2=0Thenflag=FalseNextt2IfflagThen'**********SPACE**********count=【?】Write#1,t1EndIfNextt1Form1.Print"素?cái)?shù)個(gè)數(shù)";countClose#1EndSub答案：1).#12).True3).count+1或1+count〖第3題〗『程序填空』(2分)(題號(hào):525)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：在窗體上畫一個(gè)標(biāo)簽（名稱為L(zhǎng)abel1）和一個(gè)'計(jì)時(shí)器（名稱為Timer1），然后編寫如下幾個(gè)事件過程：'要求：每一秒鐘Label1更新顯示一次系統(tǒng)時(shí)間'-------------------------------------------------------PrivateSubForm_Load()Timer1.Enabled=False'**********SPACE**********Timer1.Interval=【?】EndSubPrivateSubForm_Click()'**********SPACE**********Timer1.Enabled=【?】EndSubPrivateSubTimer1_Timer()'**********SPACE**********Label1.Caption=【?】EndSub答案：1).10002).True3).Now或Time或Now()或Time()〖第4題〗『程序填空』(2分)(題號(hào):534)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：在窗體上有兩個(gè)列表框List1(處理前數(shù)據(jù))和List2(處理'后數(shù)據(jù))，以及標(biāo)簽Label1。程序功能為：隨機(jī)生成100個(gè)'0-20（不包括0和20）的隨機(jī)數(shù)填入List1，并將這些隨機(jī)'數(shù)中的零元素刪除，填入List2中。最后在Label1中顯示零'元素個(gè)數(shù)'-------------------------------------------------------PrivateSubForm_Load()DimnAsIntegerDimi,x,kAsIntegerDima(100)AsInteger,b(100)AsIntegerRandomizen=100'**********SPACE**********Fori=1To【?】'**********SPACE**********x=Int(20*【?】)List1.AddItemxa(i)=xNextik=0Fori=1Ton'刪除零元素Ifa(i)<>0Then'**********SPACE**********【?】:b(k)=a(i)List2.AddItemb(k)EndIfNextiLabel1.Caption="數(shù)組中零元素個(gè)數(shù)："+Str(n-k)EndSub答案：1).n或1002).Rnd或Rnd(1)3).k=k+1或k=1+k〖第5題〗『程序填空』(2分)(題號(hào):515)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：由輸入對(duì)話框輸入n（n必須為大于零且小于30的自然數(shù)），'計(jì)算下列表達(dá)式的值，并在標(biāo)簽框Label1上顯示。'sum=1/2+1/6+...+1/(k*(k+1))(k<=n)'-------------------------------------------------------PrivateSubForm_Click()DimnAsInteger,sumAsDouble,kAsIntegern=Val(InputBox("n=","請(qǐng)輸入自然數(shù)n(n>0且n<30)"))'**********SPACE**********DoWhilen<=0【?】n>=30n=Val(InputBox("n=","請(qǐng)重輸入"))Loopsum=0k=0Do'**********SPACE**********k=【?】sum=sum+1/(k*(k+1))'**********SPACE**********LoopUntil【?】Label1.Caption="Sum="+Str(sum)EndSub答案：1).Or2).k+1或1+k3).k>=n或n<=k或k=n〖第7題〗『程序填空』(2分)(題號(hào):501)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：本程序執(zhí)行后，最終在窗體上打印數(shù)字7。'-------------------------------------------------------PrivateSubCommand1_Click()DimaAsString'**********SPACE**********OpenApp.Path&"\abc.bat"For【?】As#1n=8ForI=1TonPrint#1,I+1NextIClose#1'**********SPACE**********OpenApp.Path&"\abc.bat"For【?】As#1ForI=1TonInput#1,aIfIMod5=0Then'**********SPACE**********PrintCInt(a)+【?】EndIfNextIClose#1EndSub答案：1).Output2).Input3).1〖第8題〗『程序填空』(2分)(題號(hào):503)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：用戶界面如圖所示，實(shí)現(xiàn)左右兩個(gè)組合框中數(shù)據(jù)的左移和右移功能。'程序開始運(yùn)行時(shí)，在左邊組合框中生成10個(gè)由小到大排列的隨機(jī)三位'正整數(shù)(在設(shè)計(jì)階段該組合框的Sorted屬性值已設(shè)置為True),'現(xiàn)要求完成:'（1）單擊"＞＞"鈕，左邊組合框中的10個(gè)數(shù)全部移動(dòng)到右邊組合框，'，同時(shí)使"＜＜"鈕能響應(yīng)，"＞＞