用VB编一个程序，要求输入一个年份，判断出是否为闰年
答案:3 悬赏:60 手机版
解决时间 2021-04-25 04:15
- 提问者网友：遁入空寂
- 2021-04-24 07:29
闰年的条件是能被4整除，但不能被100整除；或能被4和400整除的
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2021-04-24 08:00
Private Sub Command1_Click()
If Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0 Or Text1.Text Mod 4 = 0 And Text1.Text Mod 400 = 0 Then
MsgBox Text1.Text & "是闰年"
Else
MsgBox Text1.Text & "不是闰年"
End If
End Sub
If Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0 Or Text1.Text Mod 4 = 0 And Text1.Text Mod 400 = 0 Then
MsgBox Text1.Text & "是闰年"
Else
MsgBox Text1.Text & "不是闰年"
End If
End Sub
全部回答
- 1楼网友：神的生死簿
- 2021-04-24 09:57
Private Sub Command1_Click()
dim a%
text1=a If a Mod 4 = 0 And a Mod 100 <> 0 Then MsgBox a & "是闰年" Else MsgBox a & "不是闰年" End If End Sub
- 2楼网友：梦中风几里
- 2021-04-24 08:59
Dim yea As Integer Dim LeapYear As Boolean yea = InputBox("请输入年号：") If ((yea Mod 4) = 0) Then LeapYear = ((yea Mod 100) > 0) Or ((yea Mod 400) = 0) End If If LeapYear Then MsgBox yea & "年是闰年。" Else MsgBox yea & "不是闰年"
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯