VB编程在线等·

n内容要求:用VB进行简单编程。结合实际情况,商场一般不只提供一种打折方式或多种打折活动一起进行,在上面实现纯折扣活动外,增加“满XX元减OO元”的活动。要求可以选择打折... n 内容要求:用VB进行简单编程。
结合实际情况,商场一般不只提供一种打折方式或多种打折活动一起进行,在上面实现纯折扣活动外,增加“满XX元减OO元”的活动。要求可以选择打折方式,“满XX元减OO元”中的XX和OO也由用户输入。如果支持多种活动一起进行,打折顺序自定或提供可选操作,并通过用户的全单金额提出意见。例如:有满100减50的活动,用户买了298元东西,给出“应付198元”的结果,并给出“再买2元商品只需付150元”的提示。
展开
 我来答
burning456789
推荐于2017-10-06 · TA获得超过225个赞
知道小有建树答主
回答量:209
采纳率:75%
帮助的人:111万
展开全部
Private Sub Command1_Click()
zk = 0
jm = 1
j = 0
If Check1.Value = 1 Then zk = Text1
If Check2.Value = 1 Then jm = Text2: j = Text3
If Option1.Value = True Then
m = Text4 * (1 - zk)
Text5 = m - (m \ jm) * j
End If
If Option2.Value = True Then
m = Text4 - (Text4 \ jm) * j
Text5 = m * (1 - zk)
End If
m = 0
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
If Check1.Value = 0 Then MsgBox "请选择折扣率"
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
If Check2.Value = 0 Then MsgBox "请选择满减金额"
End If
End Sub
追问

追答
1、是否没有添加Option1控件
2、购买意见:需增加部分内容,
Private Sub Command1_Click()
Dim str As String
zk = 0
jm = 1
j = 0

Text6 = "购买意见:"

If Check1.Value = 1 Then zk = Text1
If Check2.Value = 1 Then jm = Text2: j = Text3
If Option1.Value = True Then
m = Text4 * (1 - zk)
Text5 = m - (m \ jm) * j

X1 = Text2 - Text5 Mod Text2
X2 = Text5 + X1 - Text3
If X2 < Text5 Then Text6 = "购买意见:再买" & X1 & "元商品只需付" & X2 & "元"

End If
If Option2.Value = True Then
m = Text4 - (Text4 \ jm) * j
Text5 = m * (1 - zk)

X1 = Text2 - Text5 Mod Text2
X2 = Text5 + X1 - Text3
If X2 < Text5 Then Text6 = "购买意见:再买" & X1 & "元商品只需付" & X2 & "元"

End If
m = 0
End Sub
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
xq13793521859
2014-06-05
知道答主
回答量:56
采纳率:0%
帮助的人:10.1万
展开全部
双击计算开始编程
a=text1
b=text2
c=text3
d=text4
e=text5
if d>=b then
e=(d-c)×a
else e=d×a
end if
text5.text=e
追问
这个公式好像不对···
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式