VB实验报告3.docx

VB实验报告3.docx

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

VB实验报告3

VisualBasic程序设计

实验（训）报告

学号：

姓名：

班级：

实验时间：

实验编号

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!

a=Val（InputBox（"请输入系数a:

"））

b=Val（InputBox（"请输入系数b:

"））

c=Val（InputBox（"请输入系数c:

"））

Text1.Text=a

Text2.Text=b

Text3.Text=c

d=b^2-4*a*c

Ifd=0Then

x=-b/（2*a*c）

Text4.Text="x="&x

ElseIfd>0Then

X1=-b+Sqr（d）/（2*a*c）

X2=-b-Sqr（d）/（2*a*c）

Text4.Text="x="&X1&Space（3）&"x2="&X2

Else

MsgBox（"无实数根"）

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

EndSub

PrivateSubCommand3_Click（）

Dima!

b!

c!

a=Val（InputBox（"请输入a的值"））

b=Val（InputBox（"请输入b的值"））

c=Val（InputBox（"请输入c的值"））

d=Val（b^2-4*a*c）

Text1.Text=a

Text2.Text=b

Text3.Text=c

SelectCased

CaseIs=0

x=-b/2*a*c

Text4.Text="x="&x

CaseIs>0

X1=-b-Sqr（d）/2*a*c

X2=-b+Sqr（d）/2*a*c

Text4.Text="x1="&X1&Space（3）&"x2="&X2

CaseElse

x=Val（MsgBox（"无实数根","有误"））

EndSelect

EndSub

运行结果截图

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

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

代码编写：

PrivateSubCommand1_Click（）

Dimx!

y!

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

"））

Ifx<1000Then

y=x*0.01

ElseIfx<2000Then

y=x*0.02

ElseIfx<3000Then

y=x*0.03

ElseIfx<10000Then

y=x*0.04

ElseIfx>=10000Then

y=x*0.05

EndIf

Text1.Text=Val（1000+y）

EndSub

运行截图：

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

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

功能：

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

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

代码编写：

PrivateSubCommand1_Click（）

Dimc!

v!

开始:

c=Val（InputBox（"请输入体重:

"））

v=Val（InputBox（"请输入身高:

"））

r=Text1.PasswordChar

r=Val（InputBox（"请输入密码:

"））

h=c/v^2

SelectCaser

CaseIs="123"

Ifh<17Then

Text2.Text="偏瘦"

ElseIfh<20Then

Text2.Text="正常"

ElseIfh>20Then

Text2.Text="偏胖"

EndIf

CaseElse

MsgBox"密码错误"

GoTo开始

EndSelect

EndSub

运行截图：

4.输入月份，弹出提示对话框显示该月一共有多少天？

PrivateSubCommand1_Click（）

m=Text1.Text

SelectCasem

Case1,3,5,7,9,11

MsgBox"该月一共有31天"

Case2

MsgBox"该月一共有28天"

Case4,6,8,10,12

MsgBox"该月一共有30天"

EndSelect

EndSub

二、实验感受（包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对上机的意见等）