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(\-1)
错误！未找到引用源。 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(\0)
子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, \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\& vbcrlf & vbcrlf & \查询：1 搜索：2 删除：3 增加：4\\主页·请输入对应字符进行相关操作\
Do While InputHome <> \And InputHome <> \If InputHome = \Or InputHome = \Then
InputHome = InputBox(\退出：Q 主页：H\& vbcrlf & vbcrlf & \查询：1 搜索：2 删除：3 增加：4\\主页·请输入对应字符进行相关操作\
ElseIf InputHome = \Then Do
查询结果 = \
Input查询 = InputBox(\退出：Q 主页：H\\查询·请输入编号进行查询\\编号\
If Input查询 = \Or Input查询 = \Then : InputHome = \: Exit Do ElseIf Input查询 = \Or Input查询 = \Then : InputHome = \: Exit Do ElseIf IsNumeric(Input查询) = True Then
查询结果 = 查询(数据库路径, Input查询) End If
If 查询结果 <> \Then MsgBox 查询结果, 65, \查询结果\Loop
ElseIf InputHome = \Then Do
搜索返回 = \: Show搜索 = \
Input搜索 = InputBox(\退出：Q 主页：H\& vbcrlf & vbcrlf & \可模糊搜索到编号、姓名、年龄、身高字段\\搜索·请输入关键字进行搜索\\关键字\
If Input搜索 = \Or Input搜索 = \Then : InputHome = \: Exit Do ElseIf Input搜索 = \Or Input搜索 = \Then : InputHome = \: Exit Do Else
搜索返回 = 搜索(数据库路径, Input搜索) End If
If 搜索返回 <> \Then
搜索结果 = Split(搜索返回, \
For i = UBound(搜索结果) - 1 To 0 Step - 1 Show搜索 = Show搜索 & 搜索结果(i) & vbCrLf Next
MsgBox Show搜索, 65, \搜索结果\End If Loop
ElseIf InputHome = \Then Do
查询结果=\删除结果=&；Input删除=InputBox(\退；IfInput删除=\；查询结果=查询(数据库路径,Input删除)；EndIf；If查询结果<>\；If删除结果=6Then删除数据库路径,Inpu；Loop；ElseIfInputHome=\
查询结果 = \: 删除结果 = \
Input删除 = InputBox(\退出：Q 主页：H\\删除·请输入编号进行删除\\编号\
If Input删除 = \Or Input删除 = \Then : InputHome = \: Exit Do ElseIf Input删除 = \Or Input删除 = \Then : InputHome = \: Exit Do ElseIf IsNumeric(Input删除) = True Then
查询结果 = 查询(数据库路径, Input删除) End If
If 查询结果 <> \Then 删除结果 = MsgBox(查询结果, 68, \确定要删除此条数据？\
If 删除结果 = 6 Then 删除 数据库路径, Input删除 Loop
ElseIf InputHome = \Then Do
Input增加 = InputBox(\退出：Q 主页：H\& vbcrlf & vbcrlf & \格式：姓名|年龄|身高\& vbcrlf & \例如：李雷|18|1.52\\增加·请输入要增加的一条数据\
If Input增加 = \Or Input增加 = \Then : InputHome = \: Exit Do ElseIf Input增加 = \Or Input增加 = \Then : InputHome = \: Exit Do ElseIf UBound(Split(Input增加, \= 2 Then
增加 数据库路径, Input增加 End If loop
ElseIf InputHome = \Or InputHome <> \Then : Exit Do Else
InputHome = InputBox(\退出：Q 主页：H\& vbcrlf & vbcrlf & \查询：1 搜索：2 删除：3 增加：4\\主页·请输入对应字符进行相关操作\
End If Loop EndScript