vb中计算闰年的程序？
答案:1 悬赏:20
解决时间 2021-01-17 20:25
- 提问者网友：轮囘Li巡影
- 2021-01-17 13:04
vb中计算闰年的程序？
最佳答案
- 二级知识专家网友：杯酒困英雄
- 2021-01-17 14:34
Private Sub Command1_Click()
Dim x%, m%
x = Val(Text1.Text)
Select Case x Mod 4
Case Is <> 0
Print "x" & "不是闰年"
Case 0, x Mod 100 <> 0
Print "x" & "是闰年"
Case 0, x Mod 100 = 0, x Mod 400 <> 0
Print "x" & "不是闰年"
Case 0, x Mod 100 = 0, x Mod 400 = 0
Print "x" & "是闰年"
End Select
End Sub
Dim x%, m%
x = Val(Text1.Text)
Select Case x Mod 4
Case Is <> 0
Print "x" & "不是闰年"
Case 0, x Mod 100 <> 0
Print "x" & "是闰年"
Case 0, x Mod 100 = 0, x Mod 400 <> 0
Print "x" & "不是闰年"
Case 0, x Mod 100 = 0, x Mod 400 = 0
Print "x" & "是闰年"
End Select
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息