程序填空例子

《程序填空例子》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、•以下程序的功能如阁。求一元二汝方程ax2+bx+c=0的根，其中a不等于0PrivateSubForm_Click()Dima%,b%，c%,d!Dimxl，x2Dimp,q,ra=lnputBox(n诘•输入a的值n)b=InputBoxf•请输入b的值")c=I叩utBox("请输入c的值")d=b*b-4*a*cp=-b/(2*a)Ifd〉=0Thenf氺氺氺氺氺氺氺氺氺SpaCE氺氺氺氺氺氺氺氺氺氺If【？】Thenr=Sqr(d)/(2*a)xl=p+rx2=p-rElsexl=px2=p:氺氺氺氺氺:{:氺氺氺*****氺*氺*Print

2、nxl=u;xl，x2=n;x2〃:｛:氺：｛：氺氺氺氺*：｛:氺S氺氺*氺*氺氺氺氺氺【？】q=Sqr(-d)/(2*a)Printnxl=";p;"+n;q;ni”，"x2=";p;"」•；q;EndIfEndSubf答案J1d〉0或03)是否力素数。INT(SQR(N))3ElsePrivateSubForm_Click()N2N-1n=InputBoxf•诺输入一个正整数(>3)k=Int(Sqr(n))i=2swit=0:氺氺氺氺氺:{:氺氺氺*****氺*氺*DoWhilei<=kAnd【？

3、】f氺氺氺氺氺氺氺氺氺氺sPAcE氺*氺*氺*氺*氺*If【？】Thenswit=1Else氺氺氺氺氺氺氺氺氺s*****氺*氺*【?】EndIfLoopIfswitPrintn;ElsePrintn;EndIfEndSubf答案JOTheni;"是一个素数”tv不是素数IVswit=0nModi=0或n/i=ni或n/i=int(n/i)i=i+1下面的程序段，川于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。PrivateSubForm_Click()Dimmat()AsIntegerDimnAsInteger，

4、mAsIntegern=Val(InputBox("请输入矩阵的行数’•))m=Val(InputBox("请输入矩阵的列数"))»氺氺氺氺氺氺氺氺氺氺氺*氺*氺*氺*氺*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*氺氺水氺氺氺氺氺水氺SPAaE氺水氺氺氺水氺

5、氺氺氺If【？】ThenMax=mat(i,j)col=j»氺氺氺氺氺氺氺氺氺氺Se氺氺氺*氺氺氺*氺*【？】EndIfNextjNextiPrintPrint"矩阵最大的元素的值为：";mat(row,col)Print"它所在的行号为：";row;"列号为：";colEndSub『答案J1ReDimmat（n,m）AsInteger或ReDimmat（n，m）2MaxMax3row=I•以下程序段用于实现矩阵转置，即将一个nXm的矩阵的行和列互换PrivateSubForm_Click（）Constn=3Co

6、nstm=4Dima（n，m）AsInteger，b（m，m）AsIntegerForI=1TonForj=1Toma（I，j）=Int（Rnd*90）+10Nextj氺氺氺氺氺氺氺氺氺Spa（7E******氺*氺*【?】ForI=1TonForj=1Tom:氺氺氺氺氺:{:氺氺氺*****氺*氺*NextjNextIPrint"矩阵转置前ForI=1TonForj=1TomPrinta(I，j);Nextj:氺氺氺氺氺:{:氺氺氺*****氺*氺*NextIPrintn矩阵转置后ForI=1TomForj=1TonPrintb(I,j);Nextj

7、PrintNextIEndSubr答案j1Nexti或Next2b(j,i)=a(i,j)3print或form1.print或？•以卜程序段用于输出杨辉三角:结果样式如图PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I，I)=1f:{:氺氺氺氺氺氺氺氺氺sPAcE氺5^氺氺氺氺氺氺氺氺NextIForI=3TonForj=2ToI-1arr(i，j)=【？】NextjNextIForI=1TonForj=1ToI*氺氺氺氺氺氺氺木氺氺SPAae氺氺氺氺氺氺氺氺氺氺Nex

8、tjPrintNextIEndSubr答案j1arr(i，1)=12arr(i-1,j-1)+