购物..................

陈海水(07网4）周二三月 18, 2008 8:31 pm

Module Module1

Sub Main()
Dim x As Integer
x = Console.ReadLine
If x <= 1000 Then
Console.WriteLine("不打折")
ElseIf x > 1000 And x < 2000 Then
Console.WriteLine(x * 0.95)
ElseIf x > 2000 And x < 3000 Then
Console.WriteLine(x * 0.9)
ElseIf x > 3000 And x < 5000 Then
Console.WriteLine(x * 0.85)
ElseIf x > 5000 Then
Console.WriteLine(x * 0. Cool

End If

End Sub

End Module