重庆医科大学 VB上机文档格式.docx
《重庆医科大学 VB上机文档格式.docx》由会员分享，可在线阅读，更多相关《重庆医科大学 VB上机文档格式.docx（16页珍藏版）》请在冰豆网上搜索。
,Format（k,"
#.000"
）
3利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dima%（1To25）
a（i）=Int（Rnd*90+10）
Printa（i）;
Fori=1To24
p=i
Forj=i+1To25
Ifa（p）>
a（j）Thenp=j
Nextj
t=a（i）:
a（i）=a（p）:
a（p）=t
从小到大排序为：
;
4利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
a1=0
a2=0
a3=0
a4=0
a5=0
a6=0
Fori=1To50
m=Int（Rnd*6+1）
Ifm=1Thena1=a1+1
Ifm=2Thena2=a2+1
Ifm=3Thena3=a3+1
Ifm=4Thena4=a4+1
Ifm=5Thena5=a5+1
Ifm=6Thena6=a6+1
1的个数为：
a1
2的个数为：
a2
3的个数为：
a3
4的个数为：
a4
5的个数为：
a5
6的个数为：
a6
5利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
Dima%（1To10）
Dimmax%
Fori=1To10
a（i）=Int（Rnd*900+100）
Ifa（i）>
maxThenmax=a（i）
最大数为：
max
6利用随机函数产生并显示10个4位数的正整数，找出其中的最小数、最大数。
Dimmin%
a（i）=Int（Rnd*9000+1000）
min=a
（1）
Fori=2To10
Ifa（i）<
minThenmin=a（i）
最小数为：
min,"
7从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
顺序显示"
a（i）=InputBox（"
请输入第"
&
i&
"
个数"
反序输入"
Fori=10To1Step-1
8运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上
Dimm%
m=Val（InputBox（"
请输入一个数"
））
Ifm>
0Then
IfmMod2=0Then
PrintMsgBox（m&
是正整数"
并且"
m&
是偶数"
Else
但是"
是奇数"
EndIf
EndIf
Ifm<
MsgBox（m&
不是正整数，因此不判断奇偶性"
EndSub
9输入一个整数，编写一函数判断该数是否是偶数
Dimm%
m=Val（InputBox（"
请输入一个整数"
IfmMod2=0Then
Else
不是偶数"
EndIf
10运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上
EndSub
11从文本框输入一个正整数，判断该数是否为素数。
建立一个Text和CommandButton
PrivateSubCommand1_Click（）
DimNAsLong,FlagsAsBoolean
N=Val（Text1.Text）
Flags=True
Fori=2ToSqr（N）
IfNModi=0Then
Flags=False
ExitFor
Next
MsgBoxN&
IIf（Flags,"
"
不"
）&
是一个素数"
另外一个方法建立一个命令1个Text，1个Label1个CommandButton
Dimx%,i%
x=Val（Text1.Text）
Tag=True
Fori=2Tox-1
IfxModi=0Then
Tag=False
IfTag=TrueThen
Label1.Caption=Text1.Text&
是素数"
不是素数"
12利用Inpubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。
PrivateSubForm_Click（）
Dimm%,n%,r%,t%
输入第一个正整数"
n=Val（InputBox（"
输入第二个正整数"
nThent=m:
m=n:
n=t
t=m*n
Do
r=mModn
n=r
LoopUntilr=0
PrintMsgBox（"
这两个数的最小公倍数是：
t/m）
13输入一个整数，编写一函数判断该数是否同时是2和7的倍数
IfmMod2=0AndmMod7=0Then
同时是2和7的倍数"
不同时是2和7的倍数"
14编程计算下列公式的值，其中n（<
10）为从键盘输入的正整数。
⑴S=2!
+4!
+6!
+……+（2*n）!
Dims#,i%,j%,x%
x=InputBox（"
请输入小于10的正整数"
sum=0
Fori=1Tox
s=1
Forj=1To2*i
s=s*j
sum=sum+s
Printsum
⑵S=1!
+3!
+5!
+……+（2*n-1）!
Forj=1To2*i-1
⑶S=1!
+2!
+……+n!
Dimn%
n=Val（InputBox（"
输入n的值（n<
10）"
Sum=0
Fori=1Ton
Forj=1Toi
Sum=Sum+s
PrintSum
15在窗体上按上鼠标的右键，记录其的坐标。
建立Lable1
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label1.Caption=X&
"
Y
16在文本框中输入一些英语单词，统计空格的个数。
建立1个CommandButton，1个Text,1个Label
strold="
s=Text1.Text
Fo
升级会员 