使用IsDate函数判断闰年的方法

(1)IsNumeric()函数

格式:IsNumeric(x)

参数:参数x是常量、变量或表达式。

功能:判断参数是否为数值型,返回值是True或False。

(2)IsEmpty()函数

格式:IsEmpty(x)

参数:参数x是变量。

功能:判断参数x是否已被初始化,返回值是True或False。

(3)IsDate()函数

格式:IsDate(x)

参数:参数x是日期型常量、变量或表达式。

功能:判断参数是否为日期型,返回值是True或False。

【案例3-1】把数学表达式写成VB表达式。

【案例要求】

【案例操作】

x2+2xy+y2写成VB表达式:x^2+2*x*y+y^2。

说明:乘方、乘法只能用^、*。

说明:除法只能用“/”,不能写成分式。

说明:sin、cos是内部函数,参数要加括号。

说明:用sqr计算平方根,乘号“*”不能省略。

【案例3-2】计算圆的周长和面积。

【案例要求】

制作一个如图3-1所示的窗体,用户可以先输入圆的半径,然后点击“计算”按钮,计算出相应的周长和面积显示在对应的文本框内。

图3-1　计算圆的周长和面积(www.xing528.com)

【案例操作】

(1)界面设置

·新建窗体,设置其Caption属性为“计算圆面积周长”,其他属性默认。

·按序新建三个标签Label1、Label2、Label3到合适位置,分别设置相应的Caption显示属性值,Autosize属性设为True,并设置其Font字体属性,其他属性默认。

·按序新建三个文本框Text1、Text2、Text3到合适位置,将其Text属性都置空,修改其Font属性,与标签Label匹配,其他属性默认。

·新建一个命令按钮Command1到指定位置,修改其Caption属性值为“计算”,其他属性默认。

(2)代码编写

Command1的Click事件代码如下。

(3)运行程序

按F5键运行窗体。

【案例3-3】闰年判断。

【案例要求】

在如图3-2所示的窗体中输入年份,单击“判断闰年”按钮后窗体中显示输出该年是闰年或不是闰年的判断结果。(提示:闰年是年份能被4整除但不能被100整除或者年份能被400整除的年份。)

图3-2　闰年判断运行图

【案例操作】

(1)界面设置

·新建窗体,设置其Caption属性为“闰年判断”,其他属性默认。

·依次创建两个标签对象Label1和Label2,Label1的Caption属性设置为“输入年份:”,并设置Font属性,其他属性默认,拖放到合适位置;Label2的Visible属性设置为False,其他属性默认,放到窗体下面位置;两个标签的Autosize属性都设为True。

·创建一个文本框Text1放到合适位置,设置其Text属性为空,修改Font属性与标签的一致,其他属性默认。

·创建一个命令按钮,设置其Caption属性为“判断闰年”、设置其Font属性与标签的一致,其他属性默认。

(2)代码编写

“判断闰年”按钮的Click事件代码:

(3)运行程序

按F5键运行窗体或单击工具栏上的运行按钮。

输入具体年份,如2000、2018、2019、2020等,判断是否为闰年。验证程序功能的正确性。