VB上机+答案.doc

1利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。
PrivateSubForm_Click()
Dimm%,n%
Fori=1To25
m=Int(Rnd*900+100)
Printm;
IfiMod5=0ThenPrint
Nexti
EndSub
2利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
PrivateSubForm_Click()
Dimk#,n%
n=0
Fori=1To25
m=Int(Rnd*90+10)
Printm;
n=n+m
Nexti
Print
Print"25个数的和为：",n
k=n/25
Print"25个数的平均值为：",Format(k,"#.000")
EndSub
3利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
PrivateSubForm_Click()
Dima%(1To25)
Fori=1To25
a(i)=Int(Rnd*90+10)
Printa(i);
Nexti
Print
Fori=1To24
p=i
Forj=i+1To25
Ifa(p)>a(j)Thenp=j
Nextj
t=a(i):a(i)=a(p):a(p)=t
Nexti
Print"从小到大排序为：";
Fori=1To25
Printa(i);
Nexti
EndSub
4利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
PrivateSubForm_Click()
a1=0
a2=0
a3=0
a4=0
a5=0
a6=0
Fori=1To50
m=Int(Rnd*6+1)
Printm;
Ifm=1Thena1=a1+1
Ifm=2Thena2=a2+1
Ifm=3Thena3=a3+1
Ifm=4Thena4=a4+1
Ifm=5Thena5=a5+1
Ifm=6Thena6=a6+1
Nexti
Print
Print"1的个数为：",a1
Print"2的个数为：",a2
Print"3的个数为：",a3
Print"4的个数为：",a4
Print"5的个数为：",a5
Print"6的个数为：",a6
EndSub

5利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
PrivateSubForm_Click()
Dima%(1To10)
Dimmax%
Fori=1To10
a(i)=Int(Rnd*900+100)
Printa(i);
Ifa(i)>maxThenmax=a(i)
Print
Nexti
Print"最大数为：";max
EndSub

6利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。
Dima(1To10)AsInteger
DimminAsInteger
PrivateSubForm_Click()
DimiAsInteger
Cls
Fori=1To10
a(i)=Int(Rnd*900+1000)
Printa(i);
Nexti
min=a(1)
Fori=2To10
Ifa(i)<minThenmin=a(i)
Nexti
Print
Print"最小数为：";min
EndSub

7从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
PrivateSubForm_Click()
Dima%(1To10)
Print"顺序显示"
Fori=1To10
a(i)=InputBox("请输入第"&i&"个数")
Printa(i);
Nexti
Print
Print"反序输入"
Fori=10To1Step-1
Printa(i);
Nexti
EndSub

8运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上
PrivateSubForm_Click()
Dimm%
m=Val(InputBox("请输入一个数"))
Ifm>0Then
IfmMod2=0Then
PrintMsgBox(m&"是正整数"&"并且"&m&"是偶数")
Else
PrintMsgBox(m&"是正整数"&"但是"&m&"是奇数")
EndIf
EndIf
Ifm<0Then
MsgBox(m&"不是正整数，因此不判断奇偶性")
EndIf
EndSub

9输入一个整数，编写一函数判断该数是否是偶数
PrivateSubForm_Click()
Dimm%
m=Val(InputBox("请输入一个整数"))
IfmMod2=0Then
Printm;"是偶数"
Else
Pri