利用VB可以快速判断某一年是否为闰年。判断闰年以下规则:1)能被400整除的年是闰年;2)能被100整除,但不能被400整除的年不是闰年;3)能被4整除,但不能被100整除的年是闰年;4)不能被4整除的不是闰年。
工具/原料
MicrosoftVisualBasic
方法/步骤
1、打开VisualBasic软件(VB软件),新建工程,在Form1窗体黑点区域双击。
2、清空后,复制下段语句,粘贴到工程1-Form1。PrivateSubForm_Click()Dimy%y=InputBox("y=")IfyMod400=0ThenPrint"是闰年"ElseIfyMod100=0ThenPrint"不是闰年"ElseIfyMod4<>0ThenPrint"不是闰年"ElsePrint"是闰年"EndIfEndIfEndIfEndSub
3、在Form1中单击,弹出工程1窗口,在输入栏中输入年份(如:2016),点击确定,在Form1中会显示出(是或不是闰年)。然后在Form1中单击,弹出工程1窗口即可反复。可以用例如“1990、1900年不是闰年,1980、2000年是闰年”检验语句正确性。保存出来即可。
方法/步骤2
1、此外还可以复制下段语句,粘贴到工程1-Form1。其他步骤如方法一。Pri箪滹埘麽vateSubForm_Click()Dimy%y=惺绅寨瞀InputBox("y=")IfyMod4<>0ThenPrint"不是闰年"ElseIfyMod100<>0ThenPrint"是闰年"ElseIfyMod400<>0ThenPrint"不是闰年"ElsePrint"是闰年"EndIfEndIfEndIfEndSub
方法/步骤3
1、此外还可以复制下段语句,粘贴到工程1-Form1。其他步骤如方法一。Pri箪滹埘麽vateSubForm_Click()Dimy%y=惺绅寨瞀InputBox("y=")IfyMod400=0ThenPrint"是闰年"ElseIfyMod100=0ThenPrint"不是闰年"ElseIfyMod4=0ThenPrint"是闰年"ElsePrint"不是闰年"EndIfEndIfEndIfEndSub