关于沉迷游戏的作文:刚学习vb，请帮一下忙！！谢谢

Dim FirstVal as Integer
Dim SecondVal As Integer
FirstVal = 2003
SecondVal = 2050
For i = FirstVal To SecondVal
If (i Mod 4 = 0) And (i Mod 100 <> 0) Or (i Mod 400 = 0) Then
MsgBox( i & "：是闰年！")
End If
Next
另外，这两个变量的值，可以通过获得输入的变量进行动态计算

'自定义年:
myYear=2006

if (myYear mod 4 =0 and myYear mod 100=0) or myYear mod 400=0 then

msgbox "是润年"

else

msgbox "不是润年"

end if

Private Ys As Integer
Private Sub Command1_Click()
For Ys = 2000 To 2050
If IsLeapYear(Ys) = True Then
Print Ys
End If
Next
End Sub

Private Function IsLeapYear(Yr As Integer) As Boolean
IsLeapYear = False
If Yr Mod 4 = 0 Then
IsLeapYear = True
If Yr Mod 100 = 0 Then
If (Yr Mod 400) Then IsLeapYear = False
End If
End If
End Function

Private Sub Command1_Click()
Dim year As Integer
year = 2003
Do
If (year Mod 4 = 0 )Or (year Mod 400 = 0 )Then
Print year; "是闰年"
year = year + 1
Else
year = year + 1
End If
Loop Until year > 2050
End Sub

全部粘贴，绝对能运行~