VB编写使用IF判断是否闰年

思路：

1. 如果年份（数字）可以被400整除则是闰年
2. 如果年份可以被4整除但不能被100整除则是闰年

流程：
定义Main子程序 做为程序的入口

Sub Main()

创建输出提示用户输入内容

Coneole.WriteLine("请输入年份")

定义一个变量当作年份的变量并把用户输入的年份值赋值给'yaer'变量

Dim year As Integer=Console.ReadLine()

通过检查'yaer'是否符合条件并将结果打印到控制台

If (year Mod 4 = 0 And year Mod 100 <> 0) OrElse (year Mod 400 = 0) Then
    Console.WriteLine("{0} 是闰年", year)
Else
    Console.WriteLine("{0} 是平年", year)
End If

完整流程

Module Module1

    Sub Main()
        Dim year As Integer
        Console.Write("请输入一个年份：")
        year = Integer.Parse(Console.ReadLine())

        ' 判断是否为闰年
        If (year Mod 4 = 0 And year Mod 100 <> 0) OrElse (year Mod 400 = 0) Then
            Console.WriteLine("{0} 是闰年", year)
        Else
            Console.WriteLine("{0} 是平年", year)
        End If

        Console.ReadLine() ' 等待用户输入，以便查看结果
    End Sub

End Module

关于逻辑运算符用到的内容

逻辑运算符	含义
And	同时满足True 则结果为True
Mod	被除数除以除数所得的余数
OrElse	当前面一个条件已经能决定最终结果，就不会再判断第二个条件