VB实验报告.docx

VB实验报告.docx

《VB实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验报告.docx（11页珍藏版）》请在冰豆网上搜索。

VB实验报告

VisualBasic程序设计

实验（训）报告

学号：

09090xx姓名：

xxx班级099xcx：

实验时间：

201xx.4.24

实验编号

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系数和无实数根的信息提示框。

（根据界面写代码）

（1）属性设置：

控件名

属性名

属性值

Command1

Caption

开始

Command2

Caption

清除

Label1

Caption

A

Label2

Caption

X^2+b

Label3

Caption

x+c

Label4

Caption

结果是

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）

Text4.Text="x="&x

ElseIfd<0Then

MsgBox"无数根"

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

EndSub

（3）运行结果截图

2.计算实发工资（基本工资800＋营业提成），营业额1000以下提成为1%，营业额1000－2000提成为2%，营业额2000－3000提成3%，3000－10000提成4%，10000以上提成5%。

单击“开始”按钮，从键盘上输入该员工的营业额，计算显示出实发工资。

（1）属性设置：

控件名

属性名

属性值

Label1

Caption

实发工资

Text1

Command1

Caption

开始

（2）代码编写：

PrivateSubCommand1_Click（）

Dimx!

y!

x=Val（InputBox（"请输入营业额"））

Ifx<=1000Then

y=800+x*0.01

ElseIfx>1000Andx<=2000Then

y=800+x*0.02

ElseIfx>2000Andx<=3000Then

y=800+x*0.03

ElseIfx>3000Andx<=10000Then

y=800+x*0.04

ElseIfx>10000Then

y=800+x*0.05

EndIf

Text1.Text=y

EndSub

（3）运行截图

3．制作测试体重计算器：

h值是体重（kg）／身高（m）的平方，若h值在17－20之间为正常，低于17为偏瘦，高于20为偏胖。

功能：

单击“开始”按钮，弹出对话框输入体重和身高，并计算机出h值。

弹出“输入密码”提示框，输入密码，若密码正确则在文本二中显示体形结果，若输入错误则弹出“密码错误”提示框。

（1）属性设置：

控件名

属性名

属性值

Label1

Caption

密码

Label2

Caption

体型

Text1

Text2

Command1

Caption

开始

Command2

Caption

清除

（2）代码编写：

PrivateSubCommand1_Click（）

Dimh!

a!

b!

m!

a=Val（InputBox（"请输入体重"））

b=Val（InputBox（"请输入身高"））

m=Val（InputBox（"请输入密码"））

h=a/（b^2）

Ifm<>123Then

m=MsgBox（"密码错误",16）

Else

Ifh>17Andh<20Then

Text2.Text="正常"

ElseIfh<17Then

Text2.Text="偏瘦"

Else

Text2.Text="偏胖"

EndIf

EndIf

EndSub

（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学习打好基础。