重庆医科大学 VB上机.docx
《重庆医科大学 VB上机.docx》由会员分享，可在线阅读，更多相关《重庆医科大学 VB上机.docx（16页珍藏版）》请在冰豆网上搜索。
重庆医科大学VB上机
1利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。
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位数的正整数，找出其中的最小数、最大数。
PrivateSubForm_Click（）
Dima%（1To10）
Dimmin%
Fori=1To10
a（i）=Int（Rnd*9000+1000）
Printa（i）;
Nexti
min=a
（1）
Fori=2To10
Ifa（i）Ifa（i）>maxThenmax=a（i）
Nexti
Print
Print"最小数为：
";min,"最大数为：
";max
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
Printm;"不是偶数"
EndIf
EndSub
10运行时单击窗口，调用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
11从文本框输入一个正整数，判断该数是否为素数。
建立一个Text和CommandButton
PrivateSubCommand1_Click（）
DimNAsLong,FlagsAsBoolean
N=Val（Text1.Text）
Flags=True
Fori=2ToSqr（N）
IfNModi=0Then
Flags=False
ExitFor
EndIf
Next
MsgBoxN&IIf（Flags,"","不"）&"是一个素数"
EndSub
另外一个方法建立一个命令1个Text，1个Label1个CommandButton
PrivateSubCommand1_Click（）
Dimx%,i%
x=Val（Text1.Text）
Tag=True
Fori=2Tox-1
IfxModi=0Then
Tag=False
ExitFor
EndIf
Nexti
IfTag=TrueThen
Label1.Caption=Text1.Text&"是素数"
Else
Label1.Caption=Text1.Text&"不是素数"
EndIf
EndSub
12利用Inpubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。
PrivateSubForm_Click（）
Dimm%,n%,r%,t%
m=Val（InputBox（"输入第一个正整数"））
n=Val（InputBox（"输入第二个正整数"））
Ifmm=n:
n=t
t=m*n
Do
r=mModn
n=r
LoopUntilr=0
PrintMsgBox（"这两个数的最小公倍数是：
"&t/m）
EndSub
13输入一个整数，编写一函数判断该数是否同时是2和7的倍数
PrivateSubForm_Click（）
Dimm%
m=Val（InputBox（"请输入一个整数"））
IfmMod2=0AndmMod7=0Then
Printm;"同时是2和7的倍数"
Else
Printm;"不同时是2和7的倍数"
EndIf
EndSub
14编程计算下列公式的值，其中n（<10）为从键盘输入的正整数。
⑴S=2!
+4!
+6!
+……+（2*n）!
PrivateSubForm_Click（）
Dims#,i%,j%,x%
x=InputBox（"请输入小于10的正整数"）
sum=0
Fori=1Tox
s=1
Forj=1To2*i
s=s*j
Nextj
sum=sum+s
Nexti
Printsum
EndSub
⑵S=1!
+3!
+5!
+……+（2*n-1）!
PrivateSubForm_Click（）
Dims#,i%,j%,x%
x=InputBox（"请输入小于10的正整数"）
sum=0
Fori=1Tox
s=1
Forj=1To2*i-1
s=s*j
Nextj
sum=sum+s
Nexti
Printsum
EndSub
⑶S=1!
+2!
+3!
+……+n!
PrivateSubForm_Click（）
Dimn%
n=Val（InputBox（"输入n的值（n<10）"））
Sum=0
Fori=1Ton
s=1
Forj=1Toi
s=s*j
Nextj
Sum=Sum+s
Nexti
PrintSum
EndSub
15在窗体上按上鼠标的右键，记录其的坐标。
建立Lable1
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label1.Caption=X&","&Y
EndSub
16在文本框中输入一些英语单词，统计空格的个数。
建立1个CommandButton，1个Text,1个Label
PrivateSubCommand1_Click（）
n=0
strold=""
s=Text1.Text
Fo
升级会员 