VB题库程序填空

程序填空〖第1题〗『程序填空』(1分)(题号：59)'—'【程序填空】'—'功能：输入一个数，若大于0,则显示"+"；若小于0,'则显示“-“；若等于"0"，则显示“零“。'PrivateSubCommand1_Click()x=ValSelectCasex'**********SPACE**********Caseis>0="+"CaseIs<0'**********SPACE**********="-"'**********SPACE**********Caseis=="零"EndSelectEndSub答案：.CaseIs>0.="-".Case0或CaseElse或CaseIs=0（1分）（题号：60）''【程序填空】>'功能：输入任何一个英文字母X,'若X的值为"a","c","d-f",则显示x的大写字母；'若X的值为"m","o","p-z"，则显示x的小写字母；'若x的值为其它的值,则显示xa(如输入的乂的值是g,则显示ga)。'PrivateSubCommand1_Click()x='**********SPACE**********【】'**********SPACE**********Case【】=UCase(x)Case"m","o","p"To"z"=LCase(x)CaseElse'**********SPACE**********【】EndSelectEndSub答案：.SelectCasex."a","c","d"To"f".=Trim(x)+"a"或=x+"a〖第2题〗『程序填空』〖第3题〗『程序填空』（1分）（题号：36）/答案：1).d>0或0<d2).EndIf3).Else'【程序填空】/〖第4题〗『程序填空』'功能：以下程序的功能如（图1）。'PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("请输入a的值")b=InputBox("请输入5的值")c=InputBox("请输入。的值")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分)(题号：51)''【程序填空】''功能：下面的程序段用于建立文件并输出文件，文件内容如下：''*****'PrivateSubForm_Click()'**********SPACE**********Open"c:\"For【】As#1Fori=1To5Print#1,Spc(i);"*****"Nexti'**********SPACE**********【】'**********SPACE**********Open"c:\"For【】As#1Fori=1To5LineInput#1,xPrintxNextiClose#1EndSub答案：.Output.Close#1或Close.Input〖第5题〗『程序填空』(1分)(题号:49)'—'【程序填空】'—'功能：以下程序段用于求£n!'—PrivateSubForm_Click()DimsumAsInteger,nAsIntegern=InputBox("请输入一个正整数")sum=0Fori=1Ton'**********SPACE**********sum=【】NextiPrintsumEndSubPrivateFunctionmul(ByValxAsInteger)DimsAsInteger,iAsIntegers=1'**********SPACE**********Fori=1To【】s=s*iNexti'**********SPACE**********【】EndFunction答案：.sum★+★mul(i).x.mul=s〖第6题〗『程序填空』(1分)(题号：61)'—'【程序填空】'—'功能：根据输入的学习成绩,分别显示优秀(90分以上)，良好'(75分以上)，及格(60分以上)，不及格几个等级。'—PrivateSubCommand1_Click()x=ValIfx>=90Then="优秀"'**********SPACE**********ElseIf【】Then=“良好“ElseIfx>=60Then'**********SPACE**********【】'**********SPACE**********【】="不及格"EndIfEndSub答案：.x>=75或75<=X.="及格"或Label1="及格"3）.Else〖第8题〗『程序填空』（1分）（题号：46）'—'【程序填空】'—'功能：从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-1）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人数。'PrivateSubForm_Click（）Dimscore%,n1%,n2%,n3%,n4%,n5%msg="请输入分数（-1结束）"msgtitile="输入数据"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<=1或0<=score★And^score<=1或0<=score★And★1>=score或score>=0★And^1>=score2）.score3）.EndSelect〖第9题〗『程序填空』（1分）（题号：56）''【程序填空】''功能：输入数字1-7，显示其对应是星期几（例：输入1,显示星期日，'如果输入其它内容，一律显示"输入错误"）'PrivateSubCommand1_Click（）dimxasintegerdimyasstringx=val'**********SPACE**********【】case1y="今天是星期日"case2y="星期一"case3y="星期二"case4y="星期三“case5y="星期四"case6'**********SPACE**********【】case7y=“星期六“'**********SPACE**********【】y="输入错误"endselect=yEndSub答案：.selectcasex.y="星期五“.CaseElse'**********SPACE**********max1=【】Printmax1EndSubPublicFunctionmax(ByVala%,ByValb%,ByValc%)'**********SPACE**********If【】Thenm=aElsem=bEndIf'**********SPACE**********If【】Thenmax=mElsemax=cEndIfEndFunction答案：.max(max1,73,352),a>b或b<a,m>c或c<m〖第10题〗『程序填空』(1分)(题号：41)'—'【程序填空】'—'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。'—PrivateSubForm_Click()Print"5个数34、124、68、73、352的最大值是："max1=max(34,124,68)〖第11题〗『程序填空』(1分)(题号：43)'—'【程序填空】'—'功能：下面的程序段用于实现以下功能：利用冒泡法将一组整数'从小到大排序。'—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+=x'**********SPACE**********【】EndIfNextj'**********SPACE**********IfworkThen【】NextiFori=1TonPrinta(i);NextiEndSub答案：.Step-1.work=False或work=0或notwork=true.ExitFor〖第12题〗『程序填空』'—'【程序填空】'—'功能：以下程序用于判断一个正整数(》3)是否为素数。'—PrivateSubForm_Click()n=InputBox("请输入一个正整数(》3)")k=Int(Sqr(n))i=2swit=0'**********SPACE**********DoWhilei<=kAnd【】'**********SPACE**********If【】Thenswit=1Else'**********SPACE**********【】EndIfLoopIfswit=0ThenPrintn;"是一个素数"ElsePrintn;"不是素数"EndIfEndSub答案：.swit=0.nModi=0或n/i★=★n\i或n/i★=★int(n/i).i=★i★+★1（1分）（题号：37）★k*k*k〖第13题〗『程序填空』(1分)(题号：55)'—'【程序填空】'—'功能：过程suixian可以判断某一个数字是否是水仙花数，利用'该过程找出三位数中所有水仙花数。'所谓"水仙花数"是指一个3位数，其各位数字立方和等于'该数本身。'—PrivateSubForm_Click()DimiAsIntegerFori=1To999'**********SPACE**********【】NextiEndSubPublicSubsuixian(xAsInteger)Dimi%,j%,k%'**********SPACE**********i=【】j=(x-i*1)\10k=x-i*1-j*10'**********SPACE**********If【】ThenPrintxEndSub答案：.suixian(i)或callsuixian(i)或suixiani.x\1或int(x/1),x=★iA3^+★jA3^+★ka3或x=★i*i*i^+★j*j*j^+〖第14题〗『程序填空』(1分)(题号：50)''【程序填空】''功能：从键盘上输入一串字符，以""结束，统计输入字符中的,大、小写字母和数字的个数。'PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox("请输入一个字符")'**********SPACE**********DoWhile【】SelectCasechCase"a"To"z"n1=n1+1'**********SPACE**********Case【】n2=n2+1Case"0"To"9"n3=n3+1EndSelectch=InputBox("请输入一个字符")'**********SPACE**********【】Printn1,n2,n3EndSub答案：.ch★<>★""或notch=""或not""=ch."A"To"Z".LoopNextiElsePrint"该数字不在数组中"〖第15题〗『程序填空』(1分)(题号：54)'—'【程序填空】'—'功能：本程序用于实现：从键盘接收一数字，判断其是否在数组'中，如果在数组中则将其删除，否则显示该数字不在数组'中。'—PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To10a⑴=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("请输入要删除的整数")Fori=1To10'**********SPACE**********Ifa⑴=xThen【】Nexti'**********SPACE**********If【】ThenFork=iTo9'**********SPACE**********【】NextkPrint"删除后的数组："Fori=1To9Printa(i);EndIfEndSub答案：1).ExitFor2).i<10或10>i3).a(k)=a(^k★+★】★)〖第16题〗『程序填空』(1分)(题号：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,n2).s=1或3).p★+★y或callfind(m,n)s=1:p=0或x*y〖第17题〗『程序填空』(1分)(题号：58)'—'【程序填空】'—'功能：求A,B,C三个数的最大值。'—PrivateSubCommand1_Click()A=Val'**********SPACE**********【】C=ValIfA>BAndA>CThenMAXDATE=A'**********SPACE**********ElseIf【】ThenMAXDATE=BElse'**********SPACE**********【】EndIf=MAXDATE&"是最大值"EndSub答案：.B=Val或b=val(text2).B>C或C<B或B>CWand★b>a或c<b★and^a<b.MAXDATE=C〖第18题〗『程序填空』(1分)(题号：42)'—'【程序填空】'—'功能：以下程序段利用随机函数生成15个10-1之间的整数，然后用选择法将其从小到大排序。'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答案：.Int(^1^*★Rnd^)★+★10.t=i.t★<>★I或t<i或i>t或nott=i或noti=tp=【】Nextm'**********SPACE**********【】EndFunction答案：.n(m).「★*★m.n=p〖第19题〗『程序填空』(1分)(题号：44)'—'【程序填空】'—'功能：以下程序的功能如(图1)。'—PrivateSubForm_Click()DimsAsSingle,mAsInteger,p#s=1Form=1To10'**********SPACE**********p=【】s=s+1/pNextmPrintsEndSubFunctionn(k%)p=1Form=1Tok'**********SPACE**********〖第20题〗『程序填空』(1分)(题号：592)'下面的程序段用于打印出以下图形'TOC\o"1-5"\h\z'*'***'***'*''—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**********【】NextiEndSubForj=0To2*i+2'**********SPACE**********【】NextjFork=0To4-2*iPrint"*";Nextk'**********SPACE**********【】NextiEndSub答案：. ?★*★[★-★1*Step*T. Print"";或"";. Print或x='**********SPACE**********Ifx【】""ThenMsgBox("欢迎你用机！")ElseMsgBox("对不起，令错")EndIf=""EndSubPrivateSubForm_Load()=""'**********SPACE**********Text1.【】=8'**********SPACE**********Text1.【】="*"EndSub（1分）（题号：595）''【程序填空】''功能：窗体上建立了一个文本框Text1（"输入令"）和一个命令按钮Command1（"检查"）。'判断密码是否正确，并显示相应提示'在加载窗体时设置密码框最大长度为8，密码显示字符为“*”'dimxasstringPrivateSubCommand1_Click（）答案：1）.=2）.MaxLength3）.PasswordChar〖第22题〗『程序填空』（1分）（题号:38）''【程序填空】''功能：下面的程序段，用于实现在一个nXm的矩阵中，找出值最'大的元素所在的行和列，并输出其值及行号和列号。'PrivateSubForm_Click()Dimmat()AsIntegerDimnasinteger,mAsIntegern=Val(InputBox("请输入矩阵的行数"))m=Val(InputBox("请输入矩阵的列数"))'**********SPACE**********【】Fori=1TonForj=1Tommat(i,j)=InputBox("请输入数组元素值")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"它所在的行号为："；row;"列号为：";colEndSub答案：.ReDimmat(n,m)AsInteger或ReDimmat(n,m).Max<mat(i,j)或mat(i,j)>Max.row=I〖第23题〗『程序填空』(2分)(题号：45)'—'【程序填空】'—'功能：下面的程序段用于求矩阵相乘C=AxB,设A、B、C分别为'mxp、pxn、mxn的矩阵。'—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分）（题号：52）'—'【程序填空】'—'功能：下面的程序段用于打印出以下图形'TOC\o"1-5"\h\z'*'***'***'*>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答案：.>★*★i★+★I.Print"";或"";或.Print或或〖第25题〗『程序填空』（2分）（题号：47）'—'【程序填空】>'功能：以下程序段用于实现：输入两个正整数m和n,求其最大'公因数和最小公倍数。'—PrivateSubForm_Click()Dima%,b%,num1%,num2%,tempnum1=InputBox("请输入一个正整数")num2=InputBox("请输入一个正整数")'**********SPACE**********If【】Thentemp=num1:num1=num2:num2=tempEndIfa=num1b=num2'**********SPACE**********DoWhile【】temp=aModba=b'**********SPACE**********【】LoopPrint"最大公因数为："；aPrint"最小公倍数为:";num1*num2/aEndSub答案：.num1<num2或num2>numl.b★<>★0或b>0或0<b或temp<>0或temp>0或0<temp或notb=0或not0=b.b=temp'功能：以下程序段用于输出杨辉三角：结果样式如图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答案：.arr(i,1)=1.★arr(i-1,j-1)★+★arr(i-1,j).arr(i,j)或str(arr(i,j))〖第26题〗『程序填空』（2分）（题号：40）'—'【程序填空】>〖第27题〗『程序填空』（2分）（题号:39）''【程序填空】'功能：以下程序段用于实现矩阵转置，即将一个nxm的矩阵的行和列'互换'—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"矩阵转置前"ForI=1TonForj=1TomPrinta(I,j);Nextj'**********SPACE**********【】NextIPrint"矩阵转置后"ForI=1TomForj=1TonPrintb(I,j);NextjPrintNextIEndSub答案：1).Nexti或Next2).b(j,i)=a(i,j)3).print或或〖第28题〗『程序填空』(2分)(题号：53)'—'【程序填空】'—'功能：下面的程序实现：从键盘输入一个数字，将其插入一个'有序数组中，插入后的数组仍保持有序。'—PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To8a(i)=2*i-1Printa(i);NextiPrintx=InputBox("请输入要插入的整数")'**********SPACE**********【】i=8DoWhilea(i)>x'**********SPACE**********【】i=i-1Loop'**********SPACE**********Ifi>0Then【】Fori=1To9Printa(i);NextiEndSub答案：.a(0)=x.a(i+1)=a(i)或a(1+i)=a(i).a(i+1)=x或a(1+i)=x〖第2题〗『程序填空』（2分）（题号：514）,〖第7题〗『程序填空』(1分)(题号：57)'—'【程序填空】'—'功能：求1!+2!+……+10!的值。'—PrivateSubForm_Click()'**********SPACE**********【】s=1ForI=2To10t=t*I'**********SPACE**********【】'**********SPACE**********【】PrintsEndSub答案：.t=1,s=★、★+★t.NextI或Next'【程序填空】,'功能：本程序求3~100之间的所有素数（质数）并统计个数；'同时将这些素数从小到大依次写入顺序文件；'素数的个数显示在窗体Form1上。,PrivateSubCommand1_Click()DimcountAsInteger,flagAsBooleanDimt1AsInteger,t2AsInteger'**********SPACE**********Open&"\"ForOutputAs【】count=0Fort1=3To1'**********SPACE**********flag=【】Fort2=2ToInt(Sqr(t1))Ift1Modt2=0Thenflag=FalseNextt2IfflagThen'**********SPACE**********count=【】Write#1,t1EndIfNextt1"素数个数"；countClose#1EndSub答案：.#1.True3）.count+1或1+count〖第3题〗『程序填空』（2分）（题号：525）/'【程序填空】/'功能：在窗体上画一个标签（名称为Label1）和一个'计时器（名称为Timer1），然后编写如下几个事件过程：'要求：每一秒钟Label1更新显示一次系统时间,PrivateSubForm_Load()=False'**********SPACE**********=【】EndSubPrivateSubForm_Click()'**********SPACE**********=【】EndSubPrivateSubTimer1_Timer()'**********SPACE**********=【】EndSub答案：.10.True.Now或Time或Now()或Time()〖第4题〗『程序填空』(2分)(题号：534)/'【程序填空】/'功能：在窗体上有两个列表框List1（处理前数据）和List2（处理'后数据），以及标签Label1。程序功能为：随机生成1个'0-20（不包括0和20）的随机数填入List1，并将这些随机'数中的零元素删除，填入List2中。最后在Label1中显示零'元素个数,PrivateSubForm_Load()DimnAsIntegerDimi,x,kAsIntegerDima(1)AsInteger,b(1)AsIntegerRandomizen=1'**********SPACE**********Fori=1To【】'**********SPACE**********x=Int(20*【】)xa(i)=xNextik=0Fori=1Ton'删除零元素Ifa(i)<>0Then'**********SPACE**********【】:b(k)=a(i)b(k)EndIfNexti="数组中零元素个数："+Str(n-k)EndSub答案：.n或1.Rnd或Rnd(1).k=k+1或k=1+k'【程序填空】, 〖第5题〗『程序填空』'【程序填空】, (2分)(题号：515)'功能：本程序执行后，最终在窗体上打印数字7'功能：本程序执行后，最终在窗体上打印数字7。, '【程序填空】,'功能：由输入对话框输入n(n必须为大于零且小于30的自然数)，'计算下列表达式的值，并在标签框Label1上显示。'sum=1/2+1/6+...+1/(k*(k+1))(k<=n),PrivateSubForm_Click()DimnAsInteger,sumAsDouble,kAsIntegern=Val(InputBox("n=","请输入自然数n(n>0且n<30)"))'**********SPACE**********DoWhilen<=0【】n>=30n=Val(InputBox("n=","请重输入"))Loopsum=0k=0Do'**********SPACE**********k=【】sum=sum+1/(k*(k+1))'**********SPACE**********LoopUntil【】="Sum="+Str(sum)EndSub答案：.Or.k+1或1+k.k>=n或n<=k或k=n〖第7题〗『程序填空』(2分)(题号：501),PrivateSubCommand1_Click()DimaAsString'**********SPACE**********Open&"\"For【】As#1n=8ForI=1TonPrint#1,I+1NextIClose#1'**********SPACE**********Open&"\"For【】As#1ForI=1TonInput#1,aIfIMod5=0Th