VB_改错练习答案.docVIP

一.选择结构 题目：在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边，利用该过程的判定结果， 对能构成三角形的计算其面积，构不成的显示不能构成三角形 ------------------------------------------------ Option Explicit Private Sub Form_Click() **********FOUND********** Dim x%, y%, z%, s%, b As Boolean, h As Single x = InputBox(请输入三角形的边长) y = InputBox(请输入三角形的边长) z = InputBox(请输入三角形的边长) b = pd(x, y, z) h = (x + y + z) / 2 **********FOUND********** If Not b Then s = Sqr(h * (h - x) * (h - y) * (h - z)) Print 三角形面积是; s Else Print 不能构成三角形 End If End Sub **********FOUND********** Public Function pd() As Boolean If x 0 And y 0 And z 0 And x + y z And x + z y And y + z x Then pd = True Else pd = False End If End Function (答案1) Dim x% , y% , z% , s! , b As Boolean , h As Single (答案2) If b=true Then (答案3) Public Function pd(x%, y%, z%) As Boolean ------------------------------------------------ 题目:请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法， 每位顾客一次购物（1）在100元以上者，按九五折优惠； （2）在200元以上者，按九折优惠； （3）在300元以上者，按八折优惠； （4）在500元以上者, 按七折优惠。 ------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then **********FOUND********** x = y Else If x 200 Then y = 0.95 * x Else If x 300 Then y = 0.9 * x Else If x 500 Then y = 0.8 * x Else y = 0.7 * x **********FOUND********** Else If End If End If End If **********FOUND********** Text2.Text = x End Sub (答案1) y = x (答案2) End If (答案3) Text2.Text = y ------------------------------------------------ 题目：程序功能根据输入的学习成绩,分别显示 优秀 (90分以上), 良好(75分以上),及格(60分以上), 不及格四个等级. ------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer i = InputBox(请输入学习成绩) Select Case i **********FOUND******