vb编程实例精品版.docx
- 文档编号:24582209
- 上传时间:2023-05-29
- 格式:DOCX
- 页数:30
- 大小:23.03KB
vb编程实例精品版.docx
《vb编程实例精品版.docx》由会员分享,可在线阅读,更多相关《vb编程实例精品版.docx(30页珍藏版)》请在冰豆网上搜索。
vb编程实例精品版
实验30
(1)
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimaAsString,bAsString,cAsString
Dimx1AsSingle,x2AsSingle
a=InputBox("输?
入?
A","输?
入?
数簓据YY",,500,500)
b=InputBox("输?
入?
B","输?
入?
数簓据YY",,500,500)
c=InputBox("输?
入?
C","输?
入?
数簓据YY",,500,500)
x1=-b+Math.Sqrt(b^2-4*a*c)/2/a
x2=-b-Math.Sqrt(b^2-4*a*c)/2/a
MsgBox("x1="&Format(x1,"###.###")&"x2="&Format(x2,"###.###"))
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
DimxAsSingle
DimyAsSingle
x=InputBox("输?
入?
x")
y=Math.Log(20)+Math.Abs(x-16)
MsgBox("Math.Log(20)+Math.Abs(x-16)="&y)
EndSub
计算落体
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
ConstgAsSingle=9.81
DimvAsSingle,oAsSingle,tAsSingle,sAsSingle
v=InputBox("输?
入?
初?
速ù度è")
o=InputBox("输?
入?
角?
度è")
t=2*v*Math.Sin(o*Math.PI/180)/g
s=v*Math.Sin(2*o*Math.PI/180)/g
MsgBox("落?
地?
所ù需è时骸?
间?
"&t&"落?
地?
时骸?
运?
动ˉ的?
射?
程ì"&s)
EndSub
EndClass
实验30
(2)
随机产生奇偶数并输出
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimxAsInteger
x=Int(Rnd()*100)
IfxMod2=0Then
MsgBox(x&"是?
偶?
数簓")
Else
MsgBox(x&"是?
奇?
数簓")
EndIf
EndSub
比较三个数的大小并输出
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,yAsSingle
a=InputBox("请?
输?
入?
a")
b=InputBox("请?
输?
入?
b")
c=InputBox("请?
输?
入?
c")
Ifa>bThen
x=a
y=b
Else
x=b
y=a
EndIf
Ifc>aThen
x=c
Else
Ifc y=c EndIf EndIf MsgBox("最? 大洙? 数簓"&x&"最? 小? 数簓"&y) EndSub 计算当T<120时的计算(循环语句) PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click DimtAsSingle,fAsSingle t=InputBox("请? 输? 入? t") Ift<120Then f=0.06*t+2 MsgBox("f=0.06*t+2="&f) Else f=0.06*t*0.85 MsgBox("f=0.06*t*0.85="&f) EndIf EndSub 判断成绩等级 PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click DimxAsSingle DimyAsString x=InputBox("请? 输? 入? 成é绩¨") Ifx>=90Then y="A" ElseIfx>=80Then y="B" ElseIfx>=70Then y="C" ElseIfx>=60Then y="D" Else y="E" EndIf MsgBox("成é绩¨"&x&"等台? 级? 为a"&y) EndSub Case选择 PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click DimxAsSingle,yAsSingle x=InputBox("请? 输? 入? x") SelectCasex CaseIs<=-1 y=x-1 CaseIs<=2 y=2*x CaseIs<=10 y=x*(x+2) CaseElse y=0 EndSelect MsgBox("y="&y) EndSub 计算算数根 PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click DimaAsString,bAsString,cAsString Dimx1AsSingle,x2AsSingle,xAsSingle a=InputBox("输? 入? A","输? 入? 数簓据YY",,500,500) b=InputBox("输? 入? B","输? 入? 数簓据YY",,500,500) c=InputBox("输? 入? C","输? 入? 数簓据YY",,500,500) x=b^2-4*a*c Ifx>=0Then x1=-b+Math.Sqrt(x)/2/a x2=-b-Math.Sqrt(x)/2/a MsgBox("x1="&Format(x1,"###.###")&"x2="&Format(x2,"###.###")) Else x1=Math.Sqrt(-x)/2/a x2=-Math.Sqrt(-x)/2/a MsgBox("x1="&-b/2/a&x1&"ix2="&-b/2/a&x2&"i") EndIf EndSub 循环语句 实验31 PublicClassForm1 Dima(19)AsInteger PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimiAsInteger DimnAsInteger DimsAsSingle s=0 n=InputBox("请? 输? 入? n") Fori=1Ton s=s+1/(i*(i+1)) Next MsgBox("s="&s) EndSub 求下标是奇偶数的代码 PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click Dima(10)AsInteger DimiAsInteger DimxAsInteger DimyAsInteger x=0 y=0 Fori=1To10 InputBox("请? 输? 入? 第台? &i&"个? 数簓") IfiMod2=0Then x=x+a(i) Else y=y+a(i) EndIf Next MsgBox("下? 标括? 为a奇? 数簓的? 元a素? 和í为a"&y&"下? 标括? 为a偶? 数簓的? 元a素? 和í为a"&x) EndSub 画星星图 PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click DimrAsInteger,sAsInteger,cAsInteger,y(5)AsString,jAsInteger,ysAsString ys="" r=1 DoWhiler<=4 c=10-r: s=1 y(r)=y(r)&Space(c+s) DoWhiles<=2*r-1 y(r)=y(r)&"*" s=s+1 Loop r=r+1 Loop Forj=1To4 ys=ys&y(j)&Chr(10) Next MsgBox(ys) EndSub 画图 PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click DimrAsInteger,sAsInteger,cAsInteger,y(5)AsString,ysAsString ys="" r=4 DoWhiler>=1 c=10-r: s=1 ys=ys&Space(c+s) DoWhiles<=2*r-1 ys=ys&"*" s=s+1 Loop r=r-1 ys=ys&Chr(10) Loop MsgBox(ys) EndSub PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click EndSub 随机产生几个数并输出相关条件的个数 PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click DimsAsString DimiAsInteger DimxAsInteger DimyAsInteger x=0 y=0 s="" Fori=0To19 a(i)=Int(Rnd()*100) s=s&a(i)&"," Ifa(i)>50Then x=x+1 ElseIfa(i)<10Then y=y+1 EndIf Next MsgBox(s&vbCrLf&"50万? 元a以? 上? 的? 业唉? 务? 人? 数簓为a"&x&",10万? 元a以? 下? 的? 业唉? 务? 人? 数簓为a"&y) EndSub 随机产生并排序 PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click 'Dima(19)AsInteger DimtAsInteger DimiAsInteger DimjAsInteger DimxAsString DimyAsString x="" y="" 'Fori=0To19 'a(i)=Int(Rnd()*100) 'x=x&a(i)&"," 'Next Fori=0To19 Forj=19Toi+1Step-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 编程 实例 精品