Question

求Visual Basic 代码?

用VB怎么制作 "判断闰年"
详细代码!

Answer 1

Private Sub Form_click()
Dim n As Integer
n = InputBox("请输入一个年份", "输入框")
If (n Mod 4 = 0 And n Mod 100 <> 0) Or n Mod 400 = 0 Then
Print n; "年是闰年"
Else
Print n; "年是平年"
End If
End Sub

Answer 2

if (year%4=0 And year%100<>0) or (year%100=0 And year%400<>0) then
runnnian = true
else
runnian = false
end if