欢迎来到天天文库
浏览记录
ID:56956822
大小:218.50 KB
页数:52页
时间:2020-07-28
《程序填空例子.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、l以下程序的功能如图。PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("请输入a的值")b=InputBox("请输入b的值")c=InputBox("请输入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**********
2、【?】Print"x1=";x1,"x2=";x2'**********SPACE**********【?】q=Sqr(-d)/(2*a)Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"EndIfEndSub『答案』1d>0或03、0'**********SPACE**********DoWhilei<=kAnd【?】'**********SPACE**********If【?】Thenswit=1Else'**********SPACE**********【?】EndIfLoopIfswit=0ThenPrintn;"是一个素数"ElsePrintn;"不是素数"EndIfEndSub『答案』1swit=02nModi=0或n/i=ni或n/i=int(n/i)3i=i+1l下面的程序段,用于实现在一个nXm的矩阵中,找出值4、最大的元素所在的行和列,并输出其值及行号和列号。PrivateSubForm_Click()Dimmat()AsIntegerDimnAsInteger,mAsIntegern=Val(InputBox("请输入矩阵的行数"))m=Val(InputBox("请输入矩阵的列数"))'**********SPACE**********【?】Fori=1TonForj=1Tommat(i,j)=InputBox("请输入数组元素值")mat(i,j)=Val(mat(i,j))NextjNextiPrin5、t"所建立的矩阵为"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;"列号为:";colEndS6、ub『答案』1ReDimmat(n,m)AsInteger或ReDimmat(n,m)2MaxMax3row=Il以下程序段用于实现矩阵转置,即将一个n×m的矩阵的行和列互换PrivateSubForm_Click()Constn=3Constm=4Dima(n,m)AsInteger,b(m,m)AsIntegerForI=1TonForj=1Toma(I,j)=Int(Rnd*90)+10Nextj'**********SPACE**********【?】Fo7、rI=1TonForj=1Tom'**********SPACE**********【?】NextjNextIPrint"矩阵转置前"ForI=1TonForj=1TomPrinta(I,j);Nextj'**********SPACE**********【?】NextIPrint"矩阵转置后"ForI=1TomForj=1TonPrintb(I,j);NextjPrintNextIEndSub『答案』1Nexti或Next2b(j,i)=a(i,j)3print或form1.print或?l以下程序8、段用于输出杨辉三角:结果样式如图PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1'**********SPACE**********【?】NextIForI=3TonForj=2ToI-1'**********SPACE**********arr(i,j)=【?】NextjNextIForI=1TonForj=1ToI'**********SPACE*******
3、0'**********SPACE**********DoWhilei<=kAnd【?】'**********SPACE**********If【?】Thenswit=1Else'**********SPACE**********【?】EndIfLoopIfswit=0ThenPrintn;"是一个素数"ElsePrintn;"不是素数"EndIfEndSub『答案』1swit=02nModi=0或n/i=ni或n/i=int(n/i)3i=i+1l下面的程序段,用于实现在一个nXm的矩阵中,找出值
4、最大的元素所在的行和列,并输出其值及行号和列号。PrivateSubForm_Click()Dimmat()AsIntegerDimnAsInteger,mAsIntegern=Val(InputBox("请输入矩阵的行数"))m=Val(InputBox("请输入矩阵的列数"))'**********SPACE**********【?】Fori=1TonForj=1Tommat(i,j)=InputBox("请输入数组元素值")mat(i,j)=Val(mat(i,j))NextjNextiPrin
5、t"所建立的矩阵为"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;"列号为:";colEndS
6、ub『答案』1ReDimmat(n,m)AsInteger或ReDimmat(n,m)2MaxMax3row=Il以下程序段用于实现矩阵转置,即将一个n×m的矩阵的行和列互换PrivateSubForm_Click()Constn=3Constm=4Dima(n,m)AsInteger,b(m,m)AsIntegerForI=1TonForj=1Toma(I,j)=Int(Rnd*90)+10Nextj'**********SPACE**********【?】Fo
7、rI=1TonForj=1Tom'**********SPACE**********【?】NextjNextIPrint"矩阵转置前"ForI=1TonForj=1TomPrinta(I,j);Nextj'**********SPACE**********【?】NextIPrint"矩阵转置后"ForI=1TomForj=1TonPrintb(I,j);NextjPrintNextIEndSub『答案』1Nexti或Next2b(j,i)=a(i,j)3print或form1.print或?l以下程序
8、段用于输出杨辉三角:结果样式如图PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1'**********SPACE**********【?】NextIForI=3TonForj=2ToI-1'**********SPACE**********arr(i,j)=【?】NextjNextIForI=1TonForj=1ToI'**********SPACE*******
此文档下载收益归作者所有