Question

怎样用VB编一个程序，要求输入一个年份，判断出是否为闰年？

Answer 1

问：怎样用VB编一个程序，要求输入一个年份，判断出是否为闰年？

答：1.打开Visual Basic软件(VB软件),新建工程,在Form1窗体黑点区域双击进入form1的编辑区域:

答：2.清空后,就可以编写代码了。这里在输入栏中输入年份,输入之后点击确定,就会在Form1中会显示出是否闰年。关于闰年的判断只要满足能被4整除不能被100整除或者被4和400整除就是达成条件,最后保存即可:

答：3.保存后运行查询,在form1中输入一个年份,点击确定即可输出是否为闰年:

答：快乐在昨天，开心在今天，幸福在明天，逍遥每一天；财富周一，好运周二，桃花运周三，贵人周四，收获周五，游玩周六，放假周日，祝你一周七天好心情！如果我的解答对您有所帮助，还请给个赞(在左下角进行评价哦)！！！

问：如何用VB设计一个程序，分别输入年份月份，判断是否为闰年以及该月份的天数，并输出相关信息

答：新建一个窗体,画2个文本框 Text1和Text2,代码放在窗体里面...

答：Option ExplicitDim arrPYPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 2Text2.Text = ""Text2.Locked = TruearrPY = Array("ling", "yi", "er", "san", "si", "wu", "liu", "qi", "ba", "jiu", "shi")End SubPrivate Sub Text1_Change()'只有一位数字If Len(Text1) = 1 Then'校验是否为数字If IsNumeric(Text1) = False Then Exit SubText2.Text = arrPY(Text1)Else'两个数字'校验数据是否正确If IsNumeric(Left$(Text1, 1)) = False Or IsNumeric(Right$(Text1, 1)) = False Then Exit Sub'10就是shi 不能是 yi shiIf Text1 = 10 ThenText2.Text = arrPY(10)'以0结尾ElseIf Right$(Text1, 1) = 0 ThenText2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10)'其它情况 x shi yElse

答：Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10) & " " & arrPY(Right$(Text1, 1))End IfEnd IfEnd Sub

答：'窗体放一个text1用于输入年份，一个Command1

答：PrivateSubCommand1_Click()dima%a=val(text1.text)if(aMod4=0AndaMod100>0)OraMod400=0thenprint"是闰年"elseprint"不是闰年"endifEndSub

答：快乐在昨天，开心在今天，幸福在明天，逍遥每一天；财富周一，好运周二，桃花运周三，贵人周四，收获周五，游玩周六，放假周日，祝你一周七天好心情！如果我的解答对您有所帮助，还请给个赞(在左下角进行评价哦)！！！