第一道题答案

Module Module1

Sub Main()
Dim a, b As Integer
b = 0
a = Console.ReadLine
If a < 1000 Then
Console.WriteLine(b)
Console.Read()
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
Console.WriteLine(b)
Console.Read()
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
Console.WriteLine(b)
Console.Read()
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.8
Console.WriteLine(b)
Console.Read()
ElseIf a >= 5000 Then
b = a * 0.8
Console.WriteLine(b)
Console.Read()
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("是闰年")
ElseIf a Mod 400 = 0 And a Mod 100 = 0 Then
Console.WriteLine("是闰年")



Else
Console.WriteLine("不是闰年")