VB_改错练习答案

《VB_改错练习答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一.选择结构'题目：在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边，利用该过程的判定结果，'对能构成三角形的计算其面积，构不成的显示"不能构成三角形"'------------------------------------------------OptionExplicitPrivateSubForm_Click()'**********FOUND**********Dimx%,y%,z%,s%,bAsBoolean,hAsSinglex=InputBox("请输入三角形的边长")y=InputBox("请输入三

2、角形的边长")z=InputBox("请输入三角形的边长")b=pd(x,y,z)h=(x+y+z)/2'**********FOUND**********IfNotbThens=Sqr(h*(h-x)*(h-y)*(h-z))Print"三角形面积是";sElsePrint"不能构成三角形"EndIfEndSub'**********FOUND**********PublicFunctionpd()AsBooleanIfx>0Andy>0Andz>0Andx+y>zAndx+z>yAndy+z>xThenpd=TrueElsep

3、d=FalseEndIfEndFunction(答案1)Dimx%,y%,z%,s!,bAsBoolean,hAsSingle(答案2)Ifb=trueThen(答案3)PublicFunctionpd(x%,y%,z%)AsBoolean'------------------------------------------------'题目:请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；'（2）在200元以上者，按九折优惠；（3）在300

4、元以上者，按八折优惠；（4）在500元以上者,按七折优惠。'------------------------------------------------OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<100Then'**********FOUND**********x=yElseIfx<200Theny=0.95*xElseIfx<300Theny=0.9*xElseIfx<500Theny=0.8*xElse

5、y=0.7*x'**********FOUND**********ElseIfEndIfEndIfEndIf'**********FOUND**********Text2.Text=xEndSub(答案1)y=x(答案2)EndIf(答案3)Text2.Text=y'------------------------------------------------'题目：程序功能根据输入的学习成绩,分别显示优秀(90分以上),良好(75分以上),及格(60分以上),不及格四个等级.'-------------------------

6、-----------------------OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegeri=InputBox("请输入学习成绩")SelectCasei'**********FOUND**********Case0

7、****CaseMsgBox"不及格",vbCriticalEndSelectEndSub(答案1)Caseis>100,is<0(答案2)Case90to100(答案3)Caseelse二.一般'------------------------------------------------'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。'------------------------------------------------OptionExplicitPrivateSubForm_Load()Dima!,b

8、!,c!,root1#,root2#,workAsDoublea=Val(InputBox("请输入系数a的值"))b=Val(InputBox("请输入系数b的值"))c=Val(InputBox("请输入系数c的值"))'**********F