发布时间 : 星期五 文章按键精灵开发者一到六级认证最全总结答案更新完毕开始阅读2fe9039d05a1b0717fd5360cba1aa81144318f38
Hwnd2 = Hwnd1 Randomize
x = Int(Rnd * 500) Randomize
y = Int(Rnd*500) MessageBox x&\
Call Plugin.Window.Move(Hwnd2, x+ 100, y + 100) End Sub
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=s&i&\ End If Next
MessageBox s
4、写一个算法可以将十进制的字符串转成八进制的字符串.例如\请写出代码
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(\
5、有N个窗口,第一个窗口移动到(0,0)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码 RunApp \ RunApp \ RunApp \ RunApp \ RunApp \ RunApp \
HwndEx = Plugin.Window.Search(\记事本\ Hwnd = 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) 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 = sy + y sx=0
MessageBox sy Wend
写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码 Do
Call a(50, 50) Call a(800, 600) Loop
sub 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 y = y0 then ii = 0 End If
MoveR i, ii
If x = x0 and y = y0 Then Exit do End If Loop End sub
11、随机生成一个1~100之间的整数,玩家可以通过inputbox输入数字,猜对则退出游戏,猜错则提示答案的范围(猜数游戏),请
写出代码 例如:
随机数为:60,用户输入20,程序提示\答案范围为:20~100\用户再次输入75,程序提示\答案范围为:20~75\用户再次输入60,程序提示\猜中\然后退出程序.
Randomize
答案 = int(Rnd * 100) + 1 最小数 = 1 最大数 = 100
数字 = InputBox(\猜数游戏),输入1~100之间的整数,玩家可以通过输入数字,猜对则退出游戏,猜错则提示答案的范围\数字=int(数字) Do
If 数字 = 答案 Then
MsgBox 数字 & \恭喜答对了\ EndScript
ElseIf 数字 > 答案 Then 最大数 = 数字
ElseIf 数字 < 答案 Then 最小数 = 数字 End If
数字 = InputBox(\答案范围为:\最小数 & \最大数)
数字 = int(数字) Loop
13、锁定鼠标位置在(200,300)到(500,600)之间,超出范围则回到边界(鼠标范围锁定),请写出代码
Call 锁范围(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 Loop End 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=0
For UBound(a) + 1 ii = ii + a(i) i = i + 1 Next
均值 = ii /( UBound(a) + 1) i=0
For 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+1