商品优惠问题
商品优惠问题
金元生（07网4） 周二 三月 18, 2008 8:15 pm
Module Module1
Sub Main()
Dim a, b As Integer
a = Console.ReadLine()
If a > 1000 Then
If a < 2000 Then
b = a * 0.95
End If
If a < 3000 Then
b = a * 0.9
End If
If a < 4000 Then
b = a * 0.85
Else
b = a * 0.8
End If
Console.WriteLine(b)
Else
Console.WriteLine("您的够物金额不够优惠条件" & a)
End If
End Sub
End Module
Sub Main()
Dim a, b As Integer
a = Console.ReadLine()
If a > 1000 Then
If a < 2000 Then
b = a * 0.95
End If
If a < 3000 Then
b = a * 0.9
End If
If a < 4000 Then
b = a * 0.85
Else
b = a * 0.8
End If
Console.WriteLine(b)
Else
Console.WriteLine("您的够物金额不够优惠条件" & a)
End If
End Sub
End Module
金元生（07网4）- 帖子数 : 3
注册日期 : 08-03-18
年龄 : 37
您在这个论坛的权限：
您不能在这个论坛回复主题