现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是:年份数能被4整除但不能被100整除,或者能被400整除。如图所示,要求程序运行后单击按钮,在列表框中显示闰年年份,并将统计次数显示在Label1。
(1)代码“PrivateSubCmd1_Click()”中的Cmd1_Click()是_________。
(单选,填字母:
(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),此句代码应该加在________(填字母)位置。