神马品牌网动漫肌肉头像:谁能告诉我编程知识？
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 03:34:52
我自己编了一个小程序，用来判断某一年是闰年还是平年，
具体是：有一个textbox，在里面输入年份后，单击Commandbutton 后，会在另一个textbox显示 这一年是闰年/这一年是平年
详细一些，把编码写出来。
具体是：有一个textbox，在里面输入年份后，单击Commandbutton 后，会在另一个textbox显示 这一年是闰年/这一年是平年
详细一些，把编码写出来。
用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