自己做的商店问题,比较复杂......

Module Module1

Sub Main()
Dim a, b As Int16
a = Console.ReadLine()
If a > 1000 Then
If a > 2000 Then
If a > 3000 Then
If a > 5000 Then
a = a * 0.8
Console.WriteLine(a)
Else : a = a * 0.85
Console.WriteLine(a)

End If
Else : a = a * 0.9
Console.WriteLine(a)
End If
Else : a = a * 0.95
Console.WriteLine(a)
End If
Else : Console.WriteLine("没有折扣~")
End If













End Sub

End Module