[考试]按键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 = Plugin.Color.GetPixelColor(x, y, 0) Wend y=y+1 Wend MessageBox 没有其他颜色 2、利用多线程对多个记事本的窗口位置进行随机移动.请写出代码 RunApp notepad.exe //启动3个记事本测试用 RunApp notepad.exe RunApp notepad.exe Delay 2000 //等待3个记事本工具打开 DimEnv Hwnd1 HwndEx = Plugin.Window.Search(记事本) Hwnd = Split(HwndEx,|) If UBound(Hwnd) = 0 Then //判断是否搜到句柄 For i = 0 To UBound(Hwnd) - 1 wnd = Clng(Hwnd(i)) //类型转换 Hwnd1 = wnd BeginThread 移动 //启动线程 Delay 100 //启动线程需要点时间 Next End If Do Delay 1000 Loop Sub 移动 Hwnd2 = Hwnd1 Randomize x = Int(Rnd * 500) Randomize y = Int(Rnd*500) // MessageBox x,y Call Plugin.Window.Move(Hwnd2, x+ 100, y + 100) End Su 3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码 s= For i = 1 To 99 a = i mod 10 b = int(i / 10) If (a + b) = 10 Then s=si| End If Next MessageBox s 4、写一个算法可以将十进制的字符串转成八进制的字符串.例如8-10,请写出代码 Public Function DEC_to_OCT(Dec) DEC_to_OCT = Do While Dec 0 DEC_to_OCT = Dec Mod 8 DEC_to_OCT Dec = Dec \ 8 Loop End Function a=DEC_to_OCT(8) MessageBox a 5、有N个窗口,第一个窗口移动到(0,0)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码 RunApp notepad.exe RunApp notepad.exe RunApp notepad.exe RunAp