某百货公司为了促销,采用购物打折扣的优惠办法,即每位顾客一次购物: (1) 在1000元以上2000元以下者,按九五折优惠; (2) 在2000元以上3000元以下者,按九折优惠; (3) 在3000元以上5000元以下者,按八五折优惠; (4) 在5000元以上者,按八折优惠。 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If_________ Then y = x ElseIf x y = 0.95 * x ElseIf x y = 0.9 * x ElseIf x y = 0.85 * x Else ________ End If Text2.Text = y End Sub