vb判断是否闰年.doc1、给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：
闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。
PrivateSubCommand6_Click( )
DimyAsIn
1、给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：
闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。
PrivateSubCommand6_Click( )
DimyAsInteger
y=InputBox(＂请输入年号＂)
If(yMod4=0yMod100<>0)
or(yMod400=0)
Then
Print＂是闰年＂
Else
Print＂是普通年份＂
EndIf
EndSub
2、假设我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后我国人口达到或超过15亿。
PrivateSubForm_Click( )
DimPAsDouble,RAsSingle,NAsInteger
R=
N=0
DoWhileP<=1500000000
P=P+P*R
Loop
1/2
PrintN;"年后，人口为";P
EndSub
2/2
内容总结
（1）1、给定年份，下列程序用来判断该年是否闰年，请补充完该程序
（2）提示：
闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除
vb判断是否闰年 来自淘豆网m.daumloan.com转载请标明出处.
