谁能告诉我编程知识？

用Visual Basic(VB)是这样的

例如,Textbox的控件名分别为Text1和Text2，Commandbutton为Command1
在Text1输入年份，Text2输出结果。

代码：
Private Sub Command1_Click()
If Val(Text1.Text) MOD 100 = 0 Then '如果是整百结尾的年份（即可以被100整除余数为0）
If Val(Text1.Text) MOD 400 = 0 Then
Text2.Text="该年份为闰年。"'那么要被400整除，否则不是闰年。
Else
Text2.Text="该年份为平年。"
End If
Else '如果不是整百结尾的年份。
If Val(Text1.Text) MOD 4 = 0 Then'是否能被4整除
Text2.Text="该年份为闰年。"
Else '如果不能被整除
Text2.Text="该年份为平年。"
End If
End If
End Sub