程序填空

一、程序填空1、'以下程序段采用冒泡法对数组元素进行排序。'-------------------------------------------------------OptionBase1PrivateSubCommand1_Click()DimiA(1To10)n=6iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7Print冒泡法排序数据变化过程Print8,6,9,3,2,7Print-----------------------------'**********SPACE**********Fori=1To【?】Step1n-1'**********SPACE**********Forj=nTo【?】Step-1i+1IfiA(j)iA(j-1)Thent=iA(j)iA(j)=iA(j-1)'**********SPACE**********iA(j-1)=【?】tEndIfNextjPrinti=;i;Spc(i*3-3);Fork=iTonPrintiA(k);NextkPrintNextiEndSub2、'本题内容如下：单击“插入数据”按钮后，输入一个整型数据，'该数据会被插入到一个有序的数组a(1to10)中,插入该数据后数组还是有序的。'-------------------------------------------------------OptionBase1PrivateSubCommand1_Click()Dima%(1To10),i%,k%,m%Print原数列是;Fori=1To9a(i)=(i-1)*3+1Printa(i);NextiPrintm=Val(InputBox(输入要插入的数据))Fork=1To9'**********SPACE**********If【?】ThenExitFor(ma(k))NextkFori=9TokStep-1'**********SPACE**********a(i+1)=【?】a(i)Nexti'**********SPACE**********a(【?】)=mkPrint插入;m;后的数列是：Fori=1To10Printa(i);NextiPrintEndSub3、'【程序填空】'-------------------------------------------------------'题目：用100元买100只鸡，公鸡2元1只，母鸡3元1只，小鸡1元2只，'问各应买多少只。'-------------------------------------------------------PrivateSubForm_Click()Dimx%,y%,z%,n%'**********SPACE**********n=【?】0Print母鸡,公鸡,小鸡Forx=0To33Fory=0To50'**********SPACE**********z=100-【?】X-Y'**********SPACE**********【?】N=N+1If3*x+2*y+0.5*z=100ThenPrintx,y,z'**********SPACE**********【?】ENDIFNextyNextxPrint共计算了,n,次EndSub4、'以下程序段用于计算数组中各元素的乘积。'-----------------------------------------PrivateSubCommand1_Click()Dima(1To5)AsInteger,b%(2To10),i%,t1#,t2#Fori=1To5a(i)=iNextiFori=2To10b(i)=iNextit1=tim(a())t2=tim(b())Printt1=;t1,t2=;t2EndSub'**********SPACE**********Functiontim(【?】AsInteger)a()Dimt#,i%'**********SPACE**********【?】t=1Fori=LBound(m)ToUBound(m)t=t*m(i)Nextitim=tEndFunction5、从键盘上输入一串字符，以?结束，统计输入字符中的'大、小写字母和数字的个数。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox(请输入一个字符)'**********SPACE**********DoWhile【?】notch=?SelectCasechCaseaTozn1=n1+1'**********SPACE**********Case【?】AToZn2=n2+1Case0To9n3=n3+1EndSelectch=InputBox(请输入一个字符)'**********SPACE**********【?】LoopPrintn1,n2,n3EndSub6、'【程序填空】'-------------------------------------------------------'题目：本程序执行后，最终在窗体上打印数字7。'请在【】处填入正确的内容'-------------------------------------------------------PrivateSubCommand1_Click()DimaAsString'**********SPACE**********OpenApp.Path&\abc.batFor【?】As#1Outputn=8ForI=1TonPrint#1,I+1NextIClose#1'**********SPACE**********OpenApp.Path&\abc.batFor【?】As#1InputForI=1TonInput#1,aIfIMod5=0Then'**********SPACE**********PrintCInt(a)+【?】1EndIfNextIClose#1EndSub7、'输入数字1-7,显示其对应是星期几(例:输入1,显示星期日,'如果输入其它内容，一律显示输入错误)PrivateSubCommand1_Click()DimxAsIntegerDimyAsStringx=Val(Text1.Text)'**********SPACE**********【?】selectcasexCase1y=今天是星期日Case2y=星期一Case3y=星期二Case4y=星期三Case5y=星期四Case6'**********SPACE**********【?】y=”星期五”Case7y=星期六'**********SPACE**********【?】CaseElsey=输入错误EndSelectText2.Text=yEndSub8、本程序用辗转相除法求自然数m、n的最大分约数和最小公倍数，求最大公约数的算法如下:'(1)对于己知两数m、n，使得mn;'(2)m除以n得余数r;'(3)若r=0，则n为求得的最大公约数，算法结束；否则执行(4)'(4)m-n，n-r再重复执行(2)'原两数相乘除以最大公约数即为最小公倍数，程序如下:'请在【】处填入正确的内容'-------------------------------------------------------PrivateSubForm_Click()Dimm%,n%,mn%n=Val(InputBox(n=))m=Val(InputBox(m=))Ifn=0Orm=0ThenMsgBox数据出错ExitSubEndIf'**********SPACE**********【?】mn=m*n'**********SPACE**********If【?】Thenmnt=mm=nn=tEndIf'**********SPACE**********DoWhile【?】rn'**********SPACE**********r=【?】mmodnm=nn=rLoopForm1.Print最大公约数=;mForm1.Print最小公倍数=;mn/mEndSub9、'以下程序段用于输出杨辉三角:结果样式如图1'PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1'**********SPACE**********【?】arr(I,1)=1NextIForI=3TonForj=2ToI-1'**********SPACE**********arr(i,j)=【?】arr(i-1,j-1)+arr(i-1,j)NextjNextIForI=1TonForj=1ToI'**********SPACE**********【?】printarr(I,j)NextjPrintNextIEndSub10、'【程序填空】'-------------------------------------------------------'题目：窗体上建立了一个文本框Text1，用于显示结果。'单击按钮弹出输入对话框录入0-6之间的数值，'判断输入值为星期几'请在【?】处填入正确的内容PrivateSubCommand1_Click()DimxAsInteger'**********SPACE**********x=Val(【?】(请输入星期几(0～6)))InputBox'**********SPACE**********SelectCase【?】xCaseIs=0Text1.Text=星期日(Sunday)CaseIs=1Text1.Text=星期一(Monday)CaseIs=2Text1.Text=星期二(Tuesday)CaseIs=3Text1.Text=星期三(Wednesday)CaseIs=4Text1.Text=星期四(Thursday)CaseIs=5Text1.Text=星期五(Friday)CaseIs=6Text1.Text=星期六(Saturday)'**********SPACE**********Case【?】ElseText1.Text=输入错误EndSelectEndSub11、【程序填空】'-------------------------------------------------------'题目：有12个文本框代表12个位置。程序为A-J10个字母分配'十个位置，并显示座位分配。'-------------------------------------------------------PrivateSubForm_Load()Dimk,h,pAsIntegerDimt(12)AsStringRandomize'**********SPACE**********Fork=1To【?】12t(k)=EmptyNextk'**********SPACE**********For【?】=65To74hDoWhileTruep=Int(1+12*Rnd)'**********SPACE**********Ift(p)=【?】ThenEmptyt(p)=Chr(h)ExitDoEndIfLoopNexthFork=1To12Text1(k-1).Text=t(k)NextkEndSub12、'本程序段实现的是简单加密功能。其加密方法为将每个字母加'密为其后的第五个字母，即'A→F，a→f，B→G,'b→g.......Y→D,Z→E，对于非字母字符不处理。'-------------------------------------------------------PrivateSubcmdcls_Click()txtCode.Text=txtInput.Text=EndSubPrivateSubcmdcode_Click()DimstrI