闫海霞网一 折扣作业

Sub Main()
Dim a, b As Int32 '定义了两个变量a,b‘
a = Console.ReadLine '输入了a的值’
If a < 1000 Then '如果a<1000则实际值不变’
b = a
ElseIf a < 2000 Then '如果 1000>a<2000则打9.5折’
b = 0.95 * a
ElseIf a < 3000 Then '如果a<3000则打0.9折‘
b = 0.9 * a
ElseIf a < 5000 Then '如果3000<a<5000则打0.85折‘
b = 0.85 * a
Else
b = 0.8 * a '否则打0.8折
End If
Console.WriteLine(b) '输出值‘
End Sub