按键5级认证考题

1、按键5级认证考题1、鼠标按圆型移动,半径为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, y Delay 5NextEndScript 1、(前台)区域范围为(100,150)到(200,300)内的所有点是否均为"FFFFFF",是则弹出对话框"没有其他颜色",否则弹出第一个点的颜色值并退出程序. 请写出代码 x = 1

2、00 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 "没有其他颜色"

3、;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

4、 = 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) E

5、nd Su3、筛选出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=s&i&"|" End If Next MessageBox s 4、写一个算法可以将十进制的字符串转成八进制的字符串.例如"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)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码 RunApp "notepad.exe" RunApp "notepad.exe" RunApp "notepad.exe" Run

7、App "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) Me

8、ssageBox 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 Wen

9、d sy = sy + y sx=0 MessageBox sy Wend 写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码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 = -1 ElseIf x = x0 Then i = 0 End If If y > y0 then ii = 1 ElseIf y < y0 then ii = -1 ElseIf

10、 y = y0 then ii = 0 End If MoveR i, ii If x = x0 and y = y0 Then Exit do End If LoopEnd sub 11、随即生成一个1100之间的整数,玩家可以通过inputbox输入数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请写出代码例如:随机数为:60,用户输入20,程序提示"答案范围为:20100".用户再次输入75,程序提示"答案范围为:2075".用户再次输入60,程序提示"猜中",然后退出程序.Randomize答案 = int(Rnd *

11、 100) + 1最小数 = 1最大数 = 100数字 = InputBox("(猜数游戏),输入1100之间的整数,玩家可以通过输入数字,猜对则退出游戏,猜错则提示答案的范围")数字=int(数字)Do If 数字 = 答案 Then MsgBox 数字 & ",恭喜答对了" EndScript ElseIf 数字 > 答案 Then 最大数 = 数字 ElseIf 数字 < 答案 Then 最小数 = 数字 End If 数字 = InputBox("答案范围为:" & 最小数 & "

12、" & 最大数) 数字 = int(数字)Loop 12、鼠标按圆型移动,半径为r=100,圆点为(200,200),请写出代码.圆点x = 200 : 圆点y = 200 : 半径 = 100 : 圆周率 = 3.14 : 角度数 = 1/公式: 弧度 =角度*圆周率/180Do MoveTo 圆点x + 半径 * cos(角度数 * 圆周率 / 180), 圆点y + 半径 * Sin(角度数 * 圆周率 / 180) 角度数 = 角度数 + 1Loop 13、锁定鼠标位置在(200,300)到(500,600)之间,超出范围则回到边界(鼠标范围锁定),请写出代码 Cal

13、l 锁范围(200,300,500,600)Function 锁范围(x1,y1,x2,y2) 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 ?可以让普通窗口(例如记事本)在屏幕内移

14、动,碰到屏幕边缘随机反向移动(类似屏幕保护的汽泡程序),请写出Call 泡泡屏保("记事本")Function 泡泡屏保(模糊标题) Hwnd = Split(Plugin.Window.Search(模糊标题), "|") If UBound(Hwnd)>=0 = 0 Then EndScript End If iii = 3 i = iii : ii = iii 最大宽 = Plugin.Sys.GetScRX():最大高 = Plugin.Sys.GetScRY() 边框 = Split(Plugin.Window.GetWindowRect

15、(Hwnd(0), "|") W1 = Clng(边框(0) : H1 = Clng(边框(1) : W2 = Clng(边框(2) : H2 = Clng(边框(3) W0 = W2 - W1 : H0 = H2 - H1 do If W1 <= 0 Then i = 1 * iii ElseIf W1 + W0 >= 最大宽 Then i = -1 * iii End If If H1 <= 0 Then ii = 1 * iii ElseIf H1 + H0 >= 最大高 Then ii = -1 * iii End If W1 = W1 +

16、i : H1 = H1 + ii Call Plugin.Window.Move(Hwnd(0), W1, H1 ) Delay 50 LoopEnd Function 15、获取数组array(10,9,1,5,2,3,4,5,6,11)中最接近平均数的值,请写出代码a = array(10, 9, 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(

17、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、有一个字符串，里面包含一些数字，写一个函数，把这些数字加起来。比如“我30你40他50”结果就是120。请写出代码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 +

18、ii ii = 0 End IfNextMsgbox b 17、遍历字符串"A1a2d5m8Qz",取出所有小写字母及数字,并按照与原来相反的顺序拼接成新的字符串,请写出代码MsgBox 反提取小写数字("A1a2d5m8Qz")Function 反提取小写数字(字符) 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 ) The

19、n 反提取小写数字 = 反提取小写数字 & mid(字符, i, 1) End If i = i - 1 NextEnd Function/1、遍历字符串"A1a2d5m8Qz",取出所有小写字母及数字,并按照与原来相反的顺序拼接成新的字符串,请写出代码Function getNewStr(str) Dim ac, nstr, ns nstr = "" For i = len(str) To 1 Step - 1 ns = Mid(str, i, 1) ac = Asc(ns) If (ac > 96 and ac < 123) or

20、 (ac > 47 and ac < 58) Then nstr = nstr + ns End If Next getNewStr = nstrEnd Function'MessageBox getNewStr("A1a2d5m8Qz")/2、有一个字符串，里面包含一些数字，写一个函数，把这些数字加起来。比如“我30你40他50”结果就是120。请写出代码Function getSum(str) Dim ns, nst, num nst = "" : num = 0 For i = 1 To len(str) ns = Mid(st

21、r, i, 1) If IsNumeric(ns) Then nst = nst + ns Else num = num + Clng(nst) nst = "" End If Next num = num + CLng(nst) getSum = numEnd Function'MessageBox getSum("我30你40他50")/3、获取数组array(10,9,1,5,2,3,4,5,6,11)中最接近平均数的值,请写出代码Function getNum(ary) Dim num, ab, temp, nm num = eval(j

22、oin(ary, "+") / UBound(ary) For i = 0 To UBound(ary) If i = 0 Then ab = Abs(ary(i) - num) End If temp = Abs(ary(i) - num) If ab > temp Then ab = temp nm = ary(i) End If Next getNum = nmEnd Function'MessageBox getNum(array(10, 9, 1, 5, 2, 3, 4, 5, 6, 11)/4、写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,

23、碰到屏幕边缘随机反向移动(类似屏幕保护的汽泡程序),请写出Function moveWin(Hwnd) Dim ary, h, w, maxh, maxw, fa, fb ScreenW = Plugin.GetSysInfo.GetScreenResolutionX() ScreenH = Plugin.GetSysInfo.GetScreenResolutionY() sRect = Plugin.Window.GetWindowRect(Hwnd) ary = Split(sRect, "|") W1 = Clng(ary(0): H1 = Clng(ary(1) W

24、2 = Clng(ary(2) : H2 = Clng(ary(3) w = W2 - W1 : h = H2 - H1 fa = true : fa = true Call Plugin.Window.Active(Hwnd) 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

25、 If maxw = w + W1 : maxh = h + H1 If W1 <= 0 Then W1 = 0 fa = true End If If H1 <= 0 Then H1 = 0 fb = true 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 F

26、unction/Call RunApp("notepad.exe") /Delay 1000/Hwnd = Plugin.Window.Find("Notepad", 0)/If Hwnd > 0 Then / moveWin(Hwnd) /Else / MessageBox "记事本未找到！"/End If '5、锁定鼠标位置在(200,300)到(500,600)之间,超出范围则回到边界(鼠标范围锁定),请写出代码Function clockMouse(x1,y1,x2,y2) Do GetCursorPos x,

27、y If x < x1 Then x = x1 End If If x > x2 Then x = x2 End If If y < y1 Then y = y1 End If If y > y2 Then y = y2 End If MoveTo x, y Delay 1 loopEnd Function/Call clockMouse(200,300,500,600)'6、鼠标按圆型移动,半径为r=100,圆点为(200,200),请写出代码.Function drwCircle(radius, centreX, centreY) Dim i : i = 0

28、 Do MoveTo centreX + radius * cos(i * 3.14159 / 180), centreY + radius * sin(i * 3.14159 / 180) i = i + 1 If i = 360 Then : i = 0 : End If Delay 2 LoopEnd Function'Call drwCircle(100, 200, 200)'7、随即生成一个1100之间的整数,玩家可以通过inputbox输入数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请/写出代码/例如:/随机数为:60,用户输入20,程序提示"答案范围为:20100"./用户再次输入75,程序提示"答案范围为:2075&