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

//请写出运行一个程序的命令,例如运行按键精灵主程序,请给出代码//DimexePath//程序路径//exePath=D:\ProgramFiles\按键精灵9\按键精灵9.exe//如果路径不是变量，必须加上双引号//RunAppexePath//运行指定程序.//==============================================================================//字符号串1+2+3,请返回这个字符串表达式的值(返回值为6),请给出代码//定义变量DimMyString,a,b,c,，a1,b1,c1,d//将字符串1+2+3的值赋值给变量MyStringMyString=1+2+3//用Mid函数返回MyString中的的指定值a=Mid(MyString,1,1)'a包含1b=Mid(MyString,3,1)'b包含2c=Mid(MyString,5,1)'c包含3//用Int函数返回字符串的整数数值a1=int(a)b1=int(b)c1=int(c)d=a1+b1+c1TracePrintdMessageBoxd//==============================================================================//将字符串12345倒序排列成54321,请给出代码//定义变量zfc，把12345的值赋值给zfc//用Len函数返回zfc中的字符个数//循环读取zfc中的字符，并赋值给b//弹出窗口，字符串12345倒序排列成54321//Dimzfc，i,a,b//zfc=12345//geshu=Len(zfc)//用Len返回字符串中的个数//i=geshu//Forgeshu//a=Mid(zfc,i,1)//b=b&a//i=i-1//Next//TracePrintb&之前的字符串为&zfc//MessageBoxb//==============================================================================1、已知窗口句柄为Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键,请给出代码Hwnd=Plugin.Window.MousePoint()CallPlugin.Window.Move(Hwnd,0,50)MoveTo0+50,50+100LeftClick1//==============================================================================2、替换字符串12X34X56X中的X为|,请给出代码DimMyStringMyString=Replace(12X34X56X,X,|)TracePrintMyString//==============================================================================3、请将16进制颜色值FF00FF转成十进制并赋值给变量C,请给出代码DimC,D,i,jC=0D=UCase(FF00FF)Fori=1ToLen(D)j=Asc(Mid(D,i,1))-48Ifj9Thenj=j-7C=C*16+jNextTracePrintC//==============================================================================1、写出带两个数值型参数x和y的子函数,调用子函数得到x+y的值Functionsum(x,y)sum=cint(x)+cint(y)EndFunctionTracePrintsum(1,3)//==============================================================================2、判断字符串str是否存在空格,存在则弹出信息提示框,请给出代码Dimstr,SearchCharstr=XXXXXXXXXSearchChar=IfInstr(str,SearchChar)0ThenMessageBox存在空格EndIf//==============================================================================3、定义一个数组myarray(10),从myarray(0)=0开始赋值到myarray(10)=10(提示:myarray(i)=i),请给出代码Dimmyarray(10)i=0ForUBound(myarray)+1myarray(i)=iTracePrintmyarray(&i&)=&myarray(i)i=i+1Next//==============================================================================