商品打折问题

Module Module1

Sub Main()
Dim a, b As Integer
b = 0
a = Console.ReadLine
If a < 1000 Then
Console.WriteLine(b)
Console.Read()
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
Console.WriteLine(b)
Console...