利用 Auhorware 计算图标判断是否闰年.docVIP

利用 Authorware 计算图标判断是否闰年关于闰年，有人言简意赅指出，“四年一闰，百年不闰，四百年再闰”，并发布公历闰年的简单计算方法： 　　设年份 year　　if? (year能被4整除 and 不能被100整除) or year能被400整除　　then 该年为闰年　　else 该年为平年 　　详见/view/29649.htm 　　晚上尝试了一种方法，不知可否。 　　1，新建一个项目文件，设置文件属性，然后以“闰年平年”为文件名存盘。 　　 　　2，在流程线上添加“设置窗口”计算图标，双击打开它的计算窗口，输入“ResizeWindow(400,300)”，然后关闭计算窗口。 　　 　　3，添加“输入年份”交互图标，在其属性面板“交互作用”选项卡中选择“不擦除”，“显示”选项卡中选中“更新显示变量”复选框。 　　 　　4，双击打开交互图标（此前演示课件，然后关闭演示窗口），输入提示信息，并修改文本属性；两个新建变量的初始值分别为“0”和“闰年”（公元0年是闰年）。 　　 　　5，在交互图标右侧添加一个计算图标，选择“文本输入”交互类型，该计算图标以通配符号“*”命名。单击“文本输入”标签，在属性面板上“响应”选项卡中选择“退出交互”分支。 　　 　　6，双击打开交互图标，调整文本输入虚线框的位置和大小。双击虚线框，“版面布局”选项卡中的“字符限制”框中输入“4”，即最多输入4位数字。“交互作用”选项卡中清除“退出时擦除输入的内容”复选框。“文本”选项卡中修改文本属性。 　　 　　7，双击打开“*”计算图标的计算窗口，输入以下代码： 　　number := NumEntry　　if ((number/4) = INT(number/4) (number/100) INT(number/100)) | (number/400) = INT(number/400) then verdict:=闰年　　else verdict:=平年 　　说明：第一行代码，变量number记录键盘输入的数据；第二行代码，判断闰年。INT是取整数函数，＝判断相等，判断不等，即and，|即or。 　　 　　8，添加一个等待图标，修改属性。 　　 　　9，添加一个计算图标，在计算窗口中输入函数“Restart()”，用于重新计算是否闰年。 　　 　　10，打包之后演示效果如图所示。