这个问题就是,用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! 展开
 我来答
wwwahaha
2015-10-13 · TA获得超过113个赞
知道小有建树答主
回答量:234
采纳率:75%
帮助的人:142万
展开全部
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都是文本框。
追问
我在试…
千玺的幸运福号
2015-10-13 · TA获得超过1034个赞
知道答主
回答量:509
采纳率:0%
帮助的人:102万
展开全部
看不见了
更多追问追答
追问
什么看不了
你会vb6么,会的话麻烦加个qq教教我吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式