VB练习3.docx
《VB练习3.docx》由会员分享，可在线阅读，更多相关《VB练习3.docx（12页珍藏版）》请在冰点文库上搜索。
VB练习3
VisualBasic程序设计
实验（训）报告
学号：
1109070611姓名：
钱晓洲班级：
06实验时间：
实验编号
VB03
实验名称
Inputbox（）函数、Msgbox（）函数、条件语句
实验目的和要求
1.掌握Inputbox（）函数的使用。
2.掌握Msgbox（）函数的使用。
3.掌握单行if语句、if-elseif语句和selectcase结构的使用。
实验内容
1.Inputbox（）函数
2.Msgbox（）函数的使用。
3.if-elseif语句和selectcase
一、实验题目
1.设计计算一元二次方程的计算器，功能：
单击开始按钮，弹出输入对话框，从键盘上分别输入a,b,c系数的值，若有实数根则显示输出结果和输入的a,b,c三个系数的值，若没有实数根，显示输出a,b,c系数和无实数根的信息提示框。
（根据界面写代码）
代码编写
PrivateSubCommand1_Click（）
Dima!
b!
c!
d!
x!
x1!
x2!
start:
a=Val（InputBox（"请输入系数a:
"））
b=Val（InputBox（"请输入系数b:
"））
c=Val（InputBox（"请输入系数c:
"））
Text1.Text=a
Text2.Text=b
Text3.Text=c
d=b*b-4*a*c
Ifd>oThen
x1=（-b+Sqr（d））/（2*a）
x2=（-b-Sqr（d））/（2*a）
Text4.Text="x1="&Space（5）&"x2="&x2
ElseIfd=0Then
x=-b/（2*a）
Text4.Text="x1=x2="&x
Else
MsgBox"此方程无解"
GoTostart
EndIf
EndSub
PrivateSubCommand2_Click（）
Dima!
b!
c!
d!
x!
x1!
x2!
start:
a=Val（InputBox（"请输入系数a:
"））
b=Val（InputBox（"请输入系数b:
"））
c=Val（InputBox（"请输入系数c:
"））
Text1.Text=a
Text2.Text=b
Text3.Text=c
d=b*b-4*a*c
SelectCased
CaseIs>0
x1=（-b+Sqr（d））/（2*a）
x2=（-b-Sqr（d））/（2*a）
Text4.Text="x1="&Space（5）&"x2="&x2
CaseIs=0
x=-b/（2*a）
Text4.Text="x1=x2="&x
CaseElse
MsgBox"此方程无解"
GoTostart
EndSelect
EndSub
PrivateSubCommand3_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
2.计算实发工资（基本工资1000＋营业提成），营业额1000以下提成为1%，营业额1000－2000提成为2%，营业额2000－3000提成3%，3000－10000提成4%，10000以上提成5%。
单击“开始”按钮，从键盘上输入该员工的营业额，计算显示出实发工资。
代码编写PrivateSubCommand1_Click（）
Dima!
M!
a=Val（InputBox（"请输入营业额:
"））
Ifa<=1000Then
M=1000+a*0.01
Text1.Text=M
ElseIfa<=2000Then
M=1000+1000*0.01+（a-1000）*0.02
Text1.Text=M
ElseIfa<=3000Then
M=1000+1000*0.01+1000*0.02+（a-2000）*0.03
Text1.Text=M
ElseIfa<=10000Then
M=1000+1000*0.01+1000*0.02+1000*0.03+（a-10000）*0.04
Text1.Text=M
ElseIfa>10000Then
M=1000+1000*0.01+1000*0.02+1000*0.03+7000*0.04+（a-10000）*0.05
Text1.Text=M
EndIf
EndSub：
3．制作测试体重计算器：
h值=体重（kg）／身高（m）的平方，若h值在17－20之间为正常，低于17为偏瘦，高于20为偏胖。
功能：
单击“开始”按钮，弹出对话框输入体重和身高，并计算机出h值。
弹出“输入密码”提示框，输入密码，若密码正确则在文本二中显示体形结果，若输入错误则弹出“密码错误”提示框
代码编写：
PrivateSubCommand1_Click（）
DimH!
M!
a!
H=Val（InputBox（"请输入身高H"））
M=Val（InputBox（"请输入体重G"））
a=M/（H^2）
MsgBox（"查看结果输入密码"）
Text4.Text=InputBox（"请输入密码"）
IfText4.Text<>"123456"Then
MsgBox（"密码错误"）
ElseIfa>=17Anda<=20Then
Text1.Text=H
Text2.Text=M
Text3.Text=a
Text4.PasswordChar="*"
MsgBox（"正常"）
ElseIfa<17Then
Text1.Text=H
Text2.Text=M
Text3.Text=a
Text4.PasswordChar="*"
MsgBox（"偏瘦"）
Else
Text1.Text=H
Text2.Text=M
Text3.Text=a
Text4.PasswordChar="*"
MsgBox（"偏胖"）
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
输入月份，弹出提示对话框显示该月一共有多少天？
代码编写
PrivateSubCommand1_Click（）
Dima!
b!
a=Val（InputBox（"请输入年份"））
b=Val（InputBox（"请输入月份"））
Text1.Text=a
Text2.Text=b
IfaMod4=0Andb=2Then
Text3.Text=29
ElseIfaMod4<>0Andb=2Then
Text3.Text=28
EndIf
Ifb=1Orb=3Orb=5Orb=7Orb=8Orb=10Orb=12Then
Text3.Text=31
ElseIfb=4Orb=6Orb=9Orb=11Then
Text3.Text=30
EndIf
EndSub
升级会员 