VB编程：IsNumeric判断闰年-48

运行效果：

运行代码：

方法一：

Private Sub Command1_Click()
    Dim myYear As Boolean
    If IsNumeric(Text1.Text) Then
        If Text1.Text Mod 400 = 0 Then
            myYear = True
        ElseIf Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0 Then
            myYear = True
        Else
            myYear = False
        End If
        If myYear = True Then
            Picture1.Print Text1.Text & "是闰年！"
        Else
            Picture1.Print Text1.Text & "是平年！"
        End If
    Else
        Picture1.Print Text1.Text & "不是数字"
    End If
End Sub

方法二：

Public Function LeapYear(ByVal yea As Integer) As Boolean     '闰年函数
    If (yea Mod 4) = 0 Then
        LeapYear = (yea Mod 100 > 0) Or (yea Mod 400 = 0)
    End If
End Function

学习总结：

通用的步骤，可以使用函数，方便以后调用。

VB编程：IsNumeric判断闰年-48相关推荐

1.4编程基础之逻辑表达式与条件分支 17 判断闰年
http://noi.openjudge.cn/ch0104/17/ /* 1.4编程基础之逻辑表达式与条件分支 17 判断闰年 http://noi.openjudge.cn/ch0104/17/ ...
C# 编程入门第三课类型转换，++，关系运算符，bool类型（布尔类型），逻辑运算符，判断闰年，结构
C# 编程入门第三课文章目录 C# 编程入门第三课 1. 类型转换 2. ++,-- 3. 关系运算符 4. bool 类型(布尔类型) 5. 逻辑运算符 6.判断闰年 7. 结构 1. 类型转换 ...
scratch判断闰年电子学会图形化编程scratch等级考试四级真题和答案解析2022年6月
目录 scratch判断闰年一.题目要求 1.准备工作 2.功能实现二.案例分析
应用vb编程_用VB编程来解决实际生活问题
今天,我们共同来学习用VB编程开发的实际应用软件--个人所得税快速计算程序. 个人所得税是调整征税机关与自然人之间在个人所得税的征纳与管理过程中所发生的社会关系的法律规范的总称. 目前最新的起征点为每 ...
如何用VB编程实现关闭WINDOWS窗口？
如何用VB编程实现关闭当前窗口的功能啊? 那位高手知道的帮帮忙啊? :我说的是关闭当前的WINDOWS窗口比如说我刚刚打开了一个名为ABC 的文件夹窗口我现在想通过用VB编程来实现关闭该 ...
C语言——用函数方法判断闰年
文章目录一.用函数方法判断闰年二.程序代码总结一.用函数方法判断闰年 1.判断输入整数是否是闰年的条件 (1):该整数能被4整除但不能被100整除. (2):该整数能被400整除. 2.编程思 ...
c语言九三字符串的字母个数,C语言判断闰年和平年
C语言判断闰年和平年 #includevoid fun(int year) { if((year%4==0&&year%100!=0)||(year%100==0&&y ...
判断闰年的Matlab/Python函数
目录写在前面什么是闰年判断闰年的Matlab函数判断闰年的Python函数参考写在前面在处理自然科学数据时,经常需要判断一个年份(这里说的年份都是公历)是否为闰年,本文首先简单介绍闰年的 ...
【电子学会】2022年06月图形化四级 -- 判断闰年
判断闰年闰年(Leap Year)是为了弥补因人为历法规定造成的年度天数与地球实际公转周期的时间差而设立的.没有补上时间差的年份为平年.平年的二月只有28天,而闰年的二月有29天.那么如何判断这一年 ...

VB编程：IsNumeric判断闰年-48

VB编程：IsNumeric判断闰年-48相关推荐

最新文章

热门文章