某商场商品打折
某商场商品打折
王艳明-07网4 周二 三月 18, 2008 8:26 pm
Module Module1
Sub Main()
Dim x As Int16 = Console.ReadLine
If x < 1000 Then
Console.WriteLine(x * 1)
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.
End If
End Sub
End Module
Sub Main()
Dim x As Int16 = Console.ReadLine
If x < 1000 Then
Console.WriteLine(x * 1)
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.
End If
End Sub
End Module
王艳明-07网4- 帖子数 : 3
注册日期 : 08-03-18
您在这个论坛的权限：
您不能在这个论坛回复主题