1、按鍵級認(rèn)證考題 1、鼠標(biāo)按圓型移動,半徑為r=100,圓點為(200,200),請寫出代碼.Dim a, x, yMoveTo 100, 200For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180)y = 200 - 100 * sin(a*3.14/180)MoveTo x, yDelay 5NextEndScript1、(前臺)區(qū)域范圍為(100,150)到(200,300)內(nèi)的所有點是否均為"FFFFFF",是則彈出對話框"沒有其他顏色",否則彈出第一個點的顏色值并退出程序. 請寫出代碼 x = 100 y

2、 = 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、利

3、用多線程對多個記事本的窗口位置進(jìn)行隨機移動.請寫出代碼 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

4、 To UBound(Hwnd) - 1 wnd = Clng(Hwnd(i) /類型轉(zhuǎn)換 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 S

5、u3、篩選出100以內(nèi)所有個位數(shù)加十位數(shù)等于10的數(shù),例如82,8+2=10滿足條件,請寫出代碼 s="" For i = 1 To 99 a = i mod 10 b = int(i / 10) If (a + b) = 10 Then s=s&i&"|" End If Next MessageBox s4、寫一個算法可以將十進(jìn)制的字符串轉(zhuǎn)成八進(jìn)制的字符串.例如"8"->"10",請寫出代碼 Public Function DEC_to_OCT(Dec) DEC_to_OCT = "

6、;" 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)點,其余的窗口根據(jù)第一個窗口平鋪,窗口不超出屏幕邊緣(窗口平鋪),請寫出代碼 RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp &

7、quot;notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" HwndEx = Plugin.Window.Search("記事本") Hwnd = Split(HwndEx, "|") ScreenX = Plugin.Sys.GetScRX() ScreenY = Plugin.Sys.GetScRY() MessageBox ScreenX sRect = Plugin.Window.GetWindowRect(Hwnd(0) Message

8、Box sRect xy = Split(sRect, "|") x = xy(2) - xy(0) y = xy(3) - xy(1) sx = 0 sy = 0 i=0 MessageBox x While (Screeny-sy >y) While (ScreenX - sx > x) Delay 10 Call Plugin.Window.Move(Hwnd(i),Cstr(sx),Cstr(sy) sx = sx + x i = i + 1 If i > UBound(Hwnd)-1 Then ExitScript End If Wend sy

9、= sy + y sx=0 MessageBox sy Wend 寫一個子程序,可以使鼠標(biāo)從當(dāng)前的坐標(biāo)逐點的移動到目的坐標(biāo)(帶軌跡的鼠標(biāo)移動),請寫出代碼DoCall a(50, 50)Call a(800, 600)Loopsub a(x,y)DoGetCursorPos x0, y0 If x > x0 Theni = 1ElseIf x < x0 Theni = -1ElseIf x = x0 Theni = 0End IfIf y > y0 thenii = 1ElseIf y < y0 thenii = -1ElseIf y = y0 thenii = 0En

10、d IfMoveR i, iiIf x = x0 and y = y0 ThenExit doEnd IfLoopEnd sub11、隨即生成一個1100之間的整數(shù),玩家可以通過inputbox輸入數(shù)字,猜對則退出游戲,猜錯則提示答案的范圍(猜數(shù)游戲),請寫出代碼例如:隨機數(shù)為:60,用戶輸入20,程序提示"答案范圍為:20100".用戶再次輸入75,程序提示"答案范圍為:2075".用戶再次輸入60,程序提示"猜中",然后退出程序.Randomize答案 = int(Rnd * 100) + 1最小數(shù) = 1最大數(shù) = 100數(shù)字

11、= InputBox("(猜數(shù)游戲),輸入1100之間的整數(shù),玩家可以通過輸入數(shù)字,猜對則退出游戲,猜錯則提示答案的范圍")數(shù)字=int(數(shù)字)DoIf 數(shù)字 = 答案 ThenMsgBox 數(shù)字 & ",恭喜答對了"EndScriptElseIf 數(shù)字 > 答案 Then最大數(shù) = 數(shù)字ElseIf 數(shù)字 < 答案 Then最小數(shù) = 數(shù)字End If數(shù)字 = InputBox("答案范圍為:" & 最小數(shù) & "" & 最大數(shù))數(shù)字 = int(數(shù)字)Loop12、鼠

12、標(biāo)按圓型移動,半徑為r=100,圓點為(200,200),請寫出代碼.圓點x = 200 : 圓點y = 200 : 半徑 = 100 : 圓周率 = 3.14 : 角度數(shù) = 1/公式: 弧度 =角度*圓周率/180DoMoveTo 圓點x + 半徑 * cos(角度數(shù) * 圓周率 / 180), 圓點y + 半徑 * Sin(角度數(shù) * 圓周率 / 180)角度數(shù) = 角度數(shù) + 1Loop13、鎖定鼠標(biāo)位置在(200,300)到(500,600)之間,超出范圍則回到邊界(鼠標(biāo)范圍鎖定),請寫出代碼Call 鎖范圍(200,300,500,600)Function 鎖范圍(x1,y1,x2

13、,y2)DoGetCursorPos x, yIf x < x1 or x > x2 or y < y1 or y > y2 ThenIf x < x1 Thenx = x1ElseIf x > x2 Thenx=x2End IfIf y < y1 Theny = y1ElseIf y > y2 Theny=y2End IfMoveTo x, yEnd If LoopEnd Function?可以讓普通窗口(例如記事本)在屏幕內(nèi)移動,碰到屏幕邊緣隨機反向移動(類似屏幕保護的汽泡程序),請寫出Call 泡泡屏保("記事本")Fu

14、nction 泡泡屏保(模糊標(biāo)題)Hwnd = Split(Plugin.Window.Search(模糊標(biāo)題), "|")If UBound(Hwnd)>=0 = 0 ThenEndScriptEnd Ifiii = 3i = iii : ii = iii最大寬 = Plugin.Sys.GetScRX():最大高 = Plugin.Sys.GetScRY()邊框 = Split(Plugin.Window.GetWindowRect(Hwnd(0), "|")W1 = Clng(邊框(0) : H1 = Clng(邊框(1) : W2 = Cl

15、ng(邊框(2) : H2 = Clng(邊框(3)W0 = W2 - W1 : H0 = H2 - H1doIf W1 <= 0 Theni = 1 * iiiElseIf W1 + W0 >= 最大寬 Theni = -1 * iiiEnd IfIf H1 <= 0 Thenii = 1 * iiiElseIf H1 + H0 >= 最大高 Thenii = -1 * iiiEnd IfW1 = W1 + i : H1 = H1 + iiCall Plugin.Window.Move(Hwnd(0), W1, H1 )Delay 50LoopEnd Function

16、15、獲取數(shù)組array(10,9,1,5,2,3,4,5,6,11)中最接近平均數(shù)的值,請寫出代碼a = array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11)i=0For UBound(a) + 1ii = ii + a(i)i = i + 1Next均值 = ii /( UBound(a) + 1)i=0For UBound(a)If Abs(均值 - a(i) > Abs(均值 - a(i + 1) Thenii = a(i + 1)ElseIf Abs(均值 - a(i) < Abs(均值 - a(i + 1) Thenii = a(i)End Ifi

17、=i+1NextMsgBox ii16、有一個字符串，里面包含一些數(shù)字，寫一個函數(shù)，把這些數(shù)字加起來。比如“我30你40他50”結(jié)果就是120。請寫出代碼a = "我30你40他50ni"For i = 1 To Len(a) + 1If IsNumeric(Mid(a, i, 1) = True Thenii = ii & Mid(a, i, 1)Elseb = b + iiii = 0End IfNextMsgbox b17、遍歷字符串"A1a2d5m8Qz",取出所有小寫字母及數(shù)字,并按照與原來相反的順序拼接成新的字符串,請寫出代碼MsgB

18、ox 反提取小寫數(shù)字("A1a2d5m8Qz")Function 反提取小寫數(shù)字(字符)i = Len(字符)For Len(字符)If (Asc(mid(字符,i,1) > 96 and Asc(mid(字符,i,1) < 123 ) or (Asc(mid(字符,i,1) > 47 and Asc(mid(字符,i,1) < 58 ) Then反提取小寫數(shù)字 = 反提取小寫數(shù)字 & mid(字符, i, 1)End Ifi = i - 1NextEnd Function/1、遍歷字符串"A1a2d5m8Qz",取出所有

19、小寫字母及數(shù)字,并按照與原來相反的順序拼接成新的字符串,請寫出代碼Function getNewStr(str)Dim ac, nstr, nsnstr = ""For i = len(str) To 1 Step - 1 ns = Mid(str, i, 1)ac = Asc(ns)If (ac > 96 and ac < 123) or (ac > 47 and ac < 58) Then nstr = nstr + nsEnd IfNextgetNewStr = nstrEnd FunctionMessageBox getNewStr(&quo

20、t;A1a2d5m8Qz")/2、有一個字符串，里面包含一些 數(shù)字，寫一個函數(shù)，把這些數(shù)字加起來。比如“我30你40他50”結(jié)果就是120。請寫出代碼Function getSum(str)Dim ns, nst, numnst = "" : num = 0For i = 1 To len(str)ns = Mid(str, i, 1)If IsNumeric(ns) Then nst = nst + nsElse num = num + Clng(nst)nst = ""End IfNextnum = num + CLng(nst)getSu

21、m = numEnd FunctionMessageBox getSum("我30你40他50")/3、獲取數(shù)組array(10,9,1,5,2,3,4,5,6,11)中最接近平均數(shù)的值,請寫出代碼Function getNum(ary)Dim num, ab, temp, nmnum = eval(join(ary, "+") / UBound(ary)For i = 0 To UBound(ary)If i = 0 Then ab = Abs(ary(i) - num)End Iftemp = Abs(ary(i) - num)If ab >

22、temp Then ab = tempnm = ary(i)End IfNextgetNum = nmEnd FunctionMessageBox getNum(array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11)/4、寫一個函數(shù),可以讓普通窗口(例如記事本)在屏幕內(nèi)移動,碰到屏幕邊緣隨機反向移動(類似屏幕保護的汽泡程序),請寫出Function moveWin(Hwnd)Dim ary, h, w, maxh, maxw, fa, fbScreenW = Plugin.GetSysInfo.GetScreenResolutionX()ScreenH = Plugin.G

23、etSysInfo.GetScreenResolutionY()sRect = Plugin.Window.GetWindowRect(Hwnd)ary = Split(sRect, "|")W1 = Clng(ary(0): H1 = Clng(ary(1) W2 = Clng(ary(2) : H2 = Clng(ary(3)w = W2 - W1 : h = H2 - H1fa = true : fa = trueCall Plugin.Window.Active(Hwnd)Call Plugin.Window.Show(Hwnd)DoRandomizeIf fa T

24、hen W1 = Round(Rnd * 5) + W1Else W1 = W1 - Round(Rnd * 5)End IfIf fb Then H1 = Round(Rnd * 5) + H1Else H1 = H1 - Round(Rnd * 5)End If maxw = w + W1 : maxh = h + H1If W1 <= 0 Then W1 = 0fa = trueEnd IfIf H1 <= 0 Then H1 = 0fb = trueEnd IfIf maxw >= ScreenW Then W1 = ScreenW - w fa = falseEnd

25、 If If maxh >= ScreenH Then H1 = ScreenH - hfb = falseEnd IfCall Plugin.Window.Move(Hwnd, W1, H1)Delay 10LoopEnd Function/Call RunApp("notepad.exe") /Delay 1000/Hwnd = Plugin.Window.Find("Notepad", 0)/If Hwnd > 0 Then / moveWin(Hwnd) /Else / MessageBox "記事本未找到！"/E

26、nd If 5、鎖定鼠標(biāo)位置在(200,300)到(500,600)之間,超出范圍則回到邊界(鼠標(biāo)范圍鎖定),請寫出代碼Function clockMouse(x1,y1,x2,y2)DoGetCursorPos x, yIf x < x1 Then x = x1End IfIf x > x2 Then x = x2End IfIf y < y1 Then y = y1End IfIf y > y2 Then y = y2End IfMoveTo x, yDelay 1loopEnd Function/Call clockMouse(200,300,500,600)6、

27、鼠標(biāo)按圓型移動,半徑為r=100,圓點為(200,200),請寫出代碼.Function drwCircle(radius, centreX, centreY)Dim i : i = 0DoMoveTo centreX + radius * cos(i * 3.14159 / 180), centreY + radius * sin(i * 3.14159 / 180)i = i + 1If i = 360 Then : i = 0 : End IfDelay 2LoopEnd FunctionCall drwCircle(100, 200, 200)7、隨即生成一個1100之間的整數(shù),玩家可以通過inputbox輸入數(shù)字,猜對則退出游戲,猜錯則提示答案的范圍(猜數(shù)游戲),請/寫出代碼/例如:/隨機數(shù)為:60,用戶輸入20,程序提示"答案范圍為:20100"./用戶再次輸入75,程序提