按键5级认证考题.docVIP

按键5级认证考题 1、鼠标按圆型移动,半径为r=100,圆点为(200,200),请写出代码. Dim a, x, y MoveTo 100, 200 For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180) y = 200 - 100 * sin(a*3.14/180) MoveTo x, y Delay 5 Next EndScript 1、(前台)区域范围为(100,150)到(200,300)内的所有点是否均为FFFFFF,是则弹出对话框没有其他颜色,否则弹出第一个点的颜色值并退出程序. 请写出代码 x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While (y 300) x=100 While (x 200) If RtColor = FFFFFF Then x = x + 1 Else MessageBox RtColor1 ExitScript End If RtColor = Plug