商场打折.....

张文强07网04 周二三月 18, 2008 8:28 pm

Module Module1

Sub Main()
Dim a As Integer
a = Console.ReadLine

If a < 1000 Then
Console.WriteLine("不打折")

ElseIf a >= 1000 And a < 2000 Then
Console.WriteLine(a * 0.95)

ElseIf a >= 2000 And a < 3000 Then
Console.WriteLine(a * 0.9)
ElseIf a >= 3000 And a < 5000 Then
Console.WriteLine(a * 0.85)

ElseIf a >= 5000 Then
Console.WriteLine(a * 0. Cool

End If
End Sub

End Module1