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