VB实验程序代码.docx
- 文档编号:5654464
- 上传时间:2022-12-30
- 格式:DOCX
- 页数:35
- 大小:485.12KB
VB实验程序代码.docx
《VB实验程序代码.docx》由会员分享,可在线阅读,更多相关《VB实验程序代码.docx(35页珍藏版)》请在冰豆网上搜索。
VB实验程序代码
实验二
实验2.1
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_h.Text="华氏温度"
lb_c.Text="摄氏温度"
tx_h.Text=""
tx_c.Text=""
bn_htoc.Text="华氏转摄氏"
bn_ctoh.Text="摄氏转华氏"
EndSub
PrivateSubbn_htoc_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_htoc.Click
Dimh,cAsSingle
h=Val(tx_h.Text)
c=5/9*(h-32)
tx_c.Text=Format(c,"0.##")
EndSub
PrivateSubbn_ctoh_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_ctoh.Click
Dimh,cAsSingle
c=Val(tx_c.Text)
h=9/5*c+32
tx_h.Text=Format(h,"0.##")
EndSub
'以下可以不看
Subtx_handle(ByValeAsSystem.Windows.Forms.KeyPressEventArgs)
Ife.KeyChar>="0"Ande.KeyChar<="9"Then
ExitSub
EndIf
IfAsc(e.KeyChar)=8OrAsc(e.KeyChar)=46Then
ExitSub
EndIf
IfAsc(e.KeyChar)=45Then
ExitSub
EndIf
e.Handled=True
EndSub
PrivateSubtx_c_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_c.KeyPress
tx_handle(e)
EndSub
PrivateSubtx_h_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_h.KeyPress
tx_handle(e)
EndSub
实验2.2
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_y.Text="人民币"
lb_v.Text="兑换比率"
lb_s.Text="美元"
tx_y.Text=""
tx_v.Text=""
tx_s.Text=""
bn_cls.Text="清屏"
bn_ytos.Text="¥→$"
bn_stoy.Text="$→¥"
bn_end.Text="结束"
Me.Text="人民币与美元兑换"
EndSub
PrivateSubbn_cls_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_cls.Click
tx_y.Text=""
tx_v.Text=""
tx_s.Text=""
EndSub
PrivateSubbn_ytos_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_ytos.Click
Dims,y,vAsSingle
y=Val(tx_y.Text)
v=Val(tx_v.Text)
s=y*v
tx_s.Text=Format(s,"0.##")
EndSub
PrivateSubbn_stoy_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_stoy.Click
Dims,y,vAsSingle
s=Val(tx_s.Text)
v=Val(tx_v.Text)
Ifv<>0Then
y=s/v
Else
MsgBox("兑换比率不能为零!
",MsgBoxStyle.OKOnly,"错误")
EndIf
tx_y.Text=Format(y,"0.##")
EndSub
PrivateSubbn_end_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_end.Click
End
EndSub
'以下可以不看
PrivateSubtx_s_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_s.KeyPress
tx_handle(e)
EndSub
PrivateSubtx_v_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_v.KeyPress
tx_handle(e)
EndSub
PrivateSubtx_y_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_y.KeyPress
tx_handle(e)
EndSub
Subtx_handle(ByValeAsSystem.Windows.Forms.KeyPressEventArgs)
Ife.KeyChar>="0"Ande.KeyChar<="9"Then
ExitSub
EndIf
IfAsc(e.KeyChar)=8OrAsc(e.KeyChar)=46Then
ExitSub
EndIf
e.Handled=True
EndSub
实验2.3
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_in.Text="输入圆半径"
tx_r.Text="12"'默认值
tx_s.Text=""
tx_l.Text=""
bn_s.Text="圆面积"
bn_l.Text="圆周长"
EndSub
PrivateSubbn_s_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_s.Click
'IfNoterror_handle()Then
'ExitSub
'EndIf
IfNotIsNumeric(tx_r.Text)Then
MsgBox("请输入数字!
",MsgBoxStyle.OKOnly,"错误")
ExitSub
EndIf
IfVal(tx_r.Text)<0Then
MsgBox("请输入正数!
",MsgBoxStyle.OKOnly,"错误")
ExitSub
EndIf
DimsAsSingle
s=Math.PI*Val(tx_r.Text)^2
tx_s.Text=Format(s,"0.##")
EndSub
PrivateSubbn_l_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_l.Click
'IfNoterror_handle()Then
'ExitSub
'EndIf
IfNotIsNumeric(tx_r.Text)Then
MsgBox("请输入数字!
",MsgBoxStyle.OKOnly,"错误")
ExitSub
EndIf
IfVal(tx_r.Text)<0Then
MsgBox("请输入正数!
",MsgBoxStyle.OKOnly,"错误")
ExitSub
EndIf
DimlAsSingle
l=2*Math.PI*Val(tx_r.Text)
tx_l.Text=Format(l,"0.##")
EndSub
'以下可以不看
Functionerror_handle()AsBoolean
error_handle=True
IfNotIsNumeric(tx_r.Text)Then
MsgBox("请输入数字!
",MsgBoxStyle.OKOnly,"错误")
error_handle=False
ExitFunction
EndIf
IfVal(tx_r.Text)<0Then
MsgBox("请输入正数!
",MsgBoxStyle.OKOnly,"错误")
error_handle=False
ExitFunction
EndIf
EndFunction
实验2.4
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_login.Text="用户登录"
lb_user.Text="请输入用户名"
lb_psw.Text="请输入你的密码"
tx_user.Text="hello"
tx_psw.Text=""
tx_psw.PasswordChar="*"
tx_psw.MaxLength=10
tx_user.MaxLength=10
EndSub
PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.Click
IfNot(IsNumeric(tx_psw.Text)AndVal(tx_psw.Text)>0)Then
MsgBox("密码必须是数字!
",MsgBoxStyle.OKOnly,"错误")
ExitSub
EndIf
Iftx_psw.Text<>"123456"Then
MsgBox("密码输入错误!
",MsgBoxStyle.OKOnly,"错误")
ExitSub
EndIf
MsgBox("登录成功!
",MsgBoxStyle.OKOnly,"错误")
Shell("spider.exe")'打开当前目录下的游戏
EndSub
实验三
实验3.2
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_x.Text="x"
lb_y.Text="y"
lb_z.Text="z"
tx_x.Text=""
tx_y.Text=""
tx_z.Text=""
tx_rs.Text=""
lb_rs.Text="排序结果"
bn_sort.Text="排序"
bn_cls.Text="清空"
bn_end.Text="结束"
Me.Text="三个数排序"
tx_rs.ReadOnly=True
EndSub
PrivateSubbn_cls_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_cls.Click
tx_x.Text=""
tx_y.Text=""
tx_z.Text=""
tx_rs.Text=""
EndSub
PrivateSubbn_end_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_end.Click
End
EndSub
PrivateSubbn_sort_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_sort.Click
Dimx,y,z,tAsSingle
x=Val(tx_x.Text)
y=Val(tx_y.Text)
z=Val(tx_z.Text)
Ifx>yThen
t=x:
x=y:
y=t
EndIf
Ifx>zThen
t=x:
x=z:
z=t
EndIf
Ify>zThen
t=z:
z=y:
y=t
EndIf
tx_rs.Text&=x&"<"&y&"<"&z&vbNewLine
EndSub
'以下可以不看
Subtx_handle(ByValeAsSystem.Windows.Forms.KeyPressEventArgs)
Ife.KeyChar>="0"Ande.KeyChar<="9"Then
ExitSub
EndIf
IfAsc(e.KeyChar)=8OrAsc(e.KeyChar)=46Then
ExitSub
EndIf
e.Handled=True
EndSub
PrivateSubtx_x_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_x.KeyPress
tx_handle(e)
EndSub
PrivateSubtx_y_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_y.KeyPress
tx_handle(e)
EndSub
PrivateSubtx_z_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlestx_z.KeyPress
tx_handle(e)
EndSub
实验3.3
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_m1.Text="m1"
lb_m2.Text="m2"
lb_m3.Text="m3"
tx_m1.Text=""
tx_m2.Text=""
tx_m3.Text=""
tx_rs.Text=""
lb_rs.Text="奖学金等次"
bn_grade.Text="评奖"
bn_cls.Text="清空"
bn_end.Text="结束"
Me.Text="评奖学金"
tx_rs.ReadOnly=True
EndSub
PrivateSubbn_grade_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_grade.Click
'先排序
Dimx,y,z,tAsSingle
x=Val(tx_m1.Text)
y=Val(tx_m2.Text)
z=Val(tx_m3.Text)
Ifx>yThen
t=x:
x=y:
y=t
EndIf
Ifx>zThen
t=x:
x=z:
z=t
EndIf
Ify>zThen
t=z:
z=y:
y=t
EndIf
t=(x+y+z)/3
Ifx>=65Andy=100Andz=100Then
tx_rs.Text="一等奖"
ExitSub
EndIf
Ift>=90Then
tx_rs.Text="一等奖"
ExitSub
EndIf
Ift>=85Andx>=80Then
tx_rs.Text="二等奖"
ExitSub
EndIf
Ift>=80Then
tx_rs.Text="三等奖"
ExitSub
EndIf
tx_rs.Text="不获奖学金"
EndSub
PrivateSubbn_cls_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_cls.Click
tx_m1.Text=""
tx_m2.Text=""
tx_m3.Text=""
tx_rs.Text=""
EndSub
PrivateSubbn_end_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_end.Click
End
EndSub
实验3.4
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
lb_t.Text="贷款总额"
lb_d.Text="万元"
lb_j.Text="每月应还"
ck_c.Text="初次贷款"
gp_y.Text="贷款年限"
gp_t.Text="贷款类型"
rb_10.Text="10"
rb_20.Text="20"
rb_30.Text="30"
rb_s.Text="商业贷款"
rb_g.Text="公积金贷款"
bn_cal.Text="计算"
tx_j.ReadOnly=True
'设置初始值
ck_c.Checked=True
rb_10.Checked=True
rb_s.Checked=True
y=10:
r=0.05
tx_cs.Text="10"
tx_j.Text=""
EndSub
PrivateSubck_c_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesck_c.CheckedChanged
c=IIf(ck_c.Checked,0.95,1)
EndSub
PrivateSubrb_s_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesrb_s.CheckedChanged
t=IIf(rb_s.Checked,1,0.9)
EndSub
PrivateSubbn_cal_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbn_cal.Click
total=Val(tx_cs.Text)
tx_j.Text=Format(total*10000*(1+r*t*c)/(y*12),"0.00")
EndSub
PrivateSubrb_10_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesrb_10.Click
y=10:
r=0.05
EndSub
PrivateSubrb_20_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesrb_20.Click
y=20:
r=0.08
EndSub
PrivateSubrb_30_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesrb_30.Clic
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 程序代码