实验五分支结构程序设计参.pdfVIP

实验五分支结构程序设计

一、实验目的

1．熟悉流程图：能看懂流程图，并能画简单的流程图；

2．掌握条件语句；

3．会使用选择性控件设计简单的界面。

二实验内容

1.按要求完成程序设计内容；

2.保存完成的VB工程，压缩为“实验五0607509101.RAR”等样式命名的压

缩文件，上传至FTP服务器的指定中；

3.课后自行完成实验报告，并把主要代码、所遇到的难题、心得粘贴到

《卫生信息05、卫生监督05的同学计算机应用基础课程讨论区》。

三、实验步骤

略

四、主要实验步骤及实验结果

1．完善前一实验中计算圆周长面积的程序，当用户输入正数或零时计算出相应结果；若输

入负数则给出错误提示。

Dimr!,L!,S!

ConstPi=3

Do

r=Val(InputBox(请输入圆的半径：))

Ifr0ThenExitDo

MsgBox请输入一个大于0的数字！

Loop

L=2*Pi*r

S=Pi*r^2

MsgBox半径为r的圆，周长为L,面积为S

2．编程：输入年份，判断是否闰年。

符合以下两个条件之一的年份为闰年：①年份末两位为00且能被400整除；②末两位不是

00且能被4整除。

Dimx%

x=Val(InputBox(请输入年份))

IfxMod400=0Or(xMod1000AndxMod4=0)Then

MsgBoxx年是闰年。

Else

MsgBoxx年不是闰年。

EndIf

3．编程：用户输入x值，按下列函数计算并显示y值。

PrivateSubCommand1_Click()

Dimx!,y!

x=Val(Text1.Text)

SelectCa

CaseIs=-1

y=x-1

CaseIs=2

y=2*x

CaseElse

y=x*x+x*2

EndSelect

Text2.Text=y

EndSub

4．编程：用户输入a，b，c，求一元二次方程ax2+bx+c=0的实数解。

Dima!,b!,c!

Dimd!

DimX1!,X2!,Xs!,Xx!

Do

a=Val(InputBox(请输入一元二次方程的二次项系数a))

Ifa0ThenExitDo

MsgBox二次项系数a不能为0！请重新输入。

Loop

b=Val(InputBox(请输入一元二次方程的一次项系数b))

c=Val(InputBox(请输入一元二次方程的常数项c))

d=b^2-4*a*c

Ifd=0Then

X1=(-b)/2/a

MsgBox方程有两个相等的实根：X1=X2=X1

ElseIfd0Then

X1=(-b+Sqr(d))/2/a

X1=(-b-Sqr(d))/2/a

MsgBox方程有两个实根：X1X1,X2=X2

Else

Xs=-b/2/a

Xx=Sqr(-d)/2/a

MsgBox方程有两个共轭复根：X1Xs+Xxi,X2=Xs-Xx

i

EndIf

5．某公司计算货物运费的如下：

设每公里每吨货物的基本运费为p（price的缩写），货物重量为w（weight的缩

Dimp!,w!,r!

DimsAsSingle,fAsSingle

p=