68. 132 Mod 13 的值为?:2 69.变量名称不合法：1MyArray 70.str=mid(\：\
71.哪个事件最先响应：onscriptload
72.以下哪一个命令的功能是设置屏幕分辨率?：setsc 73.QUI输入框控件返回值的变量类型是?：字符串 74.按键精灵的产品包括以下哪一个? ：按键盒子
75.哪一种方法能够找到命令的帮助说明?：在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方. 76.关于加密脚本的描述，下列是错误的是?：只有会员输入密码可以解开加密脚本
77.鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：50,100
78.WaitKey命令有几个参数?答案：0 79.vbCrLf的值为?A Chr(13) & Chr(10) 80.选出下列返回值类型不一样的选项。C A. InStr(str,str) B. Len(n) C. Join(arr) D. Asc(n)
81.a = 10.05 Mod 2 ,那么a的值为? 0
82.Round(3.141592,5)返回值为什么？3.14159 83.Int(3\\2)返回值等于多少？ Int(3/2)
84.返回已添加指定时间间隔的日期应使用下列哪一个函数? DateAdd 函数 85.arr=Split(\，问arr(5)等于多少？“6” 86.文本不存在,以下哪一个命令会新建立文本? C. WriteFileEx
87.下列语句中无法达到无限循环效果的是？C. For i = True To True : Next 6、以下命令无法改变窗口大小的是？
Call Plugin.Window.Move(Hwnd, 100, 100) 18、选出下列非键鼠操作的命令。
22、以下关于按键抓抓描述错误的是？
1、当n=3.141592*-1，以下语句返回值是绝对值的是？B. Abs(n)
4、以下哪一个变量不可能是数组? Const MyArray=2
5、假如a=\，b=\，c=\，d=\，以下返回值正确的是？IsNumeric(d) = True
6、arr=array(1,2,3,4,5,6,7,8,9)，问CStr(arr(5))等于多少？A \ 8、在脚本开头中加入代码 Msgbox Ture ,弹出的值为? 为空 9、QUI输入框控件返回值的变量类型是? 字符串
11、arr=array(0,1,2,3,4,5,6,7,8,9)，问Clng(arr(9))等于多少？B. 9
12、Round(3.141592,5)返回值为什么？3.14159
13、GetCursorShape(0)该命令返回值类型为？整数类型
17、执行Call Plugin.File.WriteINI(\\\内容\\命令后，IsFile = Plugin.File.IsFileExit(\返回值是？true
1、PrintScreen命令支持那种格式截图。D jpg 2、以下命令哪个不属于按键命令？StopScript
10、FindMutiColor命令的颜色特征点最少为几个？2个？ 3个错 20、以下哪一个命令会出错? TracePrint Cint(32768)
9、以下哪一个命令输出的值与其他三个不同? TracePrint fix(3.5) Erase 语句的含义是? 重新初始化固定大小数组的元素，并释放动态数组的存储空间
5、以下命令无法正常获取句柄的是？B 错误！未找到引用源。 A. Hwnd = Plugin.Window.Search(\未命名 - 画图\ 错误！未找到引用源。 B. Hwnd = Plugin.Window.Find(\ 错误！未找到引用源。 C. Hwnd = Plugin.Window.Find(\未命名 - 画图\
错误！未找到引用源。 D. Hwnd = Plugin.Window.Find(\未命名 - 画图\
7、关于自定义变量的描述以下哪一个是正确的? 自定义变量可以是数字或者字符串
A. 自定义变量可以是数组 D. 自定义变量可以是类
10、关于后台坐标的描述哪一个是不正确的? 后台坐标在窗体内是不会变化的 A. 后台坐标只针对窗体内生效
B. 后台坐标是由后台横坐标和后台纵坐标构成的
16、选出下列命令参数格式错误的选项。PutAttachment \ 17、Hex函数的返回值类型是? 字符串 21、以下哪一个命令可以定义常数? Const
23、以下不属于键鼠命令的是？Call Plugin.Bkgnd.SendString(Hwnd, 0)
前半部分为问答题 后半部分为选择题
问答题只需要复制单道题到按键精灵中后调试就会看到效果了 选择题是搜索的其他资料 并没有进行整理(紧供参考)
只有自己读懂每句代码的含义后再答题 这样不仅完成答题 还能丰富自己的知识
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 问答题部分
'六、1、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码 Dim 父窗口句柄, 子窗口句柄, 客户区大小大小 Call RunApp(\
Delay 1000
父窗口句柄 = Plugin.Window.Find(\
子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, \TracePrint \查找到的父窗口句柄为：\父窗口句柄 TracePrint \查找到的子窗口句柄为：\子窗口句柄 Call 比例大小(父窗口句柄, 子窗口句柄, 0.9) EndScript
Sub 比例大小(父窗口句柄, 子窗口句柄, 比例) Dim 父边框, 父左1, 父左2, 父右1, 父右2
父边框 = Plugin.Window.GetWindowRect(父窗口句柄)
父左1 = Clng(Split(父边框, \父左2 = Clng(Split(父边框, \ 父右1 = Clng(Split(父边框, \父右2 = Clng(Split(父边框, \
Call Plugin.Window.Size(子窗口句柄, (父右1 - 父左1) * 比例, (父右2 - 父左2) * 比例) End Sub
'随机生N(N也为随机数)个字母,将N个字母分别赋值到数组中,数组的大小以最节省空间为标准生成.请写出代码
'六、1、随即输出10个50到100正整数，并从大到小排列(冒泡排序),请写出代码
Dim 随即Int(9), i1, j, Cache, bSwap Randomize For i1 = 0 To 9
随即Int(i1) = Int((100 - 50 + 1) * Rnd + 50) TracePrint i1 & \：\随即Int(i1) Next
For j = 0 To UBound(随即Int) - 1 bSwap = False
For i1 = 0 To UBound(随即Int) - 1
If 随即Int(i1) < 随即Int(i1 + 1) Then '若是递增，则将 < 改为 > Cache = 随即Int(i1)
随即Int(i1) = 随即Int(i1 + 1) 随即Int(i1 + 1) = Cache bSwap = True End If Next
If bSwap = False Then Exit For Next
TracePrint \【冒泡排序后输出】\For i1 = 0 To UBound(随即Int)
TracePrint i1 & \：\随即Int(i1) Next
EndScript
'六、2、利用文本(TXT)模拟一个\数据库\数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加 等功能(伪数据库),请写出代码
Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索结果, Show搜索, 删除结果 数据库路径 = \档案.txt\
InputHome = InputBox(\退出：Q 主页：H\查询：1 搜索：2 删除：3 增加：4\主页·请输入对应字符进行相关操作\Do While InputHome <> \ If InputHome = \ InputHome = InputBox(\退出：Q 主页：H\查询：1 搜索：2 删除：3 增加：4\主页·请输入对应字符进行相关操作\ ElseIf InputHome = \ Do
查询结果 = \
Input查询 = InputBox(\退出：Q 主页：H\查询·请输入编号进行查询\编号\
If Input查询 = \查询 = \InputHome = \Exit Do
ElseIf Input查询 = \Or Input查询 = \Then : InputHome = \
ElseIf IsNumeric(Input查询) = True Then
查询结果 = 查询(数据库路径, Input查询) End If
If 查询结果 <> \查询结果, 65, \查询结果\ Loop
ElseIf InputHome = \ Do
搜索返回 = \搜索 = \
Input搜索 = InputBox(\退出：Q 主页：H\可模糊搜索到编号、姓名、年龄、身高字段\搜索·请输入关键字进行搜索\关键字\
If Input搜索 = \搜索 = \InputHome = \Exit Do
ElseIf Input搜索 = \Or Input搜索 = \Then : InputHome = \
Else
搜索返回 = 搜索(数据库路径, Input搜索) End If
If 搜索返回 <> \
搜索结果 = Split(搜索返回, \
For i = UBound(搜索结果) - 1 To 0 Step - 1
Show搜索 = Show搜索 & 搜索结果(i) & vbCrLf Next
MsgBox Show搜索, 65, \搜索结果\ End If Loop
ElseIf InputHome = \ Do
查询结果 = \删除结果 = \
Input删除 = InputBox(\退出：Q 主页：H\删除·请输入编号进行删除\编号\
If Input删除 = \删除 = \InputHome = \Exit Do
ElseIf Input删除 = \Or Input删除 = \Then : InputHome = \
ElseIf IsNumeric(Input删除) = True Then
查询结果 = 查询(数据库路径, Input删除) End If
If 查询结果 <> \删除结果 = MsgBox(查询结果, 68, \确定要删除此条数据？\
If 删除结果 = 6 Then 删除 数据库路径, Input删除 Loop
ElseIf InputHome = \ Do
Input增加 = InputBox(\退出：Q 主页：H\格式：姓名|年龄|身高\例如：李雷|18|1.52\增加·请输入要增加的一条数据\
If Input增加 = \增加 = \InputHome = \Exit Do
ElseIf Input增加 = \Or Input增加 = \Then : InputHome = \
ElseIf UBound(Split(Input增加, \ 增加 数据库路径, Input增加 End If loop
ElseIf InputHome = \ Else
InputHome = InputBox(\退出：Q 主页：H\查询：1 搜索：2 删除：3 增加：4\主页·请输入对应字符进行相关操作\ End If Loop EndScript
Function 查询(文本路径, 编号) Dim fso, myfile, i, flag, tempp flag = 1
Set fso = CreateObject(\ If fso.FileExists(文本路径) Then
Set myfile = fso.openTextFile(文本路径, 1, false) Else
flag = 0