VB 请帮忙做个VB题

来源：百度知道编辑：UC知道时间：2024/06/26 04:58:44

某商场为了加速促成商品流通。采用购物打折的优惠办法，每位顾客一次购物200元以上者,按九五折优惠；在400元以上者，按九折优惠；600元以上者，按八折优惠；1000元以上者按七折优惠。在窗体上添加两个文本框和一个按钮，要求在text1中输入购物商品总金额，单击按钮在text2中输出优惠价。
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 200 Then
y = x
Else
If x < 400 Then
y = 0.95 * x
Else
If x < 600 Then
y = 0.9 * x
else
If x < 1000 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
end if

Text2.Text = y
End Sub

如上请问Text2.Text = y的位置可以放到前面么
比如放到x = Val(Text1.Text)这句后面

'不能，因为那时后Y还没有赋值
'代码简化
Dim x As Double, y As Double
x = Val(Text1.Text)
If x < 200 Then
y = x
ElseIf x < 400 Then
y = 0.95 * x
ElseIf x < 600 Then
y = 0.9 * x
ElseIf x < 1000 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
Text2.Text = y

帮忙做VB 题帮忙做个VB表达式！！！！！！！请个VB高手帮忙 VB题帮忙做下~~ 帮忙做一道VB题: 帮忙做一个VB题学VB过时吗？请对VB做个平价。 VB题，请快帮忙高手帮忙做个VB程序帮忙做个VB小程序