某商场为了促销，采用购物打折的优惠办法
2 posters
某商场为了促销，采用购物打折的优惠办法
李影阁（07网四） 周二 三月 18, 2008 7:54 pm
Module Module1
Sub Main()
Dim a, b As Integer
a = Console.ReadLine
If 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.85
ElseIf a > 5000 Then
b = a * 0.8
Else : b = a
End If
Console.WriteLine(b)
End Sub
End Module
Sub Main()
Dim a, b As Integer
a = Console.ReadLine
If 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.85
ElseIf a > 5000 Then
b = a * 0.8
Else : b = a
End If
Console.WriteLine(b)
End Sub
End Module
李影阁（07网四）- 帖子数 : 2
注册日期 : 08-03-18
商品打折
张永芹（07网4） 周二 三月 18, 2008 8:21 pm
Module Module1
Sub Main()
Dim a, b As Integer
a = Console.ReadLine
If 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.85
ElseIf a > 5000 Then
b = a * 0.8
Else : b = a
End If
Console.WriteLine(b)
End Sub
End Module
Sub Main()
Dim a, b As Integer
a = Console.ReadLine
If 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.85
ElseIf a > 5000 Then
b = a * 0.8
Else : b = a
End If
Console.WriteLine(b)
End Sub
End Module
张永芹（07网4）- 帖子数 : 1
注册日期 : 08-03-18
您在这个论坛的权限：
您不能在这个论坛回复主题