pan shot:刚学习vb,请帮一下忙!!谢谢
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/05 11:50:30
请帮我一下,谢谢!!
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
全部粘贴,绝对能运行~