资源描述:
《vb复习题带答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、程序填空1、'功能:要求输入若干学生的成绩,计算平均分和高于平均分的人数,并将这两个数据放入数组的最后。PrivateSubForm_Click()Dimmark()AsInteger,i%,n%,avern=InputBox("输入学生的人数")ReDimmark(1Ton)aver=0Fori=1Tonmark(i)=Int(Rnd*101)aver=aver+mark(i)Nexti'**********SPACE**********preserveReDim【?】mark(1Ton+2)'增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留m
2、ark(n+1)=aver/nmark(n+2)=0Fori=1Ton'**********SPACE**********Ifmark(i)>mark(【?】)Thenmark(n+2)=mark(n+2)+1n+1NextiFori=1TonPrint"mark(";i;")=";mark(i)NextiPrint"平均分=";mark(n+1),"高于平均分人数=";mark(n+2)EndSub2、功能:以下程序的功能如(图1)。PrivateSubForm_Click()Dima%,b%,c%,d!,x1,x2,p,q,ra=InputBox("请输入a
3、的值")b=InputBox("请输入b的值")c=InputBox("请输入c的值")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If【?】Thend>0r=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p'**********SPACE**********【?】endifPrint"x1=";x1,"x2=";x2'**********SPACE**********【?】elseq=Sqr(-d)/(2*a)Print"x1=";p;"+";q;"i","x2=";
4、p;"-";q;"i"EndIfEndSub3、功能:以下程序用于判断一个正整数(≥3)是否为素数。PrivateSubForm_Click()n=InputBox("请输入一个正整数(≥3)")k=Int(Sqr(n))i=2swit=0'**********SPACE**********DoWhilei<=kAnd【?】swit=0'**********SPACE**********If【?】Thennmodi=0swit=1Else'**********SPACE**********【?】i=i+1EndIfLoopIfswit=0ThenPrintn;"
5、是一个素数"ElsePrintn;"不是素数"EndIfEndSub4、功能:下面的程序段,用于实现在一个nXm的矩阵中,找出值最大的元素所在的行和列,并输出其值及行号和列号。PrivateSubForm_Click()Dimmat()AsIntegerDimnasinteger,mAsIntegern=Val(InputBox("请输入矩阵的行数"))m=Val(InputBox("请输入矩阵的列数"))14'**********SPACE**********【?】ReDimmat(n,m)AsIntegerFori=1TonForj=1Tommat(i,j)
6、=InputBox("请输入数组元素值")mat(i,j)=Val(mat(i,j))NextjNextiPrint"所建立的矩阵为"Fori=1TonForj=1TomPrintmat(i,j);NextjPrintNextiMax=mat(1,1)Fori=1TonForj=1Tom'**********SPACE**********If【?】Thenmat(I,j)>maxMax=mat(i,j)col=j'**********SPACE**********【?】row=iEndIfNextjNextiPrintPrint"矩阵最大的元素的值为:";mat
7、(row,col)Print"它所在的行号为:";row;"列号为:";colEndSub5、功能:以下程序段用于实现矩阵转置,即将一个n×m的矩阵的行和列互换PrivateSubForm_Click()Constn=3Constm=4Dima(n,m),b(m,m)AsIntegerForI=1TonForj=1Toma(I,j)=Int(Rnd*90)+10Nextj'**********SPACE**********【?】nextiForI=1TonForj=1Tom'**********SPACE**********【?】b(j,i)=a(I,j)Nex
8、tjNextIPrint