按键精灵开发者认证--3级问答题

//请写出运行一个程序的命令,例如运行按键精灵主程序,请给出代码
//Dim exePath
//程序路径
//exePath = "D:\Program Files\按键精灵9\按键精灵9.exe "
//如果路径不是变量,必须加上双引号
//RunApp exePath
//运行指定程序.
//==============================================================================
//字符号串"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
MessageBox d
//==============================================================================
//将字符串"12345"倒序排列成"54321",请给出代码
//定义变量zfc,把"12345"的值赋值给zfc
//用Len函数返回zfc中的字符个数
//循环读取zfc中的字符,并赋值给b
//弹出窗口,字符串"12345"倒序排列成"54321"
//Dim zfc,i,a,b
//zfc="12345"
//geshu = Len(zfc)//用Len返回字符串中的个数
//i=geshu
//For geshu
//a = Mid(zfc, i, 1)
//b = b & a
//i=i-1
//Next
//TracePrint b&"之前的字符串为"&zfc
//MessageBox b
//==============================================================================
1、已知窗口句柄为Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键,请给出代码
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Move(Hwnd, 0, 50)
MoveTo 0 + 50, 50 + 100
LeftClick 1

//==============================================================================
2、替换字符串"12X34X56X"中的"X"为"|",请给出代码
Dim MyString
MyString = Replace("12X34X56X", "X", "|")

TracePrint MyString
//==============================================================================
3、请将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
C = C * 16 + j
Next
TracePrint C
//==============================================================================
1、写出带两个数值型参数x和y的子函数,调用子函数得到x+y的值
Function sum(x,y)

sum=cint(x)+cint(y)
End Function
TracePrint sum(1,3)
//==============================================================================
2、判断字符串str是否存在空格,存在则弹出信息提示框,请给出代码
Dim str, SearchChar

str = "XXX XXX XXX"
SearchChar = " "
If Instr(str, SearchChar) <> 0 Then

MessageBox "存在空格"

End If
//==============================================================================
3、定义一

个数组 myarray(10) , 从 myarray(0)=0 开始赋值 到myarray(10)=10(提示:myarray(i)=i) ,请给出代码
Dim myarray(10)
i=0
For UBound(myarray)+1
myarray(i)=i
TracePrint "myarray(" & i & ")=" & myarray(i)
i=i+1
Next
//==============================================================================

相关文档
最新文档