按键精灵1-6级答案

1、以下哪一个不是按键精灵的产品按键箱子录制的脚本没有以下哪个功能记录鼠标特征码下列哪一个命令不属于全部命令内核命令按键精灵自带的抓图工具是按键抓抓哪一种方法能够找到命令的帮助说明在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.按键精灵不可以在以下哪个系统中使用Linux可以使用神盾功能的程序是小精灵商业版旧版本的脚本导入到新版本中,以下哪种方法不可以纠正语法错误使用自动缩进功能?WaitClick命令的含义是按任意鼠标键继续？哪一类脚本程序是按键精灵官方授予销售权的小精灵商业版只要在编辑脚本，切换输入法时，按键精灵就卡住了,可能是下列哪一个原因Plugin目录下装有不是官方提供的插件引起

2、的关于加密脚本的描述，下列是错误的是只有会员输入密码可以解开加密脚本GetLastClick命令的含义是检测上次按过的鼠标键按键精灵生成的小精灵程序的后缀名是EXE按键精灵会员不能享受的论坛权限是可以访问按键精灵“版版家园”专区享受版主资源网页按键精灵是下列哪一个程序wqm.exe按键精灵的产品包括以下哪一个按键盒子按键精灵是下列哪一个程序按键精灵9.exe按键精灵会员卡注册码,没有以下哪一种天卡（1天）UnlockMouse命令的含义是解除锁定鼠标位置？按键精灵会员不能享受的资源是免费小精灵的源代码RightUp命令的含义是右键弹起按键精灵的功能不包括自动发明汽车、飞机、火箭等机器按键精灵能

3、兼容下列哪一种语言VBS不能用抓抓工具直接获取的是PID关于按键精灵的描述，以下正确的是按键精灵是一款绿色的模拟键盘鼠标操作的软件？脚本编辑界面上没有的按钮是启动？与取色判断命令没有直接关系的参数是按键码以下哪种方式可以在脚本编辑界面中获取到新的插件点击资源库按钮,然后导入需要的插件LeftClick命令的含义是左键单击按键精灵官方网站的网址是RestoreMousePos命令的含义是恢复上次保存的鼠标位置如果按键精灵在某些环境失效,可以使用下列哪个工具神盾SaveMousePos命令的含义是保存当前鼠标所在位置GetCursorPos命令的含义是得到鼠标位置坐标键盘命令的类型不包括锁定按键精

4、灵里运算符乘号是*KeyPress命令的含义是按键MiddleClick命令的含义是中键单击LockMouse命令的含义是锁定鼠标位置按键精灵会员不能享受的功能是脚本编写服务GetCursorShape命令的含义是得到鼠标形状按键精灵自带的用户界面叫做什么QUI界面RightClick命令的含义是右键单击按键精灵里运算符减号是-按键精灵默认的启动热键是F10属于全部命令的是我的命令库“录制”功能不能录制的内容是记录鼠标指向的窗口句柄按键抓抓是下列哪一个程序picker.exe想要知道脚本是否存在错误,应该使用下列哪个功能调试以下哪种方式不可以获得论坛银币发布大量无内容的主题贴按键精灵里运算符除

5、号是/按键精灵会员不能享受的技术支持是技术人员上门服务按键精灵自带的功能不包括以下哪一个路由功能GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0变量的定义，以下哪个是正确的dima下列哪一种方法不能够正确输入命令鼠标右键单击命令按键精灵的功能是？模拟鼠标键盘操作的工具?MoveR命令的含义是相对移动关于小精灵去广告的描述，下列正确的是会员用户在“制作按键小精灵”界面上-更多设置-选择会员去广告（是）即可?按键精灵里运算符加号是+对小精灵的描述，以下是正确的按键小精灵是把按键精灵的脚本打包成一个可单独执行的EXE程序，便于传播以及提供给新手使用。？LeftDown命令

6、的含义是左键按下键鼠的模拟方式不包括以下哪一个虚拟模拟3、区域找图的命令是FindPic4、按键精灵语言大小写的描述哪一个是正确的按键精灵不区分大小写7、KeyPress命令有几个参数213、不能实现键盘按下A键的命令是KeyPressWA，115、下列哪一个不是循环命令SelectCase颜色值为000000是什么颜色黑色以下哪一个不属于按键精灵的全部命令远程嗅探命令?20、下列RGB颜色值，书写正确的是DD？23、GetPixelColor命令有几个参数225、以下哪一段命令能正确执行如果（70,416）的颜色等于FFFFFF则鼠标移动到点（100，200）IfColor70,416,FF

7、FFFF,0Then:MoveTo100,200:EndIf26、以下哪一个写法不能点击shift键KeyPress60,128、下列哪一个不是逻辑运算符Const33、FindColorEx命令有几个参数936、下列哪一段代码不能输出L键KeyupL，1?44、SetSimMode1的实际意义是使用硬件模拟1、鼠标所在位置为(50,50),经过命令MoveTo50,100后鼠标所在位置为：D50,100?2、F10的按键码是？B.1213、下列哪一个不是键盘命令AKeyClick?4、循环可以使用下列哪个语句？B.For语句5、回车键的按键码是A.13?6、默认情况下某些特定窗口模拟按键可能

8、失效,以下哪种方法可能可以解决D.在脚本开头增加代码:SetSimMode2?7、如何退出For循环的命令？D.ExitFor?8、得到一个按键的按键码,以下哪一个方法是完全正确的在按键精灵编辑界面的基本命令的键盘命令部分查询9、鼠标右键按下的命令是RightDown?10、以下哪一个命令不会暂停脚本for.next?11、下列哪一个是键盘命令KeyPress?12、鼠标所在位置为(50,50),经过命令MoveR50,100后鼠标所在位置为：100,150?13、鼠标左键按下的命令是LeftDown14、解除鼠标锁定是下列哪一个命令UnlockMouse?15、组合键CTRL+C的正确按键顺

9、序是按下CTRL，点击C，弹起CTRL16、下列属于鼠标命令的是RightClick17、以下哪一种方式不能无限循环在脚本开头加入For10000,脚本尾部加入Next?18、WaitKey命令有几个参数019、如何退出Do循环的命令ExitDo20、下列哪一个是鼠标命令LeftClick?21、下列RGB颜色值，书写错误的是FFFFFFFF?22、以下哪一个KeyPress命令的路检测血条上某一点，如果此点不是血条的颜色则执行加血操作?23、FindColor命令有几个参数724、哪一种不能正确调用KeyPress命令KeyPressFA,1?25、延时的命令是Delay26、取指定点颜色的

10、命令是GetPixelColor27、延迟2小时，以下哪一句代码是正确的Delay1000*60*60*2?28、以下哪一个是自动打怪的思路检测怪物血条上某一点，如果此点是血条的颜色则执行打怪操作?29、EndScript命令的意义是脚本停止运行？30、以下哪一个是循环命令for.next31、SetSimMode命令有几个参数132、鼠标所在位置为(100，50)，经过命令MoveToS50+50，100后鼠标所在位置为100，100?33、区域找色的命令是FindColor34、FindPic命令有几个参数835、按键精灵找图命令需要的图片格式是下列哪一个*.BMP?36、脚本停止运行命令

11、是哪一个EndScript?37、延迟1天,以下哪一句代码是正确的Delay1000*60*60*24*138、下列哪一个命令会暂停脚本WaitClick39、不能正确调用KeyPress命令的写法是KeyPressFB，1?40、鼠标所在位置为(0,50),经过命令MoveTo50+50,100后鼠标所在位置为100，100?41、代码KeyPressA，1调试后提示出错，错误的原因是逗号使用了全角符号无法识别导致错误?42、锁定鼠标位置是下列哪一个命令LockMouse43、下面哪一个命令会暂停脚本MsgBox44、鼠标左键单击的命令是LeftClick45、鼠标左键双击的命令是LeftD

12、oubleClick?46、文本内容和数字连接在一起(连接符)应使用下列哪一个符号&?47、以下哪一个命令能够延时1个小时delay1000*60*60?48、按键码105是下列哪一个按键NUM949、指定句柄进行截图，以下哪种情况不会导致截到的图是黑色？窗口标题动态变化50、空格键的按键码是32?4、以下哪一个函数返回值的数据类型与其他三个的不一样FilterInstrB.UboundC.ClngD.Filter5、以下哪一个函数返回值的数据类型与其他三个不一样Array错Filter错SplitReplace18、以下哪一个返回值是字符串Cclng(520)10-1anjian&vrbro

13、therslen(anjian)Msgboxanjian&1将会弹出什么内容anjian1以下哪一个命令可以将表达式转化为字符串：Cstr?10、假如“神盾”图像存在，以下无法识别到图像的命令是？FindPic0,0,1024,76&神盾.jpg，0.9,intX,intY11、IsNumeric(n)，当n等于VrBrothers时返回什么？False12、Redim命令的作用对象是数组关于GetLastKey命令的描述哪一个是错误的D.返回值是字符串以下不属于按键命令的是？OnThreadLoad假如MyDate=October19,1962:YourDate=#10/19/62#:NoD

14、ate=Hello,返回值为False的是？D.IsDate(NoDate)字符串Vrbrothers的长度为10GetOSType()返回值描述正确的是？返回当前系统类型*.ini常数VbOk的值为1以下语句无法返回时间信息的是？B.MyTime二Now(Time)下列哪一个函数可以取数组最大可用下标Ubound以下对函数的描述哪一个是错误的函数一定有返回值以下命令哪个可以终止所有线程运行并停止脚本。ExitScriptExitOS命令中，以下描述错误的是？可执行待机关于自定义变量的描述以下哪一个是错误的可以是数字或者字符串错数组？以下哪一个函数的功能是指明表达式的值是否为数字IsNumer

15、icSet语句的含义是将对象引用赋给变量或属性选出下列命令参数格式错误的选项。PutAttachment,*.*?后台取色命令需要的参数为句柄和坐标以下命令可以获取当前窗口所在屏幕位置精确坐标的是？选出以下命令参数错误的。ImportWindowMsgBox命令最多可以使用几个参数5个GetLastKey命令在获取一次ANSI字符代码后继续循环执行返回值是？0以下选项中不符合调用规则的是？Asc(F1)以下关于按键抓抓描述错误的是？支持后台找色找图效果测试Mp4数组MyArray(5)的最大可用下标为Ubound5数组MyArray(5)包含的元素个数为627字符串&H22用Clng命令转换后

16、除以2再用Cstr命令转换，最后结果为17由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为323232当str=(1+2*3-1)/2，Eval(str)返回值为？3RGB值分解为红绿蓝分量，分量值的范围是0-255True的值是-1以下哪一个是类型转换函数clng35使用WQM的脚本代码第一步应该做什么绑定WQM以下对子程序和函数的描述哪一个是正确的函数可以代替子程序以下命令无法正常获取句柄的是？Activemyarray=Array(1,2,3,4,5),那么myarray(4)的值为5如果有多个重复标题的窗口,以下哪个命令能够直接获取到所有对应窗口的句柄DateDif

17、f命令有几个必选参数？且返回值类型是？3个FindMutiColorEx命令有几个参数？8myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值为4Xor运算符描述正确的是：用于对两个表达式进行逻辑异或运算。GetLastKey：检测上次按键，返回数字，键码Const语句：定义常量以下哪一个命令不能用于调试内容输出：beep关于事件描述错误的是：事件子程序的参数可以是任意多个常数vbok的值为：1以下哪种情况可能导致获取不到网页元素：网页未完全加载Join命令的参数类型是：数组VarType函数：返回指示变量子类型的值下列对按键精灵变量描述正确的是：不定义可以

18、直接使用变量以下哪个不是数学函数：ccur以下哪个的值是true：not(false)a=34,b=&H22，下列描述哪一个是错误的：cstr(b)的值为“&H22”vbcrlf-回车换行符以下哪一个命令可以得到变量的类型：VarType关于延时命令描述错误的是：可以停止脚本str二Clng(Mid(234，2,l),那么str的值为362双引号的ANSI字符代码是：34关于找图找色描述错误的是找图比找色更准确错误：从思路上来说找图等同于找多点颜色?大型脚步中不推荐使用：goto命令65发送字符串：sendstring以下对子程序的描述哪一个是正确的：子程序没有返回值对于按键精灵与VBS的描述

19、正确的是：按键可以直接调用VBS命令132Mod13的值为:2变量名称不合法：lMyArraystr=mid(234,2,1)：3哪个事件最先响应：onscriptload以下哪一个命令的功能是设置屏幕分辨率：setscQUI输入框控件返回值的变量类型是：字符串按键精灵的产品包括以下哪一个：按键盒子哪一种方法能够找到命令的帮助说明：在全部命令中搜索命令,点击后帮助说明会出现在编辑器下方.关于加密脚本的描述，下列是错误的是：只有会员输入密码可以解开加密脚本鼠标所在位置为(50,50),经过命令MoveTo50,100后鼠标所在位置为：50,100WaitKey命令有几个参数答案：0vbCrLf的

20、值为AChr(13)&Chr(10)选出下列返回值类型不一样的选项。CInStr(str,str)Len(n)Join(arr)Asc(n)a=10.05Mod2,那么a的值为0Round(3.141592,5)返回值为什么？3.1415983.Int(32)返回值等于多少？Int(3/2)返回已添加指定时间间隔的日期应使用下列哪一个函数DateAdd函数arr=Split(1,2,3,4,5,6,7，&9,)，问arr(5)等于多少？“6”文本不存在,以下哪一个命令会新建立文本C.WriteFileEx下列语句中无法达到无限循环效果的是？C.Fori=TrueToTrue:Next6、以下命

21、令无法改变窗口大小的是？18、选出下列非键鼠操作的命令。22、以下关于按键抓抓描述错误的是？I、当n=3.141592*-1,以下语句返回值是绝对值的是？B.Abs(n)4、以下哪一个变量不可能是数组ConstMyArray=25、假如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)等于多少？A6?8、在脚本开头中加入代码MsgboxTure,弹出的值为为空9、QUI输入框控件返回值的变量类型是字符串II、arr二array(0,

22、1,2,3,4,5,6,7,&9)，问Clng(arr(9)等于多少？B.9?12、Round(3.141592,5)返回值为什么？3.1415913、GetCursorShape(O)该命令返回值类型为？整数类型true1、PrintScreen命令支持那种格式截图。Djpg?2、以下命令哪个不属于按键命令？StopScript10、FindMutiColor命令的颜色特征点最少为几个？2个？3个错20、以下哪一个命令会出错TracePrintCint(32768)?9、以下哪一个命令输出的值与其他三个不同TracePrintfix(3.5)Erase语句的含义是重新初始化固定大小数组的元素

23、,并释放动态数组的存储空间5、以下命令无法正常获取句柄的是？B7、关于自定义变量的描述以下哪一个是正确的自定义变量可以是数字或者字符串?自定义变量可以是数组?D.自定义变量可以是类?10、关于后台坐标的描述哪一个是不正确的后台坐标在窗体内是不会变化的后台坐标只针对窗体内生效?后台坐标是由后台横坐标和后台纵坐标构成的?16、选出下列命令参数格式错误的选项。PutAttachment,*.*?17、Hex函数的返回值类型是字符串21、以下哪一个命令可以定义常数Const前半部分为问答题后半部分为选择题问答题只需要复制单道题到按键精灵中后调试就会看到效果了选择题是搜索的其他资料并没有进行整理(紧供参

24、考)只有自己读懂每句代码的含义后再答题这样不仅完成答题还能丰富自己的知识问答题部分六、1、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码Dim父窗口句柄,子窗口句柄,客户区大小大小CallRunApp(notepad.exe)Delay1000TracePrint查找到的父窗口句柄为：&父窗口句柄TracePrint查找到的子窗口句柄为：&子窗口句柄Call比例大小(父窗口句柄,子窗口句柄,0.9)EndScriptSub比例大小(父窗口句柄,子窗口句柄,比例)Dim父边框,父左1,父左2,父右1,父

25、右2父左1=Clng(Split(父边框,1)(0):父左2=Clng(Split(父边框,1)(1)父右1=Clng(Split(父边框,1)(2):父右2=Clng(Split(父边框,1)(3)EndSub随机生N(N也为随机数)个字母,将N个字母分别赋值到数组中,数组的大小以最节省空间为标准生成.请写出代码六、1、随即输出10个50到100正整数，并从大到小排列(冒泡排序),请写出代码Dim随即Int(9),i1,j,Cache,bSwapRandomizeFori1=0To9随即Int(i1)=Int(100-50+1)*Rnd+50)TracePrinti1&：&随即Int(i1)

26、NextForj=0ToUBound(随即Int)-1bSwap=FalseFor订=0ToUBound(随即Int)-1If随即Int(i1)随即Int(i1+1)Then若是递增，则将改为Cache=随即Int(i1)随即Int(i1)=随即Int(i1+1)随即Int(i1+1)=CachebSwap=TrueEndIfNextIfbSwap=FalseThenExitForNextTracePrint【冒泡排序后输出】For订=0ToUBound(随即Int)TracePrinti1&：&随即Int(i1)NextEndScript六、2、利用文本(TXT)模拟一个数据库，数据库储存人

27、物信息(编号I姓名I年龄I身高)，需有对应的函数实现查询/搜索/删除/增加等功能(伪数据库),请写出代码Dim数据库路径,InputHome,Input查询,Input搜索,Input删除,Input增加，查询结果，搜索返回,搜索结果,Show搜索,删除结果数据库路径=C:档案.txtInputHome=InputBox(退出：Q主页：H&vbcrlf&vbcrlf&查询：1搜索：2删除：3增加：4,主页请输入对应字符进行相关操作)DoWhileInputHomeQAndInputHomeqIfInputHome=HOrInputHome=hThenInputHome=InputBox（退出：

28、Q主页：H&vbcrlf&vbcrlf&查询：1搜索:2删除：3增加：4,主页请输入对应字符进行相关操作）ElseIfInputHome=1ThenDo查询结果=Input查询=InputBox（退出：Q主页：H,查询请输入编号进行查询,编号）IfInput查询=QOrInput查询=qThen:InputHome=Q:ExitDoElseIfInput查询=HOrInput查询=hThen:InputHome=H:ExitDoElseIfIsNumeric（Input查询）=TrueThen查询结果=查询（数据库路径,Input查询）EndIfIf查询结果vThenMsgBox查询结果,65

29、,查询结果LoopElseIfInputHome=2ThenDo搜索返回=:Show搜索=Input搜索=InputBox（退出：Q主页：H&vbcrlf&vbcrlf&可模糊搜索到编号、姓名、年龄、身高字段，搜索请输入关键字进行搜索，关键字）IfInput搜索=QOrInput搜索=qThen:InputHome=Q:ExitDoElseIfInput搜索=HOrInput搜索=hThen:InputHome=H:ExitDoElse搜索返回=搜索（数据库路径,Input搜索）EndIfIf搜索返回Then搜索结果=Split（搜索返回，,）Fori=UBound（搜索结果）-1To0Ste

30、p-1Show搜索=Show搜索&搜索结果（i）&vbCrLfNextMsgBoxShow搜索,65,搜索结果EndIfLoopElseIfInputHome=3ThenDo查询结果=:删除结果=Input删除=InputBox（退出：Q主页：H,删除请输入编号进行删除；编号）IfInput删除=QOrInput删除=qThen:InputHome=Q:ExitDoElseIfInput删除=HOrInput删除=hThen:InputHome=H:ExitDoElseIfIsNumeric（Input删除）=TrueThen查询结果=查询（数据库路径,Input删除）EndIfIf查询结果v

31、Then删除结果=MsgBox(查询结果,68,确定要删除此条数据？)If删除结果=6Then删除数据库路径,Input删除LoopElseIfInputHome=4ThenDoInput增加=InputBox（退出：Q主页：H&vbcrlf&vbcrlf&格式：姓名I年龄I身高&vbcrlf&例如：李雷11811.52,增加请输入要增加的一条数据）IfInput增加=QOrInput增加=qThen:InputHome=Q:ExitDoElseIfInput增加=HOrInput增加=hThen:InputHome=H:ExitDoElseIfUBound（Split（Input增加，|）=

32、2Then增加数据库路径,Input增加EndIfloopElseIfInputHome=QOrInputHomeqThen:ExitDoElseInputHome=InputBox（退出：Q主页：H&vbcrlf&vbcrlf&查询：1搜索:2删除：3增加：4,主页请输入对应字符进行相关操作）EndIfLoopEndScriptFunction查询（文本路径,编号）Dimfso,myfile,i,flag,temppflag=1Setfso=CreateObject（scripting.FileSystemObject）Iffso.FileExists（文本路径）ThenSetmyfile=

33、fso.openTextFile（文本路径，1,false）Elseflag=0EndIfFori=1To编号-1IfNotmyfile.AtEndOfLineThenmyfile.SkipLinetempp=myfile.LineEndIfNextIfflag=1ThenIfNotmyfile.AtEndOfLineThen查询=myfile.ReadLineElse查询=编号不存在！EndIfmyfile.closeElse查询=文件不存在！EndIfSetfso=NothingEndFunctionFunction搜索（文本路径,关键字）DimForReading,ForWritingF

34、orReading=1:ForWriting=2:搜索=DimobjFSO,objFile,strLine,strNewFileSetobjFSO=CreateObject（Scripting.FileSystemObject）SetobjFile=objFSO.OpenTextFile文本路径,ForReading）DoUntilobjFile.AtEndOfStreamstrLine=objFile.ReadlineIfInstr（1,strLine,关键字）0Then搜索=strLine&,&搜索TracePrint搜索=&搜索strNewFile=strNewFile&strLine&

35、vbcrlfLoopobjFile.CloseSetobjFile=objFSO.OpenTextFile文本路径,ForWriting）objFile.WritestrNewFileobjFile.CloseSetobjFSO=NothingEndFunctionSub删除（文本路径,编号）DimForReading,ForWritingForReading=1ForWriting=2DimobjFSO,objFile,strLine,strNewFileSetobjFSO=CreateObject（Scripting.FileSystemObject）SetobjFile=objFSO.O

36、penTextFile（文本路径,ForReading）DoUntilobjFile.AtEndOfStreamstrLine=objFile.ReadlineIfCInt（编号）=objFile.Line-1orCInt（编号）=0ThenstrNewFile=strNewFileElsestrNewFile=strNewFile&strLine&vbcrlfEndIfLoopobjFile.CloseSetobjFile=objFSO.OpenTextFile（文本路径,ForWriting）objFile.WritestrNewFileobjFile.CloseSetobjFSO=Not

37、hingEndSubSub增加（文本路径,文本内容）DimForReading,ForWritingForReading=1:ForWriting=2DimobjFSO,objFile,strLine,strNewFileSetobjFSO=CreateObject(Scripting.FileSystemObject)SetobjFile=objFSO.OpenTextFile文本路径,ForReading)DoUntilobjFile.AtEndOfStreamstrLine=objFile.ReadlinestrNewFile=strNewFile&strLine&vbcrlfLoopT

38、racePrintobjFile.LinestrNewFile=strNewFile&objFile.Line&|&文本内容&vbcrlfobjFile.CloseSetobjFile=objFSO.OpenTextFile(文本路径,ForWriting)objFile.WritestrNewFileobjFile.CloseSetobjFSO=NothingEndSubEndScript六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含接收关键字的文本(批量消息发送器),请写出代码六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子

39、窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码五：1、写出三种计算颜色相似度的算法,函数返回值为相似度.请写出代码MsgBox颜色相似度l(”Fffffa”,FFFFFF),64,颜色相似度1MsgBox颜色相似度2(Fffffa,FFFFFF),64,颜色相似度2MsgBox颜色相似度3(Fffffa,FFFFFF),64,颜色相似度3Function颜色相似度1(当前颜色,对比颜色)颜色相似度1=1-round(abs(R1-R2)/255)+abs(G1-G2)/255)+abs(B1

40、-B2)/255)/3,3)EndFunctionFunction颜色相似度2(当前颜色,对比颜色)颜色相似度2=1-round(abs(R1-R2)+abs(G1-G2)+abs(B1-B2)/255/3,3)EndFunctionFunction颜色相似度3(当前颜色,对比颜色)颜色相似度3=1-round(abs(R1/255-R2/255)+abs(G1/255-G2/255)+abs(B1/255-B2/255)/3,3)EndFunction五：2、(前台)区域范围为(100,150)到(200,300)内的所有点是否均为FFFFFF,是则弹出对话框没有其他颜色,否则弹出第一个点的

41、颜色值并退出程序.请写出代码Dimx,y,RtColorx=100:y=150DoWhiley301Forx=100To200IfRtColorFFFFFFThenExitdoNext:y=y+1LoopIfRtColorFFFFFFThenMessageBoxX&,&Y&坐标点颜色为：&RtColorElseMessageBox没有其他颜色EndIfEndScript五：3、写一个函数，要求：返回一个数值范围内所有偶数之和。参数1、参数2：整数型，数字提示：For循环与VBS命令函数应用。TracePrint求偶数之和(1,61)TracePrint求偶数之和(3,19)TracePrint求偶数之和(0,83)TracePrint求偶数之和(2,1)EndScriptFunction求偶数之和(参数1,参数2)Dim差,i求偶数之和=0:差=Abs(参数1-参数2)If差mod2=1Th