打折问题作业

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