.版本 2 .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 局部_总宽, 整数型 .局部变量 局部_总高, 整数型 局部_总宽 ＝ 外形框_框架.宽度 局部_总高 ＝ 外形框_框架.高度 外形框_块1.移动 (0, (局部_总高 － 外形框_块1.高度) ÷ 2, , ) 外形框_块2.移动 ((局部_总宽 － 外形框_块2.宽度) ÷ 2, (局部_总高 － 外形框_块2.高度) ÷ 2, , ) 外形框_块3.移动 (局部_总宽 － 外形框_块3.宽度, (局部_总高 － 外形框_块3.高度) ÷ 2, , ) .子程序 _按钮2_被单击 .局部变量 局部_总宽, 整数型 .局部变量 局部_总高, 整数型 .局部变量 局部_块总宽, 整数型 .局部变量 局部_块总高, 整数型 .局部变量 局部_块间隔, 整数型 局部_总宽 ＝ 外形框_框架.宽度 局部_总高 ＝ 外形框_框架.高度 局部_块总宽 ＝ 外形框_块1.宽度 ＋ 外形框_块2.宽度 ＋ 外形框_块3.宽度 局部_块总高 ＝ 外形框_块1.高度 ＋ 外形框_块2.高度 ＋ 外形框_块3.高度 局部_块间隔 ＝ (局部_总宽 － 局部_块总宽) ÷ 4 外形框_块1.移动 (局部_块间隔, (局部_总高 － 外形框_块1.高度) ÷ 2, , ) 外形框_块2.移动 (局部_块间隔 ＋ 外形框_块1.宽度 ＋ 局部_块间隔, (局部_总高 － 外形框_块2.高度) ÷ 2, , ) 外形框_块3.移动 (局部_块间隔 ＋ 外形框_块1.宽度 ＋ 局部_块间隔 ＋ 外形框_块2.宽度 ＋ 局部_块间隔, (局部_总高 － 外形框_块3.高度) ÷ 2, , ) .子程序 _按钮3_被单击 .局部变量 局部_总宽, 整数型 .局部变量 局部_总高, 整数型 局部_总宽 ＝ 外形框_框架.宽度 局部_总高 ＝ 外形框_框架.高度 外形框_块1.移动 ((局部_总宽 － 外形框_块1.宽度) ÷ 2, (局部_总高 － 外形框_块1.高度) ÷ 2, , ) 外形框_块2.移动 ((局部_总宽 － 外形框_块2.宽度) ÷ 2, (局部_总高 － 外形框_块2.高度) ÷ 2, , ) 外形框_块3.移动 ((局部_总宽 － 外形框_块3.宽度) ÷ 2, (局部_总高 － 外形框_块3.高度) ÷ 2, , ) .子程序 _按钮4_被单击 .局部变量 局部_总宽, 整数型 .局部变量 局部_总高, 整数型 .局部变量 局部_块总宽, 整数型 .局部变量 局部_块总高, 整数型 .局部变量 局部_块间隔, 整数型 局部_总宽 ＝ 外形框_框架.宽度 局部_总高 ＝ 外形框_框架.高度 局部_块总宽 ＝ 外形框_块1.宽度 ＋ 外形框_块2.宽度 ＋ 外形框_块3.宽度 局部_块总高 ＝ 外形框_块1.高度 ＋ 外形框_块2.高度 ＋ 外形框_块3.高度 局部_块间隔 ＝ (局部_总宽 － 局部_块总宽) ÷ 2 外形框_块1.移动 (局部_块间隔, (局部_总高 － 外形框_块1.高度) ÷ 2, , ) 外形框_块2.移动 (局部_块间隔 ＋ 外形框_块1.宽度, (局部_总高 － 外形框_块2.高度) ÷ 2, , ) 外形框_块3.移动 (局部_块间隔 ＋ 外形框_块1.宽度 ＋ 外形框_块2.宽度, (局部_总高 － 外形框_块3.高度) ÷ 2, , ) .子程序 __启动窗口_创建完毕