按键精灵1--6级答案

前半部分为问答题 后半部分为选择题 以下哪一个不是按键精灵的产品? 按键箱子 录制的脚本没有以下哪个功能? 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 鼠标特征码 下列哪一个命令不属于"全部命令"? 内核命令 按键精灵自带的抓图工具是? 按键抓抓 哪一种方法能够找到命令的帮助说明? 在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方. 按键精灵不可以在以下哪个系统中使用? Linux 可以使用神盾功能的程序是? 小精灵商业版 旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误? 使用"自动缩进"功能  WaitClick命令的含义是? 按任意鼠标键继续  哪一类脚本程序是按键精灵官方授予销售权的? 小精灵商业版 只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因? Plugin目录下装有不是官方提供的插件引起的 关于加密脚本的描述，下列是错误的是? 只有会员输入密码可以解开加密脚本 GetLastClick命令的含义是? 检测上次按过的鼠标键 按键精灵生成的小精灵程序的后缀名是? EXE 按键精灵会员不能享受的论坛权限是? 可以访问按键精灵“版版家园”专区享受版主资源 网页按键精灵是下列哪一个程序? wqm.exe 按键精灵的产品包括以下哪一个? 按键盒子 按键精灵是下列哪一个程序? 按键精灵9.exe 按键精灵会员卡注册码,没有以下哪一种? 天卡(1天) UnlockMouse命令的含义是? 解除锁定鼠标位置  按键精灵会员不能享受的资源是? 免费小精灵的源代码 RightUp命令的含义是? 右键弹起 按键精灵的功能不包括? 自动发明汽车、飞机、火箭等机器 按键精灵能兼容下列哪一种语言? VBS 不能用抓抓工具直接获取的是? PID 关于按键精灵的描述，以下正确的是? 按键精灵是一款绿色的模拟键盘鼠标操作的软件  脚本编辑界面上没有的按钮是?启动  与取色判断命令没有直接关系的参数是? 按键码 以下哪种方式可以在脚本编辑界面中获取到新的插件? 点击"资源库"按钮,然后导入需要的插件 LeftClick命令的含义是? 左键单击 按键精灵官方网站的网址是? http://www.anjian.com/  RestoreMousePos命令的含义是? 恢复上次保存的鼠标位置 如果按键精灵在某些环境失效,可以使用下列哪个工具? 神盾 SaveMousePos命令的含义是? 保存当前鼠标所在位置 GetCursorPos命令的含义是? 得到鼠标位置坐标 键盘命令的类型不包括? 锁定 按键精灵里运算符乘号是? * KeyPress命令的含义是? 按键 MiddleClick命令的含义是? 中键单击 LockMouse命令的含义是? 锁定鼠标位置 按键精灵会员不能享受的功能是? 脚本编写服务 GetCursorShape命令的含义是? 得到鼠标形状 按键精灵自带的用户界面叫做什么? QUI界面 RightClick命令的含义是? 右键单击 按键精灵里运算符减号是? - 按键精灵默认的启动热键是? F10 属于"全部命令"的是? 我的命令库 “录制”功能不能录制的内容是? 记录鼠标指向的窗口句柄 按键抓抓是下列哪一个程序? picker.exe 想要知道脚本是否存在错误,应该使用下列哪个功能? 调试 以下哪种方式不可以获得论坛银币? 发布大量无内容的主题贴 按键精灵里运算符除号是? / 按键精灵会员不能享受的技术支持是? 技术人员上门服务 按键精灵自带的功能不包括以下哪一个? 路由功能 GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0 变量的定义，以下哪个是正确的? dim a 下列哪一种方法不能够正确输入命令? 鼠标右键单击命令 按键精灵的功能是？模拟鼠标键盘操作的工具  MoveR命令的含义是? 相对移动 关于小精灵去广告的描述，下列正确的是? 会员用户在“制作按键小精灵”界面上->更多设置->选择会员去广告（是）即可  按键精灵里运算符加号是? + 对小精灵的描述，以下是正确的? 按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。  LeftDown命令的含义是? 左键按下 键鼠的模拟方式不包括以下哪一个? 虚拟模拟 3、区域找图的命令是? FindPic 4、按键精灵语言大小写的描述哪一个是正确的? 按键精灵不区分大小写 7、KeyPress命令有几个参数? 2 13、不能实现键盘按下"A"键的命令是? KeyPressW "A",1 15、下列哪一个不是循环命令? Select Case 颜色值为"000000"是什么颜色? 黑色 以下哪一个不属于按键精灵的"全部命令"? 远程嗅探命令  20、下列RGB颜色值，书写正确的是? "DD"  23、GetPixelColor命令有几个参数? 2 25、以下哪一段命令能正确执行"如果(70,416)的颜色等于"FFFFFF"则鼠标移动到点(100,200)"? IfColor 70, 416, "FFFFFF", 0 Then:MoveTo 100,200:End If 26、以下哪一个写法不能点击"shift"键? KeyPress 60, 1 28、下列哪一个不是逻辑运算符? Const 33、FindColorEx命令有几个参数? 9 36、下列哪一段代码不能输出"L"键? Keyup "L", 1  44、SetSimMode 1 的实际意义是? 使用硬件模拟 1、鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：D50,100  2、"F10"的按键码是?  B. 121 3、下列哪一个不是键盘命令?A KeyClick  4、循环可以使用下列哪个语句?  B. For语句 5、回车键的按键码是? A. 13  6、默认情况下某些特定窗口模拟按键可能失效,以下哪种方法可能可以解决? D. 在脚本开头增加代码:SetSimMode 2  7、如何退出For循环的命令?  D. Exit For  8、得到一个按键的按键码,以下哪一个方法是完全正确的? 在按键精灵编辑界面的基本命令的键盘命令部分查询 9、鼠标右键按下的命令是? RightDown  10、以下哪一个命令不会暂停脚本? for...next  11、下列哪一个是键盘命令? KeyPress  12、鼠标所在位置为(50,50),经过命令 MoveR 50,100 后鼠标所在位置为：100,150  13、鼠标左键按下的命令是? LeftDown 14、解除鼠标锁定是下列哪一个命令? UnlockMouse  15、组合键"CTRL+C"的正确按键顺序是? 按下"CTRL",点击"C",弹起"CTRL" 16、下列属于鼠标命令的是? RightClick 17、以下哪一种方式不能无限循环? 在脚本开头加入"For 10000",脚本尾部加入"Next"  18、WaitKey命令有几个参数? 0 19、如何退出Do循环的命令? Exit Do 20、下列哪一个是鼠标命令? LeftClick  21、下列RGB颜色值，书写错误的是? "FFFFFFFF"  22、以下哪一个KeyPress命令的路? 检测血条上某一点,如果此点不是血条的颜色则执行加血操作  23、FindColor命令有几个参数? 7 24、哪一种不能正确调用KeyPress命令? KeyPress "FA",1  25、延时的命令是? Delay 26、取指定点颜色的命令是? GetPixelColor 27、延迟2小时,以下哪一句代码是正确的? Delay 1000*60*60*2  28、以下哪一个是自动打怪的思路? 检测怪物血条上某一点,如果此点是血条的颜色则执行打怪操作  29、EndScript命令的意义是? 脚本停止运行  30、以下哪一个是循环命令? for...next 31、SetSimMode命令有几个参数? 1 32、鼠标所在位置为(100,50),经过命令 MoveToS 50+50,100 后鼠标所在位置为? 100,100  33、区域找色的命令是? FindColor 34、FindPic命令有几个参数? 8 35、按键精灵找图命令需要的图片格式是下列哪一个? *.BMP  36、脚本停止运行命令是哪一个? EndScript  37、延迟1天,以下哪一句代码是正确的? Delay 1000*60*60*24*1 38、下列哪一个命令会暂停脚本? WaitClick 39、不能正确调用KeyPress命令的写法是? KeyPress "FB",1  40、鼠标所在位置为(0,50),经过命令 MoveTo 50+50,100 后鼠标所在位置为? 100,100  41、代码KeyPress "A"，1 调试后提示出错,错误的原因是? 逗号使用了全角符号无法识别导致错误  42、锁定鼠标位置是下列哪一个命令? LockMouse 43、下面哪一个命令会暂停脚本? MsgBox 44、鼠标左键单击的命令是? LeftClick 45、鼠标左键双击的命令是? LeftDoubleClick  46、文本内容和数字连接在一起(连接符)应使用下列哪一个符号? &  47、以下哪一个命令能够延时1个小时? delay 1000*60*60  48、按键码105是下列哪一个按键? NUM 9 49、指定句柄进行截图，以下哪种情况不会导致截到的图是黑色？窗口标题动态变化 50、空格键的按键码是? 32  4、以下哪一个函数返回值的数据类型与其他三个的不一样? Filter A. Instr B. Ubound C. Clng D. Filter 5、以下哪一个函数返回值的数据类型与其他三个不一样? A. Array 错 B. Filter 错 C. Split D. Replace 18、以下哪一个返回值是字符串?C A. clng("520") B. "10"-1 C. "anjian"&"vrbrothers" D. len("anjian") Msgbox "anjian"&1 将会弹出什么内容? anjian1 以下哪一个命令可以将表达式转化为字符串：Cstr  10、假如“神盾”图像存在，以下无法识别到图像的命令是？ FindPic 0, 0, 1024, 768, "神盾.jpg", 0.9, intX, intY 11、IsNumeric(n)，当n等于"VrBrothers"时返回什么？False 12、Redim 命令的作用对象是? 数组 1、关于 GetLastKey 命令的描述哪一个是错误的? D. 返回值是字符串 2. 以下不属于按键命令的是？ OnThreadLoad 3. 假如MyDate = "October 19, 1962": YourDate = #10/19/62#: NoDate = "Hello"，返回值为False的是？ D. IsDate(NoDate) 4. 字符串"Vrbrothers"的长度为? 10 5. GetOSType()返回值描述正确的是？返回当前系统类型 6. Text = Plugin.File.ReadINI("小节名", "键值", "文件路径")，读取文件格式为？ A. *.ini 7. 常数 VbOk 的值为? 1 8. 以下语句无法返回时间信息的是？B. MyTime=Now(Time) 9. 下列哪一个函数可以取数组最大可用下标? Ubound 10. 以下对函数的描述哪一个是错误的? 函数一定有返回值 11. 以下命令哪个可以终止所有线程运行并停止脚本。ExitScript 12. ExitOS命令中，以下描述错误的是？可执行待机 13. 关于自定义变量的描述以下哪一个是错误的? 可以是数字或者字符串 错 数组？ 14. 以下哪一个函数的功能是指明表达式的值是否为数字?IsNumeric 15、Set 语句的含义是? 将对象引用赋给变量或属性 16.选出下列命令参数格式错误的选项。PutAttachment "\", "*.*"？ 17.后台取色命令需要的参数为? 句柄和坐标 18. 以下命令可以获取当前窗口所在屏幕位置精确坐标的是？ Text = Plugin.Window.GetWindowRect(Hwnd) 19. 选出以下命令参数错误的。 Import "Window" 20.MsgBox命令最多可以使用几个参数? 5个 21. GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？ 0 22. 以下选项中不符合调用 规则 编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf 的是？Asc(F1) 23. 以下关于按键抓抓描述错误的是？支持后台找色找图效果测试 24.Media.Play命令不支持哪个文件格式。Mp4 25.数组MyArray(5)的最大可用下标为?Ubound 5 26.数组MyArray(5)包含的元素个数为?6 27.字符串"&H22"用Clng命令转换后除以2再用Cstr命令转换,最后结果为? ‘‘17’’ 29.由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为? 323232 30.当str = "(1+2*3-1)/2"，Eval(str)返回值为？3 31.RGB值分解为红绿蓝分量,分量值的范围是? 0-255 32.Call Plugin.Window.Close(参数)命令需要以下哪种参数？窗口句柄 33.True的值是? -1 34.以下哪一个是类型转换函数? clng 35.使用WQM的脚本代码第一步应该做什么? 绑定WQM 36.以下对子程序和函数的描述哪一个是正确的? 函数可以代替子程序 37.以下命令无法正常获取句柄的是？Active 38.myarray=Array(1,2,3,4,5),那么myarray(4)的值为? 5 39.如果有多个重复标题的窗口,以下哪个命令能够直接获取到所有对应窗口的 句柄? HwndEx = Plugin.Window.Search("记事本") HwndEx = Plugin.Window.SearchEx(0,"记事本",0) 40.DateDiff命令有几个必选参数？且返回值类型是？3个 41.FindMutiColorEx命令有几个参数？8 42.myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为?4 43.Xor 运算符描述正确的是? ：用于对两个表达式进行逻辑异或运算。 44.GetLastKey：检测上次按键，返回数字，键码 45.Const 语句 ：定义常量 46. 以下哪一个命令不能用于调试内容输出?：beep 47.关于事件描述错误的是：事件子程序的参数可以是任意多个 48.以下哪个命令需要绑定WQM使用：Call Plugin.Web.ScrollTo(0,0) 49.常数vbok的值为：1 50.以下哪种情况可能导致获取不到网页元素：网页未完全加载 51.Join 命令的参数类型是?：数组 52.VarType 函数：返回指示变量子类型的值 53.下列对按键精灵变量描述正确的是?：不定义可以直接使用变量 54.以下哪个不是数学函数：ccur 55.以下哪个的值是true：not（false） 56. a=34,b=&H22,下列描述哪一个是错误的?：cstr（b）的值为“&H22” 57.vbcrlf--回车换行符 58. 以下哪一个命令可以得到变量的类型?：VarType 59. 关于延时命令描述错误的是?：可以停止脚本 60.str=Clng(Mid("234",2,1)),那么str的值为? 3 61. 以下哪个方法不能关闭窗体?：sWindow = Plugin.Window.IsWindow(Hwnd) 62.双引号的ANSI 字符代码是?：34 63.关于找图找色描述错误的是? 找图比找色更准确 错误：从思路上来说找图等同于找多点颜色  64.大型脚步中不推荐使用：goto命令 65.发送字符串：sendstring 66.以下对子程序的描述哪一个是正确的?：子程序没有返回值 67. 对于按键精灵与VBS的描述正确的是?：按键可以直接调用VBS命令 68. 132 Mod 13 的值为?:2 69.变量名称不合法：1MyArray 70.str=mid("234",2,1)："3" 71.哪个事件最先响应：onscriptload 72.以下哪一个命令的功能是设置屏幕分辨率?：setsc 73.QUI输入框控件返回值的变量类型是?：字符串 74.按键精灵的产品包括以下哪一个? ：按键盒子 75.哪一种方法能够找到命令的帮助说明?：在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方. 76.关于加密脚本的描述，下列是错误的是?：只有会员输入密码可以解开加密脚本 77.鼠标所在位置为(50,50),经过命令 MoveTo 50,100 后鼠标所在位置为：50,100 78.WaitKey命令有几个参数? 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 ：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("1,2,3,4,5,6,7,8,9", ",")，问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="123abc456"，b="abc123def"，c="abc，d="123"，以下返回值正确的是？IsNumeric(d) = True  6、arr=array(1,2,3,4,5,6,7,8,9)，问CStr(arr(5))等于多少？A "6"  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("Command", "Val", "内容", ".\Config.ini")命令后，IsFile = Plugin.File.IsFileExit(".\Config.ini")返回值是？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("#32770", -1)   C. Hwnd = Plugin.Window.Find("MSPaintApp", "未命名 - 画图")   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("notepad.exe") Delay 1000 父窗口句柄 = Plugin.Window.Find("Notepad", 0) 子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, "Edit", 0) TracePrint "查找到的父窗口句柄为：" & 父窗口句柄 TracePrint "查找到的子窗口句柄为：" & 子窗口句柄 Call 比例大小(父窗口句柄, 子窗口句柄, 0.9) EndScript Sub 比例大小(父窗口句柄, 子窗口句柄, 比例) Dim 父边框, 父左1, 父左2, 父右1, 父右2 父边框 = Plugin.Window.GetWindowRect(父窗口句柄) 父左1 = Clng(Split(父边框, "|")(0)) : 父左2 = Clng(Split(父边框, "|")(1)) 父右1 = Clng(Split(父边框, "|")(2)) : 父右2 = Clng(Split(父边框, "|")(3)) Call Plugin.Window.Size(子窗口句柄, (父右1 - 父左1) * 比例, (父右2 - 父左2) * 比例) End Sub '随机生N(N也为随机数)个字母,将N个字母分别赋值到数组中,数组的大小以最节省空间为 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 生成.请写出代码 '六、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搜索, 删除结果 数据库路径 = "C:\档案.txt" InputHome = InputBox("退出：Q 主页：H" & vbcrlf & vbcrlf & "查询：1 搜索：2 删除：3 增加：4", "主页·请输入对应字符进行相关操作") Do While InputHome <> "Q" And InputHome <> "q" If InputHome = "H" Or InputHome = "h" Then InputHome = InputBox("退出：Q 主页：H" & vbcrlf & vbcrlf & "查询：1 搜索：2 删除：3 增加：4", "主页·请输入对应字符进行相关操作") ElseIf InputHome = "1" Then Do 查询结果 = "" Input查询 = InputBox("退出：Q 主页：H", "查询·请输入编号进行查询", "编号") If Input查询 = "Q" Or Input查询 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input查询 = "H" Or Input查询 = "h" Then : InputHome = "H" : Exit Do ElseIf IsNumeric(Input查询) = True Then 查询结果 = 查询(数据库路径, Input查询) End If If 查询结果 <> "" Then MsgBox 查询结果, 65, "查询结果" Loop ElseIf InputHome = "2" Then Do 搜索返回 = "" : Show搜索 = "" Input搜索 = InputBox("退出：Q 主页：H" & vbcrlf & vbcrlf & "可模糊搜索到编号、姓名、年龄、身高字段", "搜索·请输入关键字进行搜索", "关键字") If Input搜索 = "Q" Or Input搜索 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input搜索 = "H" Or Input搜索 = "h" Then : InputHome = "H" : 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 = "3" Then Do 查询结果 = "" : 删除结果 = "" Input删除 = InputBox("退出：Q 主页：H", "删除·请输入编号进行删除", "编号") If Input删除 = "Q" Or Input删除 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input删除 = "H" Or Input删除 = "h" Then : InputHome = "H" : Exit Do ElseIf IsNumeric(Input删除) = True Then 查询结果 = 查询(数据库路径, Input删除) End If If 查询结果 <> "" Then 删除结果 = MsgBox(查询结果, 68, "确定要删除此条数据？") If 删除结果 = 6 Then 删除 数据库路径, Input删除 Loop ElseIf InputHome = "4" Then Do Input增加 = InputBox("退出：Q 主页：H" & vbcrlf & vbcrlf & "格式：姓名|年龄|身高" & vbcrlf & "例如：李雷|18|1.52", "增加·请输入要增加的一条数据") If Input增加 = "Q" Or Input增加 = "q" Then : InputHome = "Q" : Exit Do ElseIf Input增加 = "H" Or Input增加 = "h" Then : InputHome = "H" : Exit Do ElseIf UBound(Split(Input增加, "|")) = 2 Then 增加 数据库路径, Input增加 End If loop ElseIf InputHome = "Q" Or InputHome <> "q" Then : Exit Do Else InputHome = InputBox("退出：Q 主页：H" & vbcrlf & vbcrlf & "查询：1 搜索：2 删除：3 增加：4", "主页·请输入对应字符进行相关操作") End If Loop EndScript Function 查询(文本路径, 编号) Dim fso, myfile, i, flag, tempp flag = 1 Set fso = CreateObject("scripting.FileSystemObject") If fso.FileExists(文本路径) Then Set myfile = fso.openTextFile(文本路径, 1, false) Else flag = 0 End If For i = 1 To 编号 - 1 If Not myfile.AtEndOfLine Then myfile.SkipLine tempp = myfile.Line End If Next If flag = 1 Then If Not myfile.AtEndOfLine Then 查询 = myfile.ReadLine Else 查询 = "编号不存在！" End If myfile.close Else 查询 = "文件不存在！" End If Set fso = Nothing End Function Function 搜索(文本路径, 关键字) Dim ForReading, ForWriting ForReading = 1 : ForWriting = 2 : 搜索 = "" Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If Instr(1, strLine, 关键字) > 0 Then 搜索 = strLine & "," & 搜索 TracePrint "搜索=" & 搜索 strNewFile = strNewFile & strLine & vbcrlf Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Function Sub 删除(文本路径, 编号) Dim ForReading ,ForWriting ForReading = 1 ForWriting = 2 Dim objFSO,objFile,strLine,strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径,ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then strNewFile = strNewFile Else strNewFile = strNewFile & strLine & vbcrlf End If Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路径,ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Sub Sub 增加(文本路径, 文本内容) Dim ForReading ,ForWriting ForReading = 1 : ForWriting = 2 Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(文本路径, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline strNewFile = strNewFile & strLine & vbcrlf Loop TracePrint objFile.Line strNewFile = strNewFile & objFile.Line & "|" & 文本内容 & vbcrlf objFile.Close Set objFile = objFSO.OpenTextFile(文本路径, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = Nothing End Sub EndScript '六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含"接收"关键字的文本(批量消息发送器),请写出代码 '六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码 '六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码 '六、杨辉三角百度说明:http://baike.baidu.com/view/7804.htm '五：1、写出三种计算颜色相似度的算法,函数返回值为相似度.请写出代码 MsgBox 颜色相似度1("Fffffa", "FFFFFF"),64,"颜色相似度1" MsgBox 颜色相似度2("Fffffa", "FFFFFF"),64,"颜色相似度2" MsgBox 颜色相似度3("Fffffa", "FFFFFF"),64,"颜色相似度3" Function 颜色相似度1(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度1 = 1 - round((abs((R1 - R2) / 255) + abs((G1 - G2) / 255) + abs((B1 - B2) / 255)) / 3, 3) End Function Function 颜色相似度2(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度2 = 1 - round((abs(R1 - R2) + abs(G1 - G2) + abs(B1 - B2)) / 255 / 3, 3) End Function Function 颜色相似度3(当前颜色, 对比颜色) Call Plugin.Color.ColorToRGB(当前颜色, R1, G1, B1) Call Plugin.Color.ColorToRGB(对比颜色, R2, G2, B2) 颜色相似度3 = 1 - round((abs(R1 / 255 - R2 / 255) + abs(G1 / 255 - G2 / 255) + abs(B1 / 255 - B2 / 255)) / 3, 3) End Function '五：2、(前台)区域范围为(100,150)到(200,300)内的所有点是否均为"FFFFFF",是则弹出对话框"没有其他颜色",否则弹出第一个点的颜色值并退出程序. 请写出代码 Dim x, y, RtColor x = 100 : y = 150 Do While y < 301 For x = 100 To 200 RtColor = Plugin.Color.GetPixelColor(x, y, 0) If RtColor <> "FFFFFF" Then Exit do Next : y = y + 1 Loop If RtColor <> "FFFFFF" Then MessageBox X & " , " & Y & "坐标点颜色为：" & RtColor Else MessageBox "没有其他颜色" End If EndScript '五：3、写一个函数，要求：返回一个数值范围内所有偶数之和。参数1、参数2：整数型，数字 提示：For循环与VBS命令函数应用。 TracePrint 求偶数之和(1, 61) TracePrint 求偶数之和(3, 19) TracePrint 求偶数之和(0, 83) TracePrint 求偶数之和(2, 1) EndScript Function 求偶数之和(参数1, 参数2) Dim 差, i 求偶数之和 = 0 : 差 = Abs(参数1 - 参数2) If 差 mod 2 = 1 Then : 差 = 差 - 1 : End If For i = 0 To 差 / 2 - 1 求偶数之和 = 求偶数之和 + 差 - i * 2 'TracePrint "i=" & i & " 求偶数之和=" & 求偶数之和 & " 差=" & 差 - i * 2 Next End Function '五：4、遍历字符串"A1a2d5m8Qz",取出所有小写字母及数字,并按照与原来相反的顺序拼接成新的字符串,请写出代码 Dim Str, k, XiaoXie, 新字符串 Str = "A1a2d5m8Qz" For k = 1 To Len(Str) XiaoXie = LCase(mid(Str, k, 1)) If XiaoXie = mid(Str, k, 1) Then 新字符串 = XiaoXie & 新字符串 End If Next TracePrint 新字符串 '五：5、写一个脚本，要求：在画图工具中画一个渐变放大的多边形（大于4边）漩涡效果图。 提示：For循环的应用。 Call 画多边漩涡(400, 200, 50, 7) //五边形 EndScript Sub 画多边漩涡(x, y, r, n) //x 圆心横坐标 y 圆心纵坐标 //r 半径 n 多边形的边数 Const PI = 3.1415926 Dim x1, y1 //起点坐标 dim x2, y2 //下一个点坐标 x1 = x y1 = y - r Dim t t = PI For i = 1 To 30 If i > 1 Then MoveTo x1, y1 Delay 20 LeftUp 1 End If MoveTo x1, y1 Delay 20 LeftDown 1 t = t - pi * 2 / n x2 = x + int(r * sin(t)) y2 = y + int(r * cos(t)) //更新起点坐标 x1 = x2 y1 = y2 r = r + 2 Next End Sub '五：1、写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。提示：cos函数与sin函数应用。 Call 画漩涡(420, 280) EndScript Function 画漩涡(起点X, 起点Y) Dim HX, HY, n n = 1 While HX < 600 MoveTo HX, HY : Delay 3 HX = 起点X + cos(n) + n * sin(n) HY = 起点Y + sin(n) - n * cos(n) n = n + 0.1 Wend End Function '五：2、随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： Dim 随机, 猜测, 下限, 上限, 次数 Randomize 随机 = Int(100 * Rnd + 1) TracePrint "随机=" & 随机 下限 = 1 : 上限 = 100 猜测 = Cint(InputBox("请输入你的猜测", "猜数字游戏")) For 次数 = 1 To 99 : Delay 100 If 猜测 < 随机 and 猜测 > 下限 Then : 下限 = 猜测 ElseIf 猜测 > 随机 and 猜测 < 上限 Then : 上限 = 猜测 ElseIf 猜测 = 随机 Then MsgBox "总共" & 次数 & "次猜中了 八戒 看来今年你又要涨价了！", 64, "程序·提示" Exit For End If 猜测 = Cint(InputBox("答案范围为：" & 下限 & "~" & 上限, "程序·提示 还可再猜" & 100 - 次数 & "次 ")) Next EndScript '五：3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码 Dim Text, T, G, S For T = 0 To 99 G = T Mod 10 S = Int(T / 10) If (G + S) = 10 and Text <> "" Then : Text = Text & "，" & T ElseIf (G + S) = 10 and Text = "" Then : Text = T End If Next MsgBox "100以内所有个位数加十位数等于10的数：" & VbCrlf & VbCrlf & Text, 64, "程序·提示" EndScript '五：4、写一个函数，已知一段坐标信息的字符串为："260,270|290,260|310,230|320,200,10|300,150|280,150,10|270,130|250,130"，计算得出离185,246坐标最近的一组坐标。提示：For循环与数组应用。 TracePrint 坐标最近判断("260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130", "185,246") EndScript Function 坐标最近判断(信息, 坐标) Dim Arr, Str, StrX, StrY, Ping, a, b, c, i Arr = Split(信息, "|") '信息分离 Str = Split(坐标, ",") '坐标分离 StrX = Clng(Str(0)) : StrY = Clng(Str(1)) '提取坐标X与Y值 For i = 0 To UBound(Arr) '勾股定理计算每个坐标到指定坐标的平方值 If i = 0 Then Ping = (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 Else Ping = Ping & "/" & (Abs(Clng(Split(Arr(i), ",")(0)) - StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ",")(1)) - StrY)) ^ 2 End If Next TracePrint Ping b = Split(Ping, "/") : a = 0 : c = b(0) TracePrint c For i = 1 To UBound(b) TracePrint "b(" & i & ")=" & b(i) If Clng(b(i)) < Clng(c) Then : c = b(i) : a = i : End If Next 坐标最近判断 = Arr(a) End Function '五：5、写一个算法可以将十进制的字符串转成八进制的字符串.例如"8"->"10",请写出代码 Dim 十进数 十进数 = InputBox("输入你想转换的十进制数字", "十转八进制·算法", "") MsgBox "十进制数："&十进数 & " → 八进制数：" & 十转八进制算法(十进数), 64, "程序·提示" EndScript Function 十转八进制算法(十进数) 十转八进制算法 = "" While 十进数 > 0 十转八进制算法 = 十进数 Mod 8 & 十转八进制算法 十进数 = 十进数 \ 8 Wend End Function '四：1、切换所有标题包含"Internet Explorer"的窗口,请写出代码 Dim HwndEx, MyArray, i HwndEx = "" HwndEx = Plugin.Window.Search("Internet Explorer") If HwndEx <> "" Then MyArray = Split(HwndEx, "|") For i = 0 To UBound(MyArray) - 1 '模糊搜索最后一个值是空的所以忽略 Call Plugin.Window.Top(Clng(MyArray(i)), 0) Call Plugin.Msg.Tips("当前共有" & UBound(MyArray) & "个窗口包含“Internet Explorer”" & VbCrlf & "切换为第" & i + 1 & "个窗口") Delay 1500 Call Plugin.Window.Top(Clng(MyArray(i)