商场打折，猜字，闰年

张聪会—网四周二三月 18, 2008 8:33 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("够物金额不够优惠条件")
End If

End Sub

End Module

Module Module1

Sub Main()
Const a As Integer = 123
Const b As Integer = 456
Const c As Integer = 789
Dim d As Integer
d = Console.ReadLine()
If d = a Then
Console.WriteLine("正确")
d = Console.ReadLine()
If d = b Then
Console.WriteLine("正确")
d = Console.ReadLine()
If d = c Then
Console.WriteLine("正确")
Else
Console.WriteLine("错误")
End If
Else
Console.WriteLine("错误")
End If
Else
Console.WriteLine("错误")
End If
End Sub
End Module

Module Module1

Sub Main()
Dim a As Integer
a = Console.ReadLine()
If a Mod 4 = 0 And a Mod 100 <> 0 Then
Console.WriteLine("是闰年")
Else
Console.WriteLine("不是闰年")
End If
End Sub

End Module