题目

现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。 （1） 代码“PrivateSubCmd1_Click()”中的Cmd1_Click()是。（单选，填字母：A .对象名；B .事件；C .事件处理过程；D .方法） （2） 下面的VB程序可用来实现上述功能，请在划线处填写合适的代码。 Private Sub Cmd1_Click（） Dim c As Integer, year As Integer c=0 If Then     c=c+1 EndIf Next year Label1.Caption="闰年共有"+Str(c)+"次" EndSub （3） 上述代码段中缺少了List1.AddItemStr(year)，此句代码应该加在（填字母）位置。 答案： 【1】C 【1】For year=2018 to 2100【2】year mod 4=0 And year Mod 100<>0 Or year Mod 400=0 【1】B

查看本题答案和解析