|
|
本帖最后由 风158 于 2026-5-30 16:32 编辑
编了一个计算年积日的e4a程序，编译通过后在手机上运行却闪退。不知道什么原因。附上程序代码：
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
结束程序()
结束 如果
结束 事件
事件 按钮1.被单击()
变量 n 为 整数型 'day of year(doy)
变量 yy 为 整数型
变量 mm 为 整数型
变量 dd 为 整数型
变量 i 为 整数型
变量 dom 为 整数型(12)
yy=到整数(编辑框1.内容)
mm=到整数(编辑框2.内容)
dd=到整数(编辑框3.内容)
dom(1)=0
dom(2)=31
dom(3)=28
dom(4)=31
dom(5)=30
dom(6)=31
dom(7)=30
dom(8)=31
dom(9)=31
dom(10)=30
dom(11)=31
dom(12)=30
n=0
变量循环首 i = 1 至 mm
n=n+dom(i)
变量循环尾
n=n+dd
如果 (((yy % 4)=0) & ((yy % 100)<>0) & ((yy % 400)=0) & (mm>2))
则
n=n+1 '闰年>2月,n+1
结束 如果
标签6.标题 = "年积日=" & 整数到文本(n) & "天"
结束 事件
事件 按钮2.被单击()
结束程序()
结束 事件
|
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
