vb判断是否闰年.doc

文档介绍：1、给定年份，以下程序用来判断该年能否闰年，请增补完该程序。提示：
闰年的条件是年号能够被 4 整除但不可以被 100 整除，或许能被 400 整除。
Private Sub Command6_Click()
1、给定年份，以下程序用来判断该年能否闰年，请增补完该程序。提示：
闰年的条件是年号能够被 4 整除但不可以被 100 整除，或许能被 400 整除。
Private Sub Command6_Click()
Dim y As Integer
y = InputBox(＂请输入年号＂ )
If (y Mod 4 = 0y Mod 100<>0)
or (y Mod 400 = 0)
Then
Print＂是闰年＂
Else
Print＂是一般年份＂
End If
End Sub
2、假定我国现有人口为 12 亿，设年增加率为 1%，编写程序，计算多少年后我国人口达到或超出 15 亿。
Private Sub Form_Click()
Dim P As Double, R As Single, N As Integer
R =
N = 0
Do While P <= 1500000000
P = P + P * R
Loop
1 / 2
Print N; "年后，人口为 "; P
End Sub