Visul Basic期末考试复习题.docx
- 文档编号:28722045
- 上传时间:2023-07-19
- 格式:DOCX
- 页数:46
- 大小:302.56KB
Visul Basic期末考试复习题.docx
《Visul Basic期末考试复习题.docx》由会员分享,可在线阅读,更多相关《Visul Basic期末考试复习题.docx(46页珍藏版)》请在冰豆网上搜索。
VisulBasic期末考试复习题
程序填空
1、'功能:
要求输入若干学生的成绩,计算平均分和高于平均分的人数,并将这两个数据放入数组的最后。
PrivateSubForm_Click()
Dimmark()AsInteger,i%,n%,aver
n=InputBox("输入学生的人数")
ReDimmark(1Ton)
aver=0
Fori=1Ton
mark(i)=Int(Rnd*101)
aver=aver+mark(i)
Nexti
'**********SPACE**********
ReDim【?
】mark(1Ton+2)'增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留
mark(n+1)=aver/n
mark(n+2)=0
Fori=1Ton
'**********SPACE**********
Ifmark(i)>mark(【?
】)Thenmark(n+2)=mark(n+2)+1
Nexti
Fori=1Ton
Print"mark(";i;")=";mark(i)
Nexti
Print"平均分=";mark(n+1),"高于平均分人数=";mark(n+2)
EndSub
2、功能:
以下程序的功能如(图1)。
PrivateSubForm_Click()
Dima%,b%,c%,d!
x1,x2,p,q,r
a=InputBox("请输入a的值")
b=InputBox("请输入b的值")
c=InputBox("请输入c的值")
d=b*b-4*a*c
p=-b/(2*a)
Ifd>=0Then
'**********SPACE**********
If【?
】Then
r=Sqr(d)/(2*a)
x1=p+r
x2=p-r
Else
x1=p
x2=p
'**********SPACE**********
【?
】
Print"x1=";x1,"x2=";x2
'**********SPACE**********
【?
】
q=Sqr(-d)/(2*a)
Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"
EndIf
EndSub
3、功能:
以下程序用于判断一个正整数(≥3)是否为素数。
PrivateSubForm_Click()
n=InputBox("请输入一个正整数(≥3)")
k=Int(Sqr(n))
i=2
swit=0
'**********SPACE**********
DoWhilei<=kAnd【?
】
'**********SPACE**********
If【?
】Then
swit=1
Else
'**********SPACE**********
【?
】
EndIf
Loop
Ifswit=0Then
Printn;"是一个素数"
Else
Printn;"不是素数"
EndIf
EndSub
4、功能:
下面的程序段,用于实现在一个nXm的矩阵中,找出值最大的元素所在的行和列,并输出其值及行号和列号。
PrivateSubForm_Click()
Dimmat()AsInteger
Dimnasinteger,mAsInteger
n=Val(InputBox("请输入矩阵的行数"))
m=Val(InputBox("请输入矩阵的列数"))
'**********SPACE**********
【?
】
Fori=1Ton
Forj=1Tom
mat(i,j)=InputBox("请输入数组元素值")
mat(i,j)=Val(mat(i,j))
Nextj
Nexti
Print"所建立的矩阵为"
Fori=1Ton
Forj=1Tom
Printmat(i,j);
Nextj
Nexti
Max=mat(1,1)
Fori=1Ton
Forj=1Tom
'**********SPACE**********
If【?
】Then
Max=mat(i,j)
col=j
'**********SPACE**********
【?
】
EndIf
Nextj
Nexti
Print"矩阵最大的元素的值为:
";mat(row,col)
Print"它所在的行号为:
";row;"列号为:
";col
EndSub
5、功能:
以下程序段用于实现矩阵转置,即将一个n×m的矩阵的行和列互换
PrivateSubForm_Click()
Constn=3
Constm=4
Dima(n,m),b(m,m)AsInteger
ForI=1Ton
Forj=1Tom
a(I,j)=Int(Rnd*90)+10
Nextj
'**********SPACE**********
【?
】
ForI=1Ton
Forj=1Tom
'**********SPACE**********
【?
】
Nextj
NextI
Print"矩阵转置前"
ForI=1Ton
Forj=1Tom
Printa(I,j);
Nextj
'**********SPACE**********
【?
】
NextI
Print"矩阵转置后"
ForI=1Tom
Forj=1Ton
Printb(I,j);
Nextj
NextI
EndSub
6、下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。
PrivateSubForm_Click()
Print"5个数34、124、68、73、352的最大值是:
"
max1=max(34,124,68)
'**********SPACE**********
max1=【?
】
Printmax1
EndSub
PublicFunctionmax(ByVala%,ByValb%,ByValc%)
'**********SPACE**********
If【?
】Then
m=a
Else
m=b
EndIf
'**********SPACE**********
If【?
】Then
max=m
Else
max=c
EndIf
EndFunction
7、功能:
以下程序段利用随机函数生成15个10-100之间的整数,然后用选择法将其从小到大排序。
PrivateSubForm_Click()
Constn=15
Dima(1Ton)AsInteger
DimiAsInteger,jAsInteger,tAsInteger,minAsInteger
Randomize
Fori=1Ton
'**********SPACE**********
a(i)=【?
】
Nexti
Fori=1Ton
Printa(i);
Nexti
Fori=1Ton-1
'**********SPACE**********
【?
】
Forj=i+1Ton
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visul Basic期末考试复习题 Basic 期末考试 复习题
![提示](https://static.bdocx.com/images/bang_tan.gif)