按键精灵认证总结(7)

185,246坐标最近的一组坐标。 提示：For循环与数组应用。

3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码

4、随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： 例如:

随机数为:60，用户输入20，程序提示\答案范围为:20~100\。 用户再次输入75，程序提示\答案范围为:20~75\。 用户再次输入60，程序提示\猜中\，然后退出程序。

5、写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。提示：cos函数与sin函数应用。

1、判断字符串str是否为数字,是则弹出信息提示框\这是一个数字\请给出代码 Dim str,Mycheck //定义 str = “123456”

Mycheck=IsNumeric(str) //判断str是否是数字，并把返回值赋值给Mycheck If Mycheck = true Then MsgBox \这是一个数字\ //如果是数字，则弹出信息提示框\这是一个数字\End If

2.把字符串\转换为数值型,请给出代码 Dim str,Mycheck //定义 str = \

Mycheck=CInt(str) //类型转换 TracePrint Mycheck

3、获取当前标题包含\的窗口句柄的数量,请给出代码

HwndEx = Plugin.Window.Search(\遍历符合“Internet”窗口的标题的句柄保存到数组

TracePrint HwndEx //调试输出句柄数组 dim MyArray

MyArray = Split(HwndEx, \ //下面这句用于分割字符串,将获得的句柄组分割 i=UBound(MyArray) //取数组最大可用下标 TracePrint i //输出窗口句柄数量

//请写出运行一个程序的命令,例如运行按键精灵主程序,请给出代码 //Dim exePath //程序路径

//exePath = \按键精灵9\\按键精灵9.exe \//如果路径不是变量，必须加上双引号 //RunApp exePath //运行指定程序.

//==============================================================================

//字符号串\请返回这个字符串表达式的值(返回值为6),请给出代码 //定义变量

Dim MyString, a, b, c,，a1,b1,c1, d

//将字符串\的值赋值给变量MyString MyString = \

//用Mid函数返回MyString中的的指定值 a = Mid(MyString, 1, 1)'a包含 \b = Mid(MyString, 3, 1)'b包含 \c = Mid(MyString, 5, 1)'c包含 \//用Int函数返回字符串的整数数值 a1 = int(a) b1 = int(b) c1 = int(c)

d = a1 + b1 + c1 TracePrint d MessageBox d

//==============================================================================

//将字符串\倒序排列成\请给出代码 //定义变量zfc，把\的值赋值给zfc //用Len函数返回zfc中的字符个数 //循环读取zfc中的字符，并赋值给b

//弹出窗口，字符串\倒序排列成\//Dim zfc，i,a,b //zfc=\

//geshu = Len(zfc)//用Len返回字符串中的个数 //i=geshu //For geshu

//a = Mid(zfc, i, 1) //b = b & a //i=i-1 //Next

//TracePrint b&\之前的字符串为\//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、替换字符串\中的\为\请给出代码 Dim MyString

MyString = Replace(\

TracePrint MyString

//==============================================================================

3、请将16进制颜色值\转成十进制并赋值给变量C,请给出代码 Dim C,D,i,j C = 0

D = UCase(\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 = \

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 \ i=i+1 Next

//==============================================================================

好好利用ctrl+f键

有些是错题，看清楚再答哈。

1、以下语句无法返回时间信息的是？(c) A. MyTime=Hour(Time) B. MyTime=Minute(Time) C. MyTime=Now(Time) D. MyTime=Second(Time)

2、在脚本开头中加入代码 Msgbox Ture ,弹出的值为?(b) A. 0 B. 为空 C. -1 D. 1

3、MsgBox命令最多可以使用几个参数?(c) A. 4 B. 3 C. 5 D. 6

4、以下哪一个值是True?(b) A. not(true) B. not(false) C. cstr(false) D. clng(false)

5、在大型脚本的设计中,以下哪一个命令不推荐使用?(a)

A. goto命令 B. 循环命令 C. 判断条件命令 D. 调用子程序命令

6、当n=3.141592*-1，以下语句返回值是绝对值的是？(a) A. Abs(n) 3.141592 (Abs函数返回number的绝对值) B. Int(n) -4 (Int 函数返回小于或等于 number 的第一个负整数) C. CLng(n)-4 (CLng 函数通常向与此数最接近的偶数取整) D. Fix(n) -3 (Fix 函数返回大于或等于 number 参数的第一个负整数)

7、GetLastKey命令在获取一次ansi字符代码后继续循环执行返回值是？C A. -1 B. 空值 C. 0

D. 最后一次获取的ANSI字符代码

8、以下哪个方法不能关闭窗体?(a)

A. sWindow = Plugin.Window.IsWindow(Hwnd) (判断窗体是否存在) B. Call Plugin.Window.CloseEx(Hwnd) (调用窗口插件完全关闭窗口) C. Call Plugin.Memory.TerminateProc(Hwnd) (调用内存\\进程插件结束窗口) D. Call Plugin.Window.Close(Hwnd) (窗口插件关闭窗口)

//9、以下哪一个函数返回值数据类型与其他三个不一样? (a) A. Instr 返回某字符串在另一字符串中第一次出现的位置。 B. Replace 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。 C. Righ …… 此处隐藏：2663字，全部文档内容请下载后查看。喜欢就下载吧 ……