商品打折问题
商品打折问题
王夏萌07网一 周五 三月 21, 2008 9:43 am
Dim a As Double = Console.ReadLine '定义a为消费款输入a的值
Dim b As Double '定义b为实际消费'
If a <= 1000 Then '如果a大于或等于1000时实际消费不变'
b = a
ElseIf a > 1000 And a <= 2000 Then '如果大于1000小于2000则总消费打95折'
b = a * 0.95
ElseIf a > 2000 And a <= 3000 Then '如果大于2000小于3000则总消费打9折'
b = a * 0.9
ElseIf a > 3000 And a <= 5000 Then '如果大于3000小于5000则总消费打85折'
b = a * 0.85
Else
b = a * 0.8 '如果大于5000则总消费打8折'
End If
Console.WriteLine(b) '输出实际消费款'
Dim b As Double '定义b为实际消费'
If a <= 1000 Then '如果a大于或等于1000时实际消费不变'
b = a
ElseIf a > 1000 And a <= 2000 Then '如果大于1000小于2000则总消费打95折'
b = a * 0.95
ElseIf a > 2000 And a <= 3000 Then '如果大于2000小于3000则总消费打9折'
b = a * 0.9
ElseIf a > 3000 And a <= 5000 Then '如果大于3000小于5000则总消费打85折'
b = a * 0.85
Else
b = a * 0.8 '如果大于5000则总消费打8折'
End If
Console.WriteLine(b) '输出实际消费款'
王夏萌07网一- 帖子数 : 1
注册日期 : 08-03-21
您在这个论坛的权限：
您不能在这个论坛回复主题