Next c Next b Next a End Sub
5、判断某年是否闰年
Private Sub Command1_Click() Dim N As Integer
N = InputBox(\输入年号:\判断闰年\ If N / 100 = N \\ 100 Then
If N Mod 400 = 0 Then Print \闰年\不是闰年\ Else
If N Mod 4 = 0 Then Print \闰年\不是闰年\ End If End Sub
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库VB程序改错40题含答案(8)在线全文阅读。
相关推荐: