高考问答高荣杰演唱的皮影:谁能用VB帮我把这个编出来啊（输出2003-2050年间所有的闰年）
来源：百度文库 编辑：高考问答 时间：2024/05/06 19:08:39
谁能用VB帮我把这个编出来啊（输出2003-2050年间所有的闰年）
楼上还没有搞清楚怎样判断闰年。
Private Sub Command1_Click()
For i = 2003 To 2050
If run(i) = True Then Print i
Next
End Sub
Function run(ByVal y As Integer) As Boolean
If y Mod 4 = 0 Then
If y Mod 100 = 0 Then
If y Mod 400 = 0 Then
run = True
Else
run = False
End If
Else
run = True
End If
Else
run = False
End If
End Function
gwbasic 核心代码片段 稍改就可以在VB里运行
for i=2003 to 2050 //循环
if ((i-2000) mod 4==0) then //4年一闰这 一句是核心
print i ; //输出年份
next i
//我手头没有VB软件只能用BASIC语言描述一下