Question

易语言 在画板上画射线（就是以一个点为起点 经过另一个点 然后无限延长） 哪位大师会 请指点一下 谢谢。

Answer 1

.版本 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的情况 你加一下