Private Sub Command1Click()
Dim Year As Integer
①
If (Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 400 = 0) Then
Text2.Text = "是闰年"
Else
Text2.Text = "不是闰年"
End If
End Sub
为实现上述功能, 程序①加框处应填写为
微信扫码预览、分享更方便