VB程序改错40题含答案(8)

Next c Next b Next a End Sub

5、判断某年是否闰年

Private Sub Command1_Click() Dim N As Integer

N = InputBox(\输入年号：\判断闰年\ If N / 100 = N \\ 100 Then

If N Mod 400 = 0 Then Print \闰年\不是闰年\ Else

If N Mod 4 = 0 Then Print \闰年\不是闰年\ End If End Sub