vb源程序代码.docx
《vb源程序代码.docx》由会员分享，可在线阅读，更多相关《vb源程序代码.docx（13页珍藏版）》请在冰豆网上搜索。
vb源程序代码
Vb源代码
（周至县第五中学710402数学组唐永鸽）
1PrivateSubForm_Click（）
DimnAsInteger,f1AsDouble,f2AsDouble,f3AsDouble
DimiAsInteger
n=Val（InputBox（"输入要输出的项数：
","输出斐波那契数列",20））
f1=0
f2=1
PrintTab（8）;f1
PrintTab（8）;f2
Fori=3Ton
f3=f2+f1
PrintTab（8）;f3
f1=f2
f2=f3
Next
EndSub
2PrivateSubForm_Click（）
DimnAsInteger,f1AsDouble
n=1
Forn=1To66
f1=15*n
Printf1
Next
EndSub
3PrivateSubForm_Click（）
Dima1AsDouble,nAsDouble,iAsInteger
a1=Val（InputBox（"请输入第1个数","找最大数"））
PrintTab（5）;a1
Fori=2To5
n=Val（InputBox（"请输入第"&i&"个数"））
PrintTab（5）;n
Ifn>a1Thena1=n
Next
Print""
Print"最大数为";a1
EndSub
4、PrivateSubForm_Click（）
DimyearAsLong
year=InputBox（"请输入年份"）
IfyearMod4=0Then
IfyearMod100=0Then
IfyearMod400=0Then
Printyear;"年是闰年"
Else
Printyear;"不年是闰年"
EndIf
Else
Printyear;"年是闰年"
EndIf
Else
Printyear;"不年是闰年"
EndIf
EndSub
5、PrivateSubform_Click（）
DimyearAsLong
Foryear=2000To2500
IfyearMod4=0Then
IfyearMod100=0Then
IfyearMod400=0Then
Printyear;"年是闰年",
Else
Printyear;"年不是闰年",
EndIf
Else
Printyear;"年是闰年",
EndIf
Else
Printyear;"年不是闰年",
EndIf
Next
EndSub
6、OptionBase1
PrivateSubForm_Click（）
Constn=10
Dima（n）AsSingle
Max=0
k=0
Fori=1Ton
a（i）=Val（InputBox（"请输入第"&i&"个数","找最大数"））
PrintTab（5）;"第"&i&"个数为：
";a（i）
Nexti
Fori=1Ton
IfMaxMax=a（i）
k=i
EndIf
Next
Print
Print"最大数为第"&k&"个数";Max
EndSub
7、方法1、PrivateSubForm_Click（）
DimnAsInteger,f1AsInteger,f2AsInteger,f3AsInteger
Forn=100To999
f1=Int（n/100）
f2=Int（n/10）Mod10
f3=nMod10
Iff1^3+f2^3+f3^3=nThen
Printn;"为水仙花数"
EndIf
Next
EndSub
方法2、PrivateSubForm_Click（）
DimnAsInteger,f1AsInteger,f2AsInteger,f3AsInteger
n=100
DoWhilen<=999
f1=Int（n/100）
f2=Int（n/10）Mod10
f3=nMod10
Iff1^3+f2^3+f3^3=nThen
Printn;"为水仙花数"
EndIf
n=n+1
Loop
EndSub
8、PrivateSubForm_Click（）
DimnAsInteger,sAsInteger
n=1
s=0
Do
s=s+n
n=n+1
LoopWhiles<=200
n=n-2
Printn
EndSub
9、二分法
方法1、
PublicFunctionf（xAsDouble）AsDouble
f=x^3-x-1
EndFunction
PrivateSubcommand1_Click（）
DimaAsDouble,bAsDouble,pAsSingle
a=1
b=1.5
p=0.00001
Do
Iff（（a+b）/2）=0Then
ExitDo
Else
Iff（a）*f（（a+b）/2）<0Then
b=（a+b）/2
Else
a=（a+b）/2
EndIf
EndIf
LoopWhileb-a>=p
Label1.Caption="方程的根是"&（a+b）/2
EndSub
PrivateSubCommand2_Click（）
Label2.Caption="求方程f=x^3-x-1的近似解"
EndSub
方法2、
PrivateSubCommand1_Click（）
a=Val（Text1.Text）
b=Val（Text2.Text）
e=Val（Text3.Text）
fa=（a*a-1）*a-1
fb=（b*b-1）*b-1
Iffa*fb>=0Then
Text4.Text="求解范围错！
"
Else
Do
x=（a+b）/2
f=（x*x-1）*x-1
Iff*fa>0Then
a=x:
fa=f
Else
b=x:
fb=f
EndIf
LoopUntilf=0OrAbs（b-a）Text4.Text=（a+b）/2
EndIf
EndSub
10、冒泡排序
PrivateSubCommand1_Click（）
DimC（6）AsDouble
Forn=1To6
C（n）=InputBox（"输入需要排序的数","6个数的冒泡排序",""）
Nextn
Fori=1To6
Forj=6ToiStep-1
IfC（j）a=C（j）:
C（j）=C（j-1）:
C（j-1）=a
EndIf
Nextj
Nexti
Fori=1To6
Print"",C（i）
Nexti
EndSub
11、求12＋22＋32＋…＋1002的算法
PrivateSubForm_Load（）
DimnAsLong,sAsLong
n=InputBox（"请输入n:
","从1到n求平方和",100）
s=0
i=1
Whilei<=n
s=s+i*i
i=i+1
Wend
Form1.Show
Print"","1到";n;"的平方和是：
";s
EndSub
12、辗转相除法求最大公因数
PrivateSubForm_Click（）
a=InputBox（"请输入一个整数"）
b=InputBox（"请输入一个整数"）
n1=Abs（a）
n2=Abs（b）
DoWhilen1Modn2<>0
tt=n1Modn2
n1=n2
n2=tt
Loop
Label1.Caption=a&"和"&b&"的最大公因数为"&n2
EndSub
13、用秦九韶算法求多项式的值
PrivateSubCommand1_Click（）
DimC（5）AsDouble
x=InputBox（"请输入求值数",""）
C（0）=-0.8:
C
（1）=1.7:
C
（2）=-2.6:
C（3）=3.5:
C（4）=2:
C（5）=5
n=1
v=C（5）
Whilen<=5
v=v*x+C（5-n）
n=n+1
Wend
Print"所求的值是";v
EndSub
14.判断素数
PrivateSubForm_Click（）
DimnAsLong
DimiAsLong
DimrAsSingle
n=Val（InputBox（"请输入一个数","判断素数"））
Fori=2Ton-1
r=nModi
Ifr=0Then
Print
Printn;"不是素数"
GoTo17
EndIf
Next
Print
Printn;"为素数"
17EndSub
15
PrivateSubForm_Click（）
DimiAsInteger,sumAsDouble
sum=1
Fori=1To64
sum=sum+2^i
Nexti
Printsum
EndSub
16、猜字游戏
PrivateSubCommand1_Click（）
Randomize
DimNumAsLong
DimRightAnswerAsBoolean
DimInputNumAsLong
Text1.Text=""
Num=Int（Rnd*10）+1
RightAnswer=False
Text1.Text=Text1.Text+"Here'sanumberbetween1and10.Canyougue
升级会员 