鼠标画圆画圆形一源码

.子程序 画圆子程序1
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 r, 整数型
.局部变量 mx, 整数型
.局部变量 my, 整数型
.局部变量 i, 整数型

x ＝ 取屏幕宽度 () ÷ 2 ' x坐标
y ＝ 取屏幕高度 () ÷ 2 ' y坐标
r ＝ y － 300 ' 半径
.计次循环首 (3, i) ' 3就是画三圈
.计次循环首 (380, i) ' 380就是圆圈的角度三百八十度
mx ＝ x ＋ r × 求余弦 (i × #pi ÷ 180)
my ＝ y － r × 求正弦 (i × #pi ÷ 180)
鼠标_移动 (, mx, my)
程序_延时 (10, )
.计次循环尾 ()
程序_延时 (10, )
.计次循环尾 ()