问题：
替换字符串"12X34X56X"中的"X"为"|",请给出代码
答案：
Dim MyString
MyString = Replace("12X34X56X", "X", "|")
TracePrint MyString

问题：
判断字符串str是否存在空格,存在则弹出信息提示框,请给出代码
答案：
Dim str, SearchChar
str = "XXX XXX XXX"
SearchChar = " "
If Instr(str, SearchChar) <> 0 Then
MessageBox "存在空格"
End If

问题：
将字符串"12345"倒序排列成"54321",请给出代码
答案：
Dim str, i, a, b
//把"12345"的值赋值给str
str = "12345"
长度 = Len(str)//用Len返回字符串中的个数
i = 长度
//循环读取str中的字符，并赋值给b
For 长度
a = Mid(str, i, 1)
b = b & a
i = i - 1
Next
//弹出窗口，字符串"12345"倒序排列成"54321"
TracePrint b&"之前的字符串为"&str
MessageBox b

问题：
已知窗口句柄为Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键,请给出代码
答案：
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Move(Hwnd, 0, 50)
MoveTo 0 + 50, 50 + 100
LeftClick 1

问题：
有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设a=4,b=2),请给出代码
答案;
Dim a, b
a = 4 : b = 2
MessageBox a + b
MessageBox a - b
MessageBox a * b
MessageBox a / b

问题：
字符号串"1+2+3",请返回这个字符串表达式的值(返回值为6),请给出代码
答案：
Dim MyString, a, b, c,，a1,b1,c1, d
//将字符串"1+2+3"的值赋值给变量MyString
MyString = "1+2+3"
//用Mid函数返回MyString中的的指定值
a = Mid(MyString, 1, 1)'a包含 "1"
b = Mid(MyString, 3, 1)'b包含 "2"
c = Mid(MyString, 5, 1)'c包含 "3"
//用Int函数返回字符串的整数数值
a1 = int(a)
b1 = int(b)
c1 = int(c)
d = a1 + b1 + c1
TracePrint d

问题：
定义一个数组 myarray(10)，从 myarray(0)=0 开始赋值 到myarray(10)=10(提示:myarray(i)=i) ，请给出代码
答案：
Dim myarray(10)
For i=0 to UBound(myarray)
myarray(i) = i
TracePrint "myarray(" & i & ")=" & myarray(i)
Next

问题：
写出带两个数值型参数x和y的子函数,调用子函数得到x+y的值
答案：
TracePrint sum(1, 3)
Function sum(x,y)
sum = x + y
End Function

问题：
写出用goto命令循环十次的过程
答案：
Dim a1
a1 = 10
Rem 从这里开始
TracePrint "倒计次了！" & a1
a1 = a1 - 1
If a1 > 0 Then Goto 从这里开始
EndScript

问题：
(前台)依次按下"AJJL"四个键,中间延迟100毫秒,循环10次
答案：
Dim i
For i = 1 To 10
KeyPress "A", 1
Delay 100
KeyPress "J", 1
Delay 100
KeyPress "J", 1
Delay 100
KeyPress "L", 1
Delay 100
Next
EndScript

问题：
请将16进制颜色值"FF00FF"转成十进制并赋值给变量C,请给出代码
答案：
Dim C, D, i, j
C = 0
D = UCase("FF00FF")
For i = 1 To Len(D)
j = Asc(Mid(D, i, 1)) - 48
If j > 9 Then
j = j - 7
End If
C = C * 16 + j
Next
TracePrint C

问题：
已知有图片若干（图1-图10），在范围0,0,1024,768中执行找图命令，请利用数组方式调用图片名称（提示：For循环，数组），请作答
答案：
TracePrint 找多图("图1.bmp|图2.bmp|图3.bmp|图4.bmp|图5.bmp|图6.bmp|图7.bmp|图8.bmp|图9.bmp|图10.bmp")
Function 找多图(多图并列字符串)
dim MyArray
MyArray = Split(多图并列字符串, "|")
找多图 = 找多图_数组(MyArray)
End Function
Function 找多图_数组(MyArray)
For i = 0 To UBound(MyArray)
FindPic 0,0,1024,768,"Attachment:\"&MyArray(i),0.9,intX,intY
If intX > 0 And intY > 0 Then
找多图_数组 = i + 1
Exit For
End If
Next
End Function

顶
　　　-- 怎么办 楼下那个变态老是
不粉我!!!