![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
这个问题就是,用vb6做一个简单的计算价格的表,fish鱼的价格,vegetable蔬菜的价格,加
这个问题就是,用vb6做一个简单的计算价格的表,fish鱼的价格,vegetable蔬菜的价格,加上sugar的价格,三个加起来总价在0--199可以有5%的折扣,200...
这个问题就是,用vb6做一个简单的计算价格的表,fish鱼的价格,vegetable蔬菜的价格,加上sugar的价格,三个加起来总价在0--199可以有5%的折扣,200--299有15%折扣,要求code里用到case 或者If then!
展开
2个回答
展开全部
CALCULATE做一个按钮。然后在该按钮下加入以下代码
Private Sub Command1_Click()
Dim total1 As Integer
Dim discount1 As Single
Dim pay1 As Single
total1 = Val(fish.Text) + Val(vegetable.Text) + Val(sugar.Text)
total.Text = total1
Select Case total1
Case 0 To 199
discount1 = 0.05
Case 200 To 299
discount1 = 0.15
Case 300 To 399
discount1 = 0.25
Case 400 To 499
discount1 = 0.35
Case Is >= 500
discount1 = 0.4
End Select
discount.Text = Format(discount1, "0.00")
pay1 = total1 * (1 - discount1)
pay.Text = Format(pay1, "0.00")
End Sub
其中fish.text vegetable.Text sugar.Text total.Text discount.text pay.text都是文本框。
Private Sub Command1_Click()
Dim total1 As Integer
Dim discount1 As Single
Dim pay1 As Single
total1 = Val(fish.Text) + Val(vegetable.Text) + Val(sugar.Text)
total.Text = total1
Select Case total1
Case 0 To 199
discount1 = 0.05
Case 200 To 299
discount1 = 0.15
Case 300 To 399
discount1 = 0.25
Case 400 To 499
discount1 = 0.35
Case Is >= 500
discount1 = 0.4
End Select
discount.Text = Format(discount1, "0.00")
pay1 = total1 * (1 - discount1)
pay.Text = Format(pay1, "0.00")
End Sub
其中fish.text vegetable.Text sugar.Text total.Text discount.text pay.text都是文本框。
追问
我在试…
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询