如题所述
.版本 2
.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 yy, 整数型
.局部变量 xx, 整数型
.局部变量 k, 双精度小数型
.局部变量 ax, 整数型
.局部变量 ay, 整数型
.局部变量 v, 整数型
画板1.清除 (, , , )
x = 取随机数 (5, 画板1.宽度)
y = 取随机数 (5, 画板1.高度)
xx = 取随机数 (5, 画板1.宽度)
yy = 取随机数 (5, 画板1.高度)
画板1.刷子颜色 = #红色
画板1.画椭圆 (x - 3, y - 3, x + 3, y + 3)
画板1.刷子颜色 = #蓝色
画板1.画椭圆 (xx - 3, yy - 3, xx + 3, yy + 3)
k = (y - yy) ÷ (x - xx)
v = 选择 (x > xx, -10000, 10000)
ay = y + v × k
ax = v + x
画板1.画直线 (x, y, ax, ay)
画一个比画板长的线…… 上面的代码 没有碰到x-xx等于0的情况 你加一下
.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 yy, 整数型
.局部变量 xx, 整数型
.局部变量 k, 双精度小数型
.局部变量 ax, 整数型
.局部变量 ay, 整数型
.局部变量 v, 整数型
画板1.清除 (, , , )
x = 取随机数 (5, 画板1.宽度)
y = 取随机数 (5, 画板1.高度)
xx = 取随机数 (5, 画板1.宽度)
yy = 取随机数 (5, 画板1.高度)
画板1.刷子颜色 = #红色
画板1.画椭圆 (x - 3, y - 3, x + 3, y + 3)
画板1.刷子颜色 = #蓝色
画板1.画椭圆 (xx - 3, yy - 3, xx + 3, yy + 3)
k = (y - yy) ÷ (x - xx)
v = 选择 (x > xx, -10000, 10000)
ay = y + v × k
ax = v + x
画板1.画直线 (x, y, ax, ay)
画一个比画板长的线…… 上面的代码 没有碰到x-xx等于0的情况 你加一下
温馨提示:答案为网友推荐,仅供参考