按鍵精靈5級(jí)認(rèn)證考題添加了考試時(shí)候自己遇到的題

1、紅色為自己總結(jié)的考題 ，黑色為網(wǎng)上資料在路徑為: C:ajjl.txt文本的每行內(nèi)容后加上對(duì)應(yīng)的行數(shù),例如:ajjl-第1 行.請(qǐng)寫出代碼（禁止使用命令庫(kù)）wenben = Plugin.File.OpenFile("c:ajjl.txt")/打開ajjl.txt文件，以備讀寫使用Call Plugin.File.SeekFile(wenben, 0)/設(shè)置文件的當(dāng)前讀寫位置For UBound(hangshu) Call Plugin.File.WriteFile(wenben, hangshu(i) & "-第" & ii &

2、 "行" & vbcrlf)/ 向目標(biāo)文件寫入行數(shù)并換行 i = i + 1:ii = ii + 1NextCall Plugin.File.CloseFile(wenben)/關(guān)閉一個(gè)已經(jīng)打開的文件。文件關(guān)閉后，其句柄不再有效 EndScript 如果鼠標(biāo)停止動(dòng)作超過(guò)5秒，則執(zhí)行彈出信息提示框"鼠標(biāo)停止動(dòng)作",請(qǐng)寫出代碼GetCursorPos x1, y1/得到鼠標(biāo)位置Delay 5000/等待五秒重新判斷鼠標(biāo)位置，GetCursorPos x2, y2If x1 = x2 and y1 = y2 thenMessageBox "鼠

3、標(biāo)停止動(dòng)作"End If限制鼠標(biāo)范圍在屏幕坐標(biāo)（200，300）到（500，600）范圍內(nèi)，超出范圍則回到邊界（鼠標(biāo)范圍限制），請(qǐng)寫出代碼。x1 = 200x2 = 500y1 = 300y2 = 600 Do GetCursorPos x, y If x < x1 or x > x2 or y < y1 or y > y2 Then / 當(dāng)x，y有一個(gè)超出范圍后， If x < x1 Then x = x1 ElseIf x > x2 Then x=x2 End If If y < y1 Then y = y1 ElseIf y >

4、y2 Then y=y2 End If MoveTo x, y End If Loop寫一個(gè)子程序,可以使鼠標(biāo)從當(dāng)前的坐標(biāo)逐點(diǎn)的移動(dòng)到目的坐標(biāo)(帶軌跡的鼠標(biāo)移動(dòng)),請(qǐng)寫出代碼（要求：軌跡為一條直線）etCursorPos x1, y1/得到鼠標(biāo)位置坐標(biāo)/x2，y2為目標(biāo)坐標(biāo)For i = 1 To 100/把x和y等分100份nx = (x2 - x1) / 100ny = (y2 - y1) / 100MoveTo int(x1 + i * nx), int(y1 + i * ny)Delay 10Next End Sub鼠標(biāo)按圓型移動(dòng),半徑為r=100,圓點(diǎn)為(200,200),請(qǐng)寫出代碼

5、Dim n, x, yMoveTo 100, 200/確定圓點(diǎn)For n = 0 To 360 x = 200 - 100 * cos(n*3.14/180) y = 200 - 100 * sin(n*3.14/180)/ 根據(jù)直角三角形公式求兩個(gè)直角邊邊長(zhǎng) MoveTo x, y Delay 10NextEndScript1、鼠標(biāo)按圓型移動(dòng),半徑為r=100,圓點(diǎn)為(200,200),請(qǐng)寫出代碼.Dim a, x, yMoveTo 100, 200For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180) y = 200 - 100 * sin(a*3

6、.14/180) MoveTo x, y Delay 5NextEndScript 1、(前臺(tái))區(qū)域范圍為(100,150)到(200,300)內(nèi)的所有點(diǎn)是否均為"FFFFFF",是則彈出對(duì)話框"沒有其他顏色",否則彈出第一個(gè)點(diǎn)的顏色值并退出程序. 請(qǐng)寫出代碼 x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While (y < 300) x=100 While (x < 200) If RtColor = "FFFFF

7、F" Then x = x + 1 Else MessageBox RtColor1 ExitScript End If RtColor = Plugin.Color.GetPixelColor(x, y, 0) Wend y=y+1 Wend MessageBox "沒有其他顏色"2、利用多線程對(duì)多個(gè)記事本的窗口位置進(jìn)行隨機(jī)移動(dòng).請(qǐng)寫出代碼 RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" Delay 2000 DimEnv H

8、wnd1 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 移動(dòng) Delay 100 Next End If Do Delay 1000 Loop Sub 移動(dòng) Hwnd2 = Hwnd1 Randomize x = Int(Rnd * 500) Randomize y = Int

9、(Rnd*500) MessageBox x&","&y Call Plugin.Window.Move(Hwnd2, x+ 100, y + 100) End Sub3、篩選出100以內(nèi)所有個(gè)位數(shù)加十位數(shù)等于10的數(shù),例如82,8+2=10滿足條件,請(qǐng)寫出代碼 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 s 4、寫一個(gè)算法可以將十進(jìn)制的字符

10、串轉(zhuǎn)成八進(jìn)制的字符串.例如"8"->"10",請(qǐng)寫出代碼 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個(gè)窗口,第一個(gè)窗口移動(dòng)到(0,0)點(diǎn),其余的窗口根據(jù)第一個(gè)窗口平鋪,窗口不超出屏幕邊緣(窗口平鋪),請(qǐng)寫出代碼

11、 RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" HwndEx = Plugin.Window.Search("記事本") Hwnd = Split(HwndEx, "|") ScreenX = Plugin.Sys.GetScRX()

12、 ScreenY = Plugin.Sys.GetScRY() MessageBox ScreenX sRect = Plugin.Window.GetWindowRect(Hwnd(0) MessageBox 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(Hw

13、nd(i),Cstr(sx),Cstr(sy) sx = sx + x i = i + 1 If i > UBound(Hwnd)-1 Then ExitScript End If Wend sy = sy + y sx=0 MessageBox sy Wend 寫一個(gè)子程序,可以使鼠標(biāo)從當(dāng)前的坐標(biāo)逐點(diǎn)的移動(dòng)到目的坐標(biāo)(帶軌跡的鼠標(biāo)移動(dòng)),請(qǐng)寫出代碼Do Call a(50, 50) Call a(800, 600)Loopsub a(x,y) Do GetCursorPos x0, y0 If x > x0 Then i = 1 ElseIf x < x0 Then i =

14、 -1 ElseIf x = x0 Then i = 0 End If If y > y0 then ii = 1 ElseIf y < y0 then ii = -1 ElseIf y = y0 then ii = 0 End If MoveR i, ii If x = x0 and y = y0 Then Exit do End If LoopEnd sub 11、隨機(jī)生成一個(gè)1100之間的整數(shù),玩家可以通過(guò)inputbox輸入數(shù)字,猜對(duì)則退出游戲,猜錯(cuò)則提示答案的范圍(猜數(shù)游戲),請(qǐng)寫出代碼例如:隨機(jī)數(shù)為:60,用戶輸入20,程序提示"答案范圍為:20100&quo

15、t;.用戶再次輸入75,程序提示"答案范圍為:2075".用戶再次輸入60,程序提示"猜中",然后退出程序.Randomize答案 = int(Rnd * 100) + 1最小數(shù) = 1最大數(shù) = 100數(shù)字 = InputBox("(猜數(shù)游戲),輸入1100之間的整數(shù),玩家可以通過(guò)輸入數(shù)字,猜對(duì)則退出游戲,猜錯(cuò)則提示答案的范圍")數(shù)字=int(數(shù)字)Do If 數(shù)字 = 答案 Then MsgBox 數(shù)字 & ",恭喜答對(duì)了" EndScript ElseIf 數(shù)字 > 答案 Then 最大數(shù) =

16、數(shù)字 ElseIf 數(shù)字 < 答案 Then 最小數(shù) = 數(shù)字 End If 數(shù)字 = InputBox("答案范圍為:" & 最小數(shù) & "" & 最大數(shù)) 數(shù)字 = int(數(shù)字)Loop 13、鎖定鼠標(biāo)位置在(200,300)到(500,600)之間,超出范圍則回到邊界(鼠標(biāo)范圍鎖定),請(qǐng)寫出代碼 Call 鎖范圍(200,300,500,600)Function 鎖范圍(x1,y1,x2,y2) Do GetCursorPos x, y If x < x1 or x > x2 or y < y1 o

17、r y > y2 Then If x < x1 Then x = x1 ElseIf x > x2 Then x=x2 End If If y < y1 Then y = y1 ElseIf y > y2 Then y=y2 End If MoveTo x, y End If LoopEnd Function 15、獲取數(shù)組array(10,9,1,5,2,3,4,5,6,11)中最接近平均數(shù)的值,請(qǐng)寫出代碼a = array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11)i=0For UBound(a) + 1 ii = ii + a(i) i

18、= i + 1Next均值 = ii /( UBound(a) + 1)i=0For UBound(a) If Abs(均值 - a(i) > Abs(均值 - a(i + 1) Then ii = a(i + 1) ElseIf Abs(均值 - a(i) < Abs(均值 - a(i + 1) Then ii = a(i) End If i=i+1NextMsgBox ii 16、有一個(gè)字符串，里面包含一些數(shù)字，寫一個(gè)函數(shù)，把這些數(shù)字加起來(lái)。比如“我30你40他50”結(jié)果就是120。請(qǐng)寫出代碼a = "我30你40他50ni"For i = 1 To Len

19、(a) + 1 If IsNumeric(Mid(a, i, 1) = True Then ii = ii & Mid(a, i, 1) Else b = b + ii ii = 0 End IfNextMsgbox b 17、遍歷字符串"A1a2d5m8Qz",取出所有小寫字母及數(shù)字,并按照與原來(lái)相反的順序拼接成新的字符串,請(qǐng)寫出代碼MsgBox 反提取小寫數(shù)字("A1a2d5m8Qz")Function 反提取小寫數(shù)字(字符) i = Len(字符) For Len(字符) If (Asc(mid(字符,i,1) > 96 and As

20、c(mid(字符,i,1) < 123 ) or (Asc(mid(字符,i,1) > 47 and Asc(mid(字符,i,1) < 58 ) Then 反提取小寫數(shù)字 = 反提取小寫數(shù)字 & mid(字符, i, 1) End If i = i - 1 NextEnd Function/4、寫一個(gè)函數(shù),可以讓普通窗口(例如記事本)在屏幕內(nèi)移動(dòng),碰到屏幕邊緣隨機(jī)反向移動(dòng)(類似屏幕保護(hù)的汽泡程序),請(qǐng)寫出Function moveWin(Hwnd) Dim ary, h, w, maxh, maxw, fa, fb ScreenW = Plugin.GetSysIn

21、fo.GetScreenResolutionX() ScreenH = Plugin.GetSysInfo.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 - H1 fa = true : fa = true Call Plugin.Window.Active(Hw

22、nd) Call Plugin.Window.Show(Hwnd) Do Randomize If fa Then W1 = Round(Rnd * 5) + W1 Else W1 = W1 - Round(Rnd * 5) End If If fb Then H1 = Round(Rnd * 5) + H1 Else H1 = H1 - Round(Rnd * 5) End If maxw = w + W1 : maxh = h + H1 If W1 <= 0 Then W1 = 0 fa = true End If If H1 <= 0 Then H1 = 0 fb = tru

23、e End If If maxw >= ScreenW Then W1 = ScreenW - w fa = false End If If maxh >= ScreenH Then H1 = ScreenH - h fb = false End If Call Plugin.Window.Move(Hwnd, W1, H1) Delay 10 LoopEnd Function/Call RunApp("notepad.exe") /Delay 1000/Hwnd = Plugin.Window.Find("Notepad", 0)/If H

24、wnd > 0 Then / moveWin(Hwnd) /Else / MessageBox "記事本未找到！"/End If '寫一個(gè)子程序,可以使鼠標(biāo)從當(dāng)前的坐標(biāo)逐點(diǎn)的移動(dòng)到目的坐標(biāo)(帶軌跡的鼠標(biāo)移動(dòng)),請(qǐng)寫出代碼Sub moveMou(x, y) Dim fa, fb, xx, yy, maxl GetCursorPos x0, y0 xx = Abs(x0 - x) yy = Abs(y0 - y) If xx > yy Then maxl = xx Else maxl = yy End If MessageBox maxl If x0 <

25、; x Then fa = 1 Else fa = - 1 End If If y0 < y Then fb = 1 Else fb = - 1 End If For maxl If x0 x0 = x0 + fa y0 = y0 + fb MoveTo x0, y0 Delay 10 Next End SubCall moveMou(1000,500)/(API)利用 SetWindowPos 函數(shù)將窗口置前,相關(guān)說(shuō)明請(qǐng)百度,請(qǐng)寫出代碼Private Declare Function SetWindowPos Lib "user32" Alias "Set

26、WindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongFunction 窗口層次(hwnd, mode)窗口層次 = SetWindowPos(hwnd, mode, 0, 0, 0, 0, 3)End Functionhwnd = 661156Call Lib.API.窗口層次(hwnd, -1)4、利用 ShowS

27、crTXT 命令制作一個(gè)放大鏡,效果類似抓抓工具的放大鏡,可以放大顯示鼠標(biāo)指向的5*5區(qū)域的顏色.請(qǐng)寫出代碼While trueGetCursorPos x, yse = GetPixelColor(x + l, y + s)Call Plugin.Msg.ShowScrTXT(x + l * 15 + 15, y + s * 15 + 15, x + 170, y + 170, "", se)If l = 4 Then l = 0s = s + 1Else l = l + 1End IfIf s = 5 Then s = 0Delay 500Call Plugin.Msg

28、.HideScrTXT()Delay 100End IfWend5、獲取鼠標(biāo)無(wú)動(dòng)作的時(shí)間,返回值是鼠標(biāo)無(wú)動(dòng)作的時(shí)間(鼠標(biāo)監(jiān)控),請(qǐng)寫出代碼1、同種窗口多開,操作一個(gè)窗口(鍵盤和鼠標(biāo))能夠同時(shí)操作其他同種窗口,且操作過(guò)程一致(模擬同步器),請(qǐng)寫出代碼5、(API)利用 SendMessage 函數(shù)向QQ對(duì)話窗口發(fā)送文本里的所有內(nèi)容(QQ消息發(fā)送器),請(qǐng)寫出代碼RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe&qu

29、ot;HwndEx = Plugin.Window.Search("記事本") hw_sp = Split(HwndEx, "|")hw_ub = UBound(hw_sp)TracePrint hw_ubx = 0y = 0i = 0m=1For hw_ub hw_ck = hw_sp(i) call ckcz i = i + 1 : m = m + 1 Delay 100NextSub ckcz If m = 1 or m = 2 Then Call Plugin.Window.Active(hw_ck) Call Plugin.Window.Mov

30、e(Hwnd, x, y) x = x + 600 If m = 2 Then x=0 End If ElseIf m = 3 or m = 4 Then Call Plugin.Window.Active(hw_ck) y = y + 600 Call Plugin.Window.Move(Hwnd, x, y) x = x + 600:y=0 End IfEnd Sub在路徑為: C:ajjl.txt文本的每行內(nèi)容后加上對(duì)應(yīng)的行數(shù),例如:ajjl-第1 行.請(qǐng)寫出代碼nr = Plugin.File.ReadFileEx("c:ajjl.txt")hs = Split(

31、nr, "|")i = 0:ii = 1fileLen = Plugin.File.GetFileLength("c:ajjl.txt")handle = Plugin.File.OpenFile("c:ajjl.txt")Call Plugin.File.SeekFile(handle, 0)For UBound(hs) Call Plugin.File.WriteFile(handle,hs(i)&"-第"&ii&"行"& vbcrlf) i = i + 1:

32、ii = ii + 1NextCall Plugin.File.CloseFile(handle) Delay 500RunApp "c:ajjl.txt"EndScript 請(qǐng)?zhí)峁┲辽賰煞N判斷程序卡死(無(wú)響應(yīng))的思路,請(qǐng)寫出關(guān)鍵代碼.請(qǐng)寫出代碼Private Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As LongSub 子程序()Hwnd = Plugin.Window.MousePoint()If IsHungAppWindow(Hwnd)=0 T

33、hen MsgBox "窗口正常"End If End SubPrivate Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As LongHwnd = Plugin.Window.MousePoint()If IsHungAppWindow(Hwnd)=0 Then MsgBox "窗口正常"End If根據(jù)系統(tǒng)時(shí)間生成一個(gè)01之間的小數(shù)點(diǎn)數(shù)字,需要寫出生成的過(guò)程(偽隨機(jī)數(shù)),請(qǐng)寫出代碼MsgBox 偽隨機(jī)()Function 偽隨機(jī)()

34、時(shí)間 = Split(Time, ":")Randomize時(shí) = Int(int(時(shí)間(0) * Rnd + 1) / 24 * 100Randomize分 = Int(int(時(shí)間(1) * Rnd + 1) / 60 * 10000Randomize秒 = Int(int(時(shí)間(2) * Rnd + 1) / 60 * 1000000偽隨機(jī) = round(時(shí) + 分 + 秒) / 100, 6)End Function 1、鼠標(biāo)按圓型移動(dòng),半徑為r=100,圓點(diǎn)為(200,200),請(qǐng)寫出代碼.Dim a, x, yMoveTo 100, 200For a = 0

35、To 360 x = 200 - 100 * cos(a*3.14/180) y = 200 - 100 * sin(a*3.14/180) MoveTo x, y Delay 5NextEndScript 1、(前臺(tái))區(qū)域范圍為(100,150)到(200,300)內(nèi)的所有點(diǎn)是否均為"FFFFFF",是則彈出對(duì)話框"沒有其他顏色",否則彈出第一個(gè)點(diǎn)的顏色值并退出程序. 請(qǐng)寫出代碼 x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While

36、(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、利用多線程對(duì)多個(gè)記事本的窗口位置進(jìn)行隨機(jī)移動(dòng).請(qǐng)寫出代碼 RunApp "notepad.exe" RunApp "notepa

37、d.exe" RunApp "notepad.exe" Delay 2000 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 移動(dòng) Delay 100 Next End If Do Delay 1000 Loop Sub 移

38、動(dòng) 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 Sub3、篩選出100以內(nèi)所有個(gè)位數(shù)加十位數(shù)等于10的數(shù),例如82,8+2=10滿足條件,請(qǐng)寫出代碼 s="" For i = 1 To 99 a = i mod 10 b = int(i / 10) If (a + b) = 10 Then s=s&

39、;i&"|" End If Next MessageBox s 4、寫一個(gè)算法可以將十進(jìn)制的字符串轉(zhuǎn)成八進(jìn)制的字符串.例如"8"->"10",請(qǐng)寫出代碼 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

40、 a 5、有N個(gè)窗口,第一個(gè)窗口移動(dòng)到(0,0)點(diǎn),其余的窗口根據(jù)第一個(gè)窗口平鋪,窗口不超出屏幕邊緣(窗口平鋪),請(qǐng)寫出代碼 RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" HwndEx = Plugin.Window.Search("記事本") Hwnd

41、 = Split(HwndEx, "|") ScreenX = Plugin.Sys.GetScRX() ScreenY = Plugin.Sys.GetScRY() MessageBox ScreenX sRect = Plugin.Window.GetWindowRect(Hwnd(0) MessageBox 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) W

42、hile (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 = sy + y sx=0 MessageBox sy Wend 寫一個(gè)子程序,可以使鼠標(biāo)從當(dāng)前的坐標(biāo)逐點(diǎn)的移動(dòng)到目的坐標(biāo)(帶軌跡的鼠標(biāo)移動(dòng)),請(qǐng)寫出代碼Do Call a(50, 50) Call a(800, 600)Loopsub a(x,y) Do GetCurs

43、orPos x0, y0 If x > x0 Then i = 1 ElseIf x < x0 Then i = -1 ElseIf x = x0 Then i = 0 End If If y > y0 then ii = 1 ElseIf y < y0 then ii = -1 ElseIf y = y0 then ii = 0 End If MoveR i, ii If x = x0 and y = y0 Then Exit do End If LoopEnd sub 11、隨機(jī)生成一個(gè)1100之間的整數(shù),玩家可以通過(guò)inputbox輸入數(shù)字,猜對(duì)則退出游戲,猜錯(cuò)則

44、提示答案的范圍(猜數(shù)游戲),請(qǐng)寫出代碼例如:隨機(jī)數(shù)為:60,用戶輸入20,程序提示"答案范圍為:20100".用戶再次輸入75,程序提示"答案范圍為:2075".用戶再次輸入60,程序提示"猜中",然后退出程序.Randomize答案 = int(Rnd * 100) + 1最小數(shù) = 1最大數(shù) = 100數(shù)字 = InputBox("(猜數(shù)游戲),輸入1100之間的整數(shù),玩家可以通過(guò)輸入數(shù)字,猜對(duì)則退出游戲,猜錯(cuò)則提示答案的范圍")數(shù)字=int(數(shù)字)Do If 數(shù)字 = 答案 Then MsgBox 數(shù)字 &a

45、mp; ",恭喜答對(duì)了" EndScript ElseIf 數(shù)字 > 答案 Then 最大數(shù) = 數(shù)字 ElseIf 數(shù)字 < 答案 Then 最小數(shù) = 數(shù)字 End If 數(shù)字 = InputBox("答案范圍為:" & 最小數(shù) & "" & 最大數(shù)) 數(shù)字 = int(數(shù)字)Loop 13、鎖定鼠標(biāo)位置在(200,300)到(500,600)之間,超出范圍則回到邊界(鼠標(biāo)范圍鎖定),請(qǐng)寫出代碼 Call 鎖范圍(200,300,500,600)Function 鎖范圍(x1,y1,x2,y2)

46、 Do GetCursorPos x, y If x < x1 or x > x2 or y < y1 or y > y2 Then If x < x1 Then x = x1 ElseIf x > x2 Then x=x2 End If If y < y1 Then y = y1 ElseIf y > y2 Then y=y2 End If MoveTo x, y End If LoopEnd Function 15、獲取數(shù)組array(10,9,1,5,2,3,4,5,6,11)中最接近平均數(shù)的值,請(qǐng)寫出代碼a = array(10, 9,

47、1, 5, 2, 3, 4, 5, 6, 11)i=0For UBound(a) + 1 ii = ii + a(i) i = i + 1Next均值 = ii /( UBound(a) + 1)i=0For UBound(a) If Abs(均值 - a(i) > Abs(均值 - a(i + 1) Then ii = a(i + 1) ElseIf Abs(均值 - a(i) < Abs(均值 - a(i + 1) Then ii = a(i) End If i=i+1NextMsgBox ii 16、有一個(gè)字符串，里面包含一些數(shù)字，寫一個(gè)函數(shù)，把這些數(shù)字加起來(lái)。比如“我30你

48、40他50”結(jié)果就是120。請(qǐng)寫出代碼a = "我30你40他50ni"For i = 1 To Len(a) + 1 If IsNumeric(Mid(a, i, 1) = True Then ii = ii & Mid(a, i, 1) Else b = b + ii ii = 0 End IfNextMsgbox b 17、遍歷字符串"A1a2d5m8Qz",取出所有小寫字母及數(shù)字,并按照與原來(lái)相反的順序拼接成新的字符串,請(qǐng)寫出代碼MsgBox 反提取小寫數(shù)字("A1a2d5m8Qz")Function 反提取小寫數(shù)字(

49、字符) 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 If i = i - 1 NextEnd Function/4、寫一個(gè)函數(shù),可以讓普通窗口(例如記事本)在屏幕內(nèi)移動(dòng),碰到屏幕邊緣隨機(jī)反向移動(dòng)(類似屏幕保護(hù)的汽泡程序),請(qǐng)寫出Function moveWin(Hwnd) Dim ar