.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 A, 整数型 .子程序 _按钮1_被单击 .局部变量 设备句柄, 整数型 .局部变量 画笔句柄, 整数型 标签1.重画 () 延迟 (100) 设备句柄 ＝ 取设备场景 (标签1.取窗口句柄 ()) 画笔句柄 ＝ 创建画笔 (1, 2, #黑色) 选入设备场景 (设备句柄, 画笔句柄) 本地画矩形 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容), 到数值 (编辑框3.内容), 到数值 (编辑框4.内容), 设备句柄) .子程序 本地画矩形 .参数 左上X, 整数型 .参数 左上Y, 整数型 .参数 矩形宽度, 整数型 .参数 矩形高度, 整数型 .参数 场景句柄, 整数型 .局部变量 前一个画笔位置, A ' 画直线 (场景句柄, 100, 100) 移动当前坐标点 (场景句柄, 左上X, 左上Y, 前一个画笔位置) 画直线 (场景句柄, 左上X ＋ 矩形宽度, 左上Y) ' 上边横线 画直线 (场景句柄, 左上X ＋ 矩形宽度, 左上Y ＋ 矩形高度) 画直线 (场景句柄, 左上X, 左上Y ＋ 矩形高度) 画直线 (场景句柄, 左上X, 左上Y) .子程序 __启动窗口_创建完毕