.版本 2 .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 起点坐标, 坐标 .局部变量 终点坐标, 坐标 起点坐标.x ＝ 到整数 (编辑框1.内容) 起点坐标.y ＝ 到整数 (编辑框2.内容) 终点坐标.x ＝ 到整数 (编辑框3.内容) 终点坐标.y ＝ 到整数 (编辑框4.内容) 标签5.标题 ＝ “结果:” ＋ 到文本 (求角度 (起点坐标, 终点坐标)) ＋ “度” .子程序 求角度, 整数型 .参数 起点坐标, 坐标 .参数 终点坐标, 坐标 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 角度, 整数型 .局部变量 左右, 整数型 .局部变量 上下, 整数型 x ＝ 取绝对值 (终点坐标.x － 起点坐标.x) y ＝ 取绝对值 (终点坐标.y － 起点坐标.y) ' x × x ＋ y × y 取两点距离的方法 角度 ＝ 求反余弦 (y ÷ 求平方根 (x × x ＋ y × y)) ÷ #pi × 180 左右 ＝ 终点坐标.x － 起点坐标.x 上下 ＝ 终点坐标.y － 起点坐标.y ' 判断 (左右 ＞ 0 且 上下 ＜ 0) ' 从上方到下方 忽略 0-90 .判断开始 (左右 ＞ 0 且 上下 ＞ 0) ' 从右方到下方 90-180 角度 ＝ 180 － 角度 .判断 (左右 ＜ 0 且 上下 ＞ 0) ' 从下方到左方 180-270 角度 ＝ 180 ＋ 角度 .判断 (左右 ＜ 0 且 上下 ＜ 0) ' 从左方到上方 270-360 回到原点 角度 ＝ 360 － 角度 .默认 .判断结束 返回 (角度) .子程序 求反余弦, 双精度小数型, , 网上找的 易语言没这命令 .参数 余弦值, 双精度小数型, , -1到1，否则返回0 .如果真 (余弦值 ＞ 1 或 余弦值 ＜ -1) 返回 (0) .如果真结束 返回 (#pi ÷ 2 － 求反正弦 (余弦值)) .子程序 求反正弦, 双精度小数型, , 返回弧度值 .参数 正弦值, 双精度小数型, , -1到1，否则返回0 .如果真 (正弦值 ＜ -1 或 正弦值 ＞ 1) 返回 (0) .如果真结束 返回 (求反正切 (正弦值 ÷ 求平方根 (1 － 正弦值 × 正弦值))) .子程序 _按钮3_被单击 置随机数种子 () 编辑框1.内容 ＝ 到文本 (取随机数 (1, 1000)) 编辑框2.内容 ＝ 到文本 (取随机数 (1, 1000)) 编辑框3.内容 ＝ 到文本 (取随机数 (1, 1000)) 编辑框4.内容 ＝ 到文本 (取随机数 (1, 1000)) .子程序 __启动窗口_创建完毕