.程序集 窗口程序集1 .子程序 _按钮1_被单击 选择夹1.现行子夹 = 选择夹1.现行子夹 + 1页数()禁止事件 () .子程序 _按钮2_被单击 选择夹1.现行子夹 = 选择夹1.现行子夹 - 1 禁止事件 ()页数() .子程序 禁止事件 .如果 (选择夹1.现行子夹 = 0) 按钮2.禁止 =真 .否则按钮2.禁止 =假 .如果结束 .如果 (选择夹1.现行子夹 = 选择夹1.取子夹数目 () - 1) 按钮1.禁止 =真 .否则按钮1.禁止 =假 .如果结束 .子程序 __启动窗口_创建完毕 禁止事件 ()页数() .子程序 页数 .局部变量 阿萨德阿斯大苏打, 整数型标签1.标题 = “第” + 到文本 (选择夹1.现行子夹 + 1) + “页”