解决商品打折问题

Sub Main()
Dim a, b As Double '定义a,b,a为销售额,b为所打折扣后的价钱'
a = Console.ReadLine() '输入a的值'
If a < 1000 Then '如果a<1000时'
a = b '则不打折'
ElseIf a >= 1000 And a < 2000 Then '如过a大于等于1000而小于2000'
b = a * 0.95 '则销售额打九五折'
ElseIf a >= 2000 And a < 3000 Then '如果a大于等于2000而小于3000'
b = a * 0.9 '则销售额打九折'
ElseIf a >= 3000 And a < 5000 Then '如果a大于等于3000而小于5000'
b = a * 0.85 '则销售额打八五折'
ElseIf a >= 5000 Then '如果a大于等于5000'
b = a * 0.8 '则销售额打八折'
End If
Console.WriteLine(b) '输出结果'
End Sub