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. Right 从字符串右边返回指定数目的字符。 D. Mid 从字符串中返回指定数目的字符。 MID(text,start_num,num_chars)
10、以下哪一个返回值是字符串? (a) A. len(\ B. \
C. clng(\
D. \
11、以下关于按键抓抓描述错误的是？(B)
A. 按键“PrintScreen”键截图内容可在图像选项界面中显示。 B. 支持后台找色找图效果测试。
C. 支持区域找色、模糊找色、中心找色、区域找图等效果测试。 D. 放大镜可查询当前屏幕相应坐标的坐标值与颜色值。 12、arr=Split(\，问arr(5)等于多少？(a) A. \ B. 6 C. 5