缴纳水费程序无法得出结果

错到离谱，改成这样：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(InputBox("请输入用水量", "计算水费")
Label1.Caption = x
If x <= 18 Then
y = 1.2 * x
ElseIf x <= 25 Then
y = 1.2 * 18 + 1.8 * (x - 18)
Else
y = 1.2 * 18 + 1.8 * 7 + 2.4 * (x - 25)
End If
Label2.Caption = y
Form_Load中的代码都删掉，从属性窗口设置各个控件的Caption属性

label2无法得出水费

①你在1楼将水量输入后写入label1，但是在点击按钮后却用label2给水量X赋值！所以，你啥也得不到！
②你的1楼输入水量的语句放在了form_load中，就是导致启动程序时输入一次，以后就没有了。应该用初音大侠在2楼的方式，放到按钮事件里，每次点击按钮就可以输入一次。
③你在3楼说的话，不清不楚，只要按2楼初音大侠的方法去做，不会产生你说的“无法得出”。你究竟说怎么样做“无法得出”？并且产生了什么样结果？