Question

求PowerBuilder程序代码代码

要求利用PowerScript语言编写程序，判断一个年份是否为闰年，要求能上机直接实现...

若以下回答无法解决问题，邀请你更新回答

Answer 1

任意输入一个年份，判断它是否为闰年。判断闰年的条件是：能被4整除但不能被100整除的是闰年（如1992）；能被4整除又能被400整除的也是闰年（如2000）；其它为非闰年（如1900、1998、2002）。
我们建立一个文件夹“闰年”。在当前打开的工作空间中，创建一个对象库leapyear.pbl、一个目标leapyear.pbt和一个应用程序对象leapyear。
在主工具栏上单击New按钮，在弹出New对话框中选择PB Object选项卡,在其中选择Window，单击OK按钮，打开窗口画板。
在窗口画板中，设计一个窗口对象，命名为w_main，窗口的标题设置为“判断闰年”，窗口类型为“main!”。窗口上放置一个单行编辑框sle_1和一个命令按钮。
命令按钮的“text”属性设置为“判断”，选中其“Default”复选框，对它的“clicked”属性编写如下代码：
integer year
year=integer(sle_1.text
if mod(year,4)=0 and mod(year,100)<>0 or mod(year,400)=0
then
MessageBox("测试结果", sle_1.text+"是闰年。")
else
MessageBox("测试结果", sle_1.text+"不是闰年。")
end if
这段代码是整个应用程序的核心，它首先从单行编辑框sle_1中取出用户输入的年份，用integer()函数将其转换为整型数据，然后用If语句判断该年份是否满足闰年的条件，若满足输出“是闰年”，否则输出“不是闰年”。输出用的是MessageBox()函数，它会弹出一个对话框，标题为“测试结果”，第二个参数是显示的信息。
最后，在应用程序对象xdx的“open”事件中编写一行代码：open(w_main)
用以打开窗口w_main。