VB编程在线等·
n内容要求:用VB进行简单编程。结合实际情况,商场一般不只提供一种打折方式或多种打折活动一起进行,在上面实现纯折扣活动外,增加“满XX元减OO元”的活动。要求可以选择打折...
n 内容要求:用VB进行简单编程。
结合实际情况,商场一般不只提供一种打折方式或多种打折活动一起进行,在上面实现纯折扣活动外,增加“满XX元减OO元”的活动。要求可以选择打折方式,“满XX元减OO元”中的XX和OO也由用户输入。如果支持多种活动一起进行,打折顺序自定或提供可选操作,并通过用户的全单金额提出意见。例如:有满100减50的活动,用户买了298元东西,给出“应付198元”的结果,并给出“再买2元商品只需付150元”的提示。 展开
结合实际情况,商场一般不只提供一种打折方式或多种打折活动一起进行,在上面实现纯折扣活动外,增加“满XX元减OO元”的活动。要求可以选择打折方式,“满XX元减OO元”中的XX和OO也由用户输入。如果支持多种活动一起进行,打折顺序自定或提供可选操作,并通过用户的全单金额提出意见。例如:有满100减50的活动,用户买了298元东西,给出“应付198元”的结果,并给出“再买2元商品只需付150元”的提示。 展开
展开全部
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
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
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询