请教VB代码。万分感谢!回答满意则再送10个金币

发布网友发布时间：2024-09-30 14:07

共4个回答

热心网友时间：2024-10-25 10:35

dim a as integer
a= 先把会员积分赋值给a
if a>0 and a<11 thue
msgbox “普通会员，享受9.折，只需在购买” & 100-a*10 & “元的商品即可成为高级会员，可享受8折优惠”,1,“提示”
elseif a>10 and a<51 thue
msgbox “高级会员，享受8.折，只需在购买” & 500-a*10 & “元的商品即可成为 VIP会员，可享受7折优惠” ,1,“提示”
elseif a>50 and a<201 thue
msgbox “VIP会员，享受7折，只需在购买” & 2000-a*10 & “元的商品即可成为至尊会员，可享受6折优惠” ,1,“提示”
elseif a>200 thue
msgbox “ 至尊会员，终生享受6折优惠”,1,“提示”
end if
手机码的字没有调试，祝你成功

热心网友时间：2024-10-25 10:36

Select Case <变量名>
case <变量值>进行的事件...
case <变量值>进行的事件...
case <变量值>进行的事件...
case <变量值>进行的事件...
End Select //过程结束
应该是用这个语句

热心网友时间：2024-10-25 10:34

邮箱多少，我直接发给你制作好的工程

热心网友时间：2024-10-25 10:39

Private Sub Command1_Click()
Dim A As Integer
A = 0
A = Val(InputBox("请输入会员积分！", "输入会员积分！", 0))    '这里需要给变量A赋值，即会员的积分
    If A <= 10 Then
        MsgBox "普通会员，享受9折优惠！" & vbCrLf & vbCrLf & "只需再购买" & 100 - A * 10 & "元的商品即可成为高级会员，可享受8折优惠！", 64, "会员提示！"
    ElseIf A > 10 And A <= 50 Then
        MsgBox "高级会员，享受8折优惠！" & vbCrLf & vbCrLf & "只需再购买" & 500 - A * 10 & "元的商品即可成为VIP会员，可享受7折优惠！", 64, "会员提示！"
    ElseIf A > 50 And A <= 200 Then
        MsgBox "VIP会员，享受7折优惠！" & vbCrLf & vbCrLf & "只需再购买" & 2000 - A * 10 & "元的商品即可成为至尊会员，可享受6折优惠！", 64, "会员提示！"
    ElseIf A > 200 Then
        MsgBox "至尊会员，终生享受6折优惠！", 64, "会员提示！"
    End If
End Sub