商品打折问题

张航宇——VB 周六三月 22, 2008 6:25 pm

Module Module1

Sub Main()
Dim a, b As Integer '声明两个整形变量
a = Console.ReadLine() '定义a为实际消费
If a < 1000 Then '利用if条件句定义折扣情况
b = a
ElseIf 1000 < a < 2000 Then
b = a * 0.95
ElseIf 2000 < a < 3000 Then
b = a * 0.9
ElseIf 3000 < a < 5000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.8
End If
Console.WriteLine(b) '输出打折消费额
Console.ReadLine()

End Sub

End Module