某超市打折促销，规定如下：
①购物未超过500元按原价支付；
②购物超过500元但未超过1000元，超过500元部分按9折优惠计价；
③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；
④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；
⑤购物超过3000元，超过3000元部分按6折优惠计价．
根据以上规定，假定购物货款为x元，则实付金额y为：

y

=

x , x ≤ 500

500 + （ x - 500 ） * 0 . 9 ， 500 ＜ x ≤ 1000

500 + 500 * 0 . 9 + （ x - 1000 ） * 0 . 8 ， 1000 ＜ x ≤ 1500

500 + 500 * 0 . 9 + 500 * 0 . 8 + （ x - 1500 ） * 0 . 7 ， 1500 ＜ x ≤ 3000

500 + 500 * 0 . 9 + 500 * 0 . 8 + 1500 * 0 . 7 + （ x - 3000 ） * 0 . 6 ， x ＞ 3000

程序界面如图所示，在”输入购物金额（单位：元）”后的文本框orgtext中输入购物金额（单位：元），单击”实付金额计算”按钮（Command1）后，在”实际支付金额（单位：元）为”后的文本框cashText中输出实付金额．

解决此问题相应的Visual Basic程序如下：
Privae Sub Command1_Click （　　）
Dim  x As Single,y As Single
x=Val（orgjye.ai.Text）
If x＜=500Then
y=x
ElseIf ①Then
y=500+（x-500）*0.9
ElseIf x＜=1500Then
y=500+500*0.9+（x-1000）*0.8
ElseIf x＜=3000Then
y=500+500*0.9+500*0.8+（x-1500）*0.7
Else
y=500+500*0.9+500*0.8+1500*0.7+（x-3000）*0.6
End If
   ②
End Sub
（1）解决此问题的算法是

解析法

解析法

．（选填：解析法或枚举法）在程序①和②横线处，填入适当的语句或表达式，把程序补充完整．
（2）程序中①横线处应填入

x＜=1000

x＜=1000

．
（3）程序中②横线处应填入

cashText.jye.ai=str（y）

cashText.jye.ai=str（y）

．