.NET自由天空
Would you like to react to this message? Create an account in a few clicks or log in to continue.

商品打折问题

向下

商品打折问题 Empty 商品打折问题

帖子  张航宇——VB 周六 三月 22, 2008 6:25 pm

Module Module1

Sub Main()
Dim a, b As Integer '声明两个整形变量
a = Console.ReadLine() '定义a为实际消费
If a < 1000 Then '利用if条件句定义折扣情况
b = a
ElseIf 1000 < a < 2000 Then
b = a * 0.95
ElseIf 2000 < a < 3000 Then
b = a * 0.9
ElseIf 3000 < a < 5000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.8
End If
Console.WriteLine(b) '输出打折消费额
Console.ReadLine()




End Sub

End Module

张航宇——VB

帖子数 : 3
注册日期 : 08-03-22

返回页首 向下

返回页首


 
您在这个论坛的权限:
不能在这个论坛回复主题