VB实验报告Word文档格式.docx
《VB实验报告Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB实验报告Word文档格式.docx（11页珍藏版）》请在冰豆网上搜索。
实验内容
1.Inputbox（）函数
2.Msgbox（）函数的使用。
3.if-elseif语句和selectcase
一、实验题目
1.设计计算一元二次方程的计算器，功能：
单击开始按钮，弹出输入对话框，从键盘上分别输入a,b,c系数的值，若有实数根则显示输出结果和输入的a,b,c三个系数的值，若没有实数根，显示输出a,b,c系数和无实数根的信息提示框。
（根据界面写代码）
（1）属性设置：
控件名
属性名
属性值
Command1
Caption
开始
Command2
清除
Label1
A
Label2
X^2+b
Label3
x+c
Label4
结果是
Text1
Text2
Text3
Text4
（2）代码编写：
PrivateSubCommand1_Click（）
Dima!
b!
c!
d!
x1!
x2!
x!
a=Val（InputBox（"
请输入a的数值"
））
b=Val（InputBox（"
请输出b的数值"
c=Val（InputBox（"
请输入c的数值"
d=b*b-4*a*c
Text1.Text=a
Text2.Text=b
Text3.Text=c
Ifd>
0Then
x1=（-b+Sqr（d））/（2*a）
x2=（-b-Sqr（d））/（2*a）
Text4.Text="
x1="
&
x1&
Space（5）&
"
x2="
x2
ElseIfd=0Then
x=-b/（2*a）
x="
x
ElseIfd<
MsgBox"
无数根"
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text="
"
Text2.Text="
Text3.Text="
（3）运行结果截图
2.计算实发工资（基本工资800＋营业提成），营业额1000以下提成为1%，营业额1000－2000提成为2%，营业额2000－3000提成3%，3000－10000提成4%，10000以上提成5%。
单击“开始”按钮，从键盘上输入该员工的营业额，计算显示出实发工资。
实发工资
Dimx!
y!
x=Val（InputBox（"
请输入营业额"
Ifx<
=1000Then
y=800+x*0.01
ElseIfx>
1000Andx<
=2000Then
y=800+x*0.02
2000Andx<
=3000Then
y=800+x*0.03
3000Andx<
=10000Then
y=800+x*0.04
10000Then
y=800+x*0.05
Text1.Text=y
（3）运行截图
3．制作测试体重计算器：
h值是体重（kg）／身高（m）的平方，若h值在17－20之间为正常，低于17为偏瘦，高于20为偏胖。
功能：
单击“开始”按钮，弹出对话框输入体重和身高，并计算机出h值。
弹出“输入密码”提示框，输入密码，若密码正确则在文本二中显示体形结果，若输入错误则弹出“密码错误”提示框。
密码
体型
Dimh!
a!
m!
请输入体重"
请输入身高"
m=Val（InputBox（"
请输入密码"
h=a/（b^2）
Ifm<
>
123Then
m=MsgBox（"
密码错误"
16）
Else
Ifh>
17Andh<
20Then
正常"
ElseIfh<
17Then
偏瘦"
偏胖"
（3）运行截图：
4.输入三个数，比较并输出最大的数（只要代码）
Privatesubcommand1_click（）
Dimaassingle,bassinglecassingle
Maxassingle
A=val（inputbox（“请输入第一个数”））
B=val（inputbox（“请输入第二个数”））
C=val（inputbox（“请输入第三个数”））
Max=a
Ifb>
amaxthenmax=b
Ifc>
maxthenmax=c
Printa；
““;
b;
”“;
c;
”最大的值是:
：
”;
max
Endsub
二、实验感受（包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对上机的意见等）
对于程序的编写，重要的在于弄懂程序的具体语言，什么情况下该有空格，什么情况下该有分隔符，都是需要自己熟记于心的，否则，一小小的错误，却要搞半天才知道问题出在哪！
其实只要多加练习，编程的语言还是不难把握的，又是通过自己的一番探索最终把程序编出来，虽然有些慢，但体味到了其中成就感，同时对程序语言开始有点眉目，为以后的VB学习打好基础。
升级会员 