老师布置的VB题目1

来源：百度知道 编辑：UC知道 时间：2024/05/11 00:23:57
不好意思，我是菜鸟，特地来问题目交差的，呵呵，帮帮忙吧！！！
题目：
计算购货款。首先输入购买商品的 数量 和 单价(用text输入)，然后再按以下优惠条件计算出 原应付款额 和 实际付款额(用text输出)。条件如下：
应付款<=100元,无优惠；100<=应付款<=500时,9折优惠；500<=应付款<2000时,8折哟会；超过2000元时,7折优惠.

*需要用VB语言完整表达,要有计算(command1),清空(command2)和退出(command3)三个点击内容.
实在是太感谢了,好的话必定追加分数!说到做到!!
不好意思，前面打错了，条件是：
应付款<100元,无优惠；100<=应付款<500时,9折优惠；500<=应付款<2000时,8折优惠；超过（包括）2000元时,7折优惠.

**另外有流程图的（只要文字）更好！！**

真是太感谢了T_T

Private Sub Command1_Click()
Text3 = Int(Text1) * Int(Text2)
Select Case CInt(Text3)
Case Is <= 100
Text4 = Text3
Case 101 To 499
Text4 = CInt(Text3) * 0.9
Case 500 To 1999
Text4 = CInt(Text3) * 0.8
Case Is >= 2000
Text3 = CInt(Text3) * 0.7
End Select
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command1_Click()
Text3 = Int(Text1) * Int(Text2)
Select Case CInt(Text3)
Case Is <= 100
Text4 = Text3
Case 101 To 499
Text4 = CInt(Text3) * 0.9
Case 500 To 1999
Text4 = CInt(Text3) * 0.8
Case Is >= 2000
Text3 = CInt(Text3) * 0.7
End Select
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 =