按键5级认证考题(国外英文).docVIP

按键5级认证考题(国外英文资料) 1. The mouse moves in a circle. The radius is r=100. The dot is (200200). Please write the code 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, (front), the scope of the region (100150) to (200300) all the points are FFFFFF, is pop-up dialog box no other color, otherwise pop-up the first point of the color value, and exit the program. Please write the code 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 no other colors. 2, use multiple threads for multiple Notepad window position random movement. Please write the code RunApp notepad.exe / / start 3 test with Notepad RunApp notepad.exe RunApp notepad.exe Delay 2000 / 3 for open Notepad tool DimEnv Hwnd1 HwndEx = Plugin.Window.Search (Notepad) Hwnd = Split (HwndEx, |) If UBound (Hwnd) or 0 Then / / to determine whether the search to handle occlusion For, I = 0, To, UBound (Hwnd) - 1 Wnd = Clng (Hwnd (I)) / / type conversion Hwnd1 = wnd BeginThread mobile / start threads Delay 100 / / start threads need time Next End If Do Delay 1000 Loop Sub Mobile 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, select the number of all within 100, plus ten digits equal to 10 of the number, such as 82,8+2=10 meet the conditions, please write the code 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, write an algorithm that can be converted into octal decimal string string. For example, 8, 10, please write the code 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