计算优惠价
计算优惠价
杨硕（网二） 周五 三月 21, 2008 11:44 am
Module Module1
Sub Main()
Dim a, b As Integer
b = 0
a = Console.ReadLine
If a < 1000 Then
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.8
ElseIf a >= 5000 Then
b = a * 0.8
Console.WriteLine(b)
Console.Read()
End If
End Sub
End Module
Sub Main()
Dim a, b As Integer
b = 0
a = Console.ReadLine
If a < 1000 Then
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.8
ElseIf a >= 5000 Then
b = a * 0.8
Console.WriteLine(b)
Console.Read()
End If
End Sub
End Module
杨硕（网二）- 帖子数 : 2
注册日期 : 08-03-21
您在这个论坛的权限：
您不能在这个论坛回复主题