商品购物打折问题
商品购物打折问题
苗媛媛-07网4 周二 三月 18, 2008 8:16 pm
Module Module1
Sub Main()
Dim a, b As Integer
a = Console.ReadLine
b = Console.ReadLine
If a >= 1000 Then b = 1000 * 0.95
If a >= 2000 Then b = 2000 * 0.9
If a >= 3000 Then b = 3000 * 0.85
If a >= 4000 Then b = 5000 * 0.8
endif
Console.WriteLine(b)
endsub()
End Module
Sub Main()
Dim a, b As Integer
a = Console.ReadLine
b = Console.ReadLine
If a >= 1000 Then b = 1000 * 0.95
If a >= 2000 Then b = 2000 * 0.9
If a >= 3000 Then b = 3000 * 0.85
If a >= 4000 Then b = 5000 * 0.8
endif
Console.WriteLine(b)
endsub()
End Module
苗媛媛-07网4- 帖子数 : 3
注册日期 : 08-03-18
您在这个论坛的权限：
您不能在这个论坛回复主题