搜索
首页 生活 生活常识

求2000年至2100年之间所有的闰年,在列表框内显示,并统计有多少个闰年、求VB程序

全部回答

2019-02-04

0 0

2000年到2100年共25个闰年,其中2000年是闰年,2004、2008、2012等能整除以4的年份都是闰年,但2100不是闰年。

2019-02-04

0 0

    控件你自己放下,以下是程序参考 Private Sub Command1_Click() ct = 0 List1。Clear For y = 2000 To 2100 ? If ((y Mod 4 = 0) And (y Mod 100 <> 0)) Or (y Mod 400 = 0) Then ? ? ?List1。
    AddItem (Str(y)) ? ? ?ct = ct 1 ? End If Next Print "共有"; ct; "个闰年" End Sub。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

生活
生活常识
美食/烹饪
起名
服装/首饰
美容/塑身
购物
购车养车
家电
礼节礼仪
家居装修
保健养生
交通出行
婚嫁
购房置业
育儿
生活常识
生活常识
举报
举报原因(必选):
取消确定举报