按键精灵3级认证问答题答案【非鱼学院吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：191贴子：
按键精灵3级认证问答题答案
题目：请写出运行一个程序的命令,例如运行按键精灵主程序,请给出代码答案：Dim 路径路径 = &D:\Program Files\按键精灵9\按键精灵9.exe &RunApp 路径
京广达 黏胶带 耐高温,耐低温,耐碾压,抗污,防滑
问题：替换字符串&12X34X56X&中的&X&为&|&,请给出代码答案：Dim MyStringMyString = Replace(&12X34X56X&, &X&, &|&) TracePrint MyString
问题：判断字符串str是否存在空格,存在则弹出信息提示框,请给出代码答案：Dim str, SearchCharstr = &XXX XXX XXX&SearchChar = & &
If Instr(str, SearchChar) && 0 Then
MessageBox &存在空格&End If
问题：将字符串&12345&倒序排列成&54321&,请给出代码答案：Dim str, i, a, b//把&12345&的值赋值给strstr = &12345&长度 = Len(str)//用Len返回字符串中的个数i = 长度//循环读取str中的字符，并赋值给bFor 长度
a = Mid(str, i, 1)
i = i - 1Next//弹出窗口，字符串&12345&倒序排列成&54321&TracePrint b&&之前的字符串为&&strMessageBox b
问题：已知窗口句柄为Hwnd,请将窗口移动至(0,50)点,在窗口坐标(50,100)处点击鼠标左键,请给出代码答案：Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Move(Hwnd, 0, 50)MoveTo 0 + 50, 50 + 100LeftClick 1
问题：有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设a=4,b=2),请给出代码答案;Dim a, ba = 4 : b = 2MessageBox a + bMessageBox a - bMessageBox a * bMessageBox a / b
问题：字符号串&1+2+3&,请返回这个字符串表达式的值(返回值为6),请给出代码答案：Dim MyString, a, b, c,，a1,b1,c1, d//将字符串&1+2+3&的值赋值给变量MyStringMyString = &1+2+3&//用Mid函数返回MyString中的的指定值a = Mid(MyString, 1, 1)'a包含 &1&b = Mid(MyString, 3, 1)'b包含 &2&c = Mid(MyString, 5, 1)'c包含 &3&//用Int函数返回字符串的整数数值a1 = int(a)b1 = int(b)c1 = int(c)d = a1 + b1 + c1TracePrint d
问题：定义一个数组 myarray(10)，从 myarray(0)=0 开始赋值 到myarray(10)=10(提示:myarray(i)=i) ，请给出代码 答案：Dim myarray(10)For i=0 to UBound(myarray)
myarray(i) = i
TracePrint &myarray(& & i & &)=& & myarray(i)Next
问题：写出带两个数值型参数x和y的子函数,调用子函数得到x+y的值答案：TracePrint sum(1, 3)Function sum(x,y)
sum = x + yEnd Function
问题：写出用goto命令循环十次的过程答案：Dim a1a1 = 10Rem 从这里开始TracePrint &倒计次了！& & a1a1 = a1 - 1If a1 & 0 Then Goto 从这里开始EndScript
药师在线为您深度解析2017药师考试,巧法解析,直击考试重点!
问题：(前台)依次按下&AJJL&四个键,中间延迟100毫秒,循环10次答案：Dim iFor i = 1 To 10
KeyPress &A&, 1
KeyPress &J&, 1
KeyPress &J&, 1
KeyPress &L&, 1
Delay 100NextEndScript
问题：请将16进制颜色值&FF00FF&转成十进制并赋值给变量C,请给出代码答案：Dim C, D, i, jC = 0D = UCase(&FF00FF&)For i = 1 To Len(D)
j = Asc(Mid(D, i, 1)) - 48
If j & 9 Then
C = C * 16 + jNextTracePrint C
问题：已知有图片若干（图1-图10），在范围0,0,中执行找图命令，请利用数组方式调用图片名称（提示：For循环，数组），请作答答案：TracePrint 找多图(&图1.bmp|图2.bmp|图3.bmp|图4.bmp|图5.bmp|图6.bmp|图7.bmp|图8.bmp|图9.bmp|图10.bmp&)Function 找多图(多图并列字符串)dim MyArray
MyArray = Split(多图并列字符串, &|&)
找多图 = 找多图_数组(MyArray)End FunctionFunction 找多图_数组(MyArray)
For i = 0 To UBound(MyArray)
FindPic 0,0,,&Attachment:\&&MyArray(i),0.9,intX,intY
If intX & 0 And intY & 0 Then
找多图_数组 = i + 1
NextEnd Function
顶　　　-- 怎么办 楼下那个变态老是不粉我!!!　　　
贴吧热议榜
使用签名档&&
保存至快速回贴前半部分为问答题后半部分为选择题问答题只需要复制；结果,Show搜索,删除结果数据库路径=&quo；增加?请输入要增加的一条数据&)IfI；strNewFileSetobjFSO=Crea；数2：整数型，数字提示：For循环与VBS命令函；
前半部分为问答题 后半部分为选择题问答题只需要复制单道题到按键精灵中后调试就会看到效果了选择题是搜索的其他资料 并没有进行整理(紧供参考)只有自己读懂每句代码的含义后再答题 这样不仅完成答题 还能丰富自己的知识━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━问答题部分'六、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个字母分别赋值到数组中,数组的大小以最节省空间为标准生成.请写出代码'六、1、随即输出10个50到100正整数，并从大到小排列(冒泡排序),请写出代码Dim 随即Int(9), i1, j, Cache, bSwapRandomizeFor i1 = 0 To 9随即Int(i1) = Int((100 - 50 + 1) * Rnd + 50)TracePrint i1 & &：& & 随即Int(i1)NextFor j = 0 To UBound(随即Int) - 1bSwap = FalseFor i1 = 0 To UBound(随即Int) - 1If 随即Int(i1) & 随即Int(i1 + 1) Then
'若是递增，则将 & 改为 &Cache = 随即Int(i1)随即Int(i1) = 随即Int(i1 + 1)随即Int(i1 + 1) = CachebSwap = TrueEnd IfNextIf bSwap = False Then Exit ForNextTracePrint &【冒泡排序后输出】&For i1 = 0 To UBound(随即Int)TracePrint i1 & &：& & 随即Int(i1)NextEndScript '六、2、利用文本(TXT)模拟一个&数据库&,数据库储存人物信息(编号|姓名|年龄|身高),需有对应的函数实现 查询/搜索/删除/增加 等功能(伪数据库),请写出代码Dim 数据库路径, InputHome, Input查询, Input搜索, Input删除, Input增加, 查询结果, 搜索返回, 搜索
结果, Show搜索, 删除结果数据库路径 = &C:\档案.txt&InputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)Do While InputHome && &Q& And InputHome && &q&If InputHome = &H& Or InputHome = &h& Then InputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)ElseIf InputHome = &1& ThenDo查询结果 = &&Input查询 = InputBox(&退出：Q
主页：H&, &查询?请输入编号进行查询&, &编号&)If Input查询 = &Q& Or Input查询 = &q& Then : InputHome = &Q& : Exit DoElseIf Input查询 = &H& Or Input查询 = &h& Then : InputHome = &H& : Exit DoElseIf IsNumeric(Input查询) = True Then查询结果 = 查询(数据库路径, Input查询)End IfIf 查询结果 && && Then MsgBox 查询结果, 65, &查询结果&LoopElseIf InputHome = &2& Then Do搜索返回 = && : Show搜索 = &&Input搜索 = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &可模糊搜索到编号、姓名、年龄、身高字段&, &搜索?请输入关键字进行搜索&, &关键字&)If Input搜索 = &Q& Or Input搜索 = &q& Then : InputHome = &Q& : Exit DoElseIf Input搜索 = &H& Or Input搜索 = &h& Then : InputHome = &H& : Exit DoElse 搜索返回 = 搜索(数据库路径, Input搜索)End IfIf 搜索返回 && && Then 搜索结果 = Split(搜索返回, &,&)For i = UBound(搜索结果) - 1 To 0 Step - 1Show搜索 = Show搜索 & 搜索结果(i) & vbCrLfNext
MsgBox Show搜索, 65, &搜索结果&End If
LoopElseIf InputHome = &3& Then Do查询结果 = && : 删除结果 = &&Input删除 = InputBox(&退出：Q
主页：H&, &删除?请输入编号进行删除&, &编号&)If Input删除 = &Q& Or Input删除 = &q& Then : InputHome = &Q& : Exit DoElseIf Input删除 = &H& Or Input删除 = &h& Then : InputHome = &H& : Exit DoElseIf IsNumeric(Input删除) = True Then查询结果 = 查询(数据库路径, Input删除)End IfIf 查询结果 && && Then 删除结果 = MsgBox(查询结果, 68, &确定要删除此条数据？&)If 删除结果 = 6 Then 删除 数据库路径, Input删除Loop ElseIf InputHome = &4& Then DoInput增加 = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &格式：姓名|年龄|身高& & vbcrlf & &例如：李雷|18|1.52&, &
增加?请输入要增加的一条数据&)If Input增加 = &Q& Or Input增加 = &q& Then : InputHome = &Q& : Exit DoElseIf Input增加 = &H& Or Input增加 = &h& Then : InputHome = &H& : Exit DoElseIf UBound(Split(Input增加, &|&)) = 2 Then增加 数据库路径, Input增加End If
loopElseIf InputHome = &Q& Or InputHome && &q& Then : Exit DoElseInputHome = InputBox(&退出：Q
主页：H& & vbcrlf & vbcrlf & &查询：1
增加：4&, &主页?请输入对应字符进行相关操作&)End IfLoopEndScriptFunction 查询(文本路径, 编号)Dim fso, myfile, i, flag, temppflag = 1Set fso = CreateObject(&scripting.FileSystemObject&)If fso.FileExists(文本路径) Then Set myfile = fso.openTextFile(文本路径, 1, false)Elseflag = 0End IfFor i = 1 To 编号 - 1If Not myfile.AtEndOfLine Thenmyfile.SkipLinetempp = myfile.LineEnd IfNextIf flag = 1 ThenIf Not myfile.AtEndOfLine Then查询 = myfile.ReadLineElse查询 = &编号不存在！&End Ifmyfile.closeElse查询 = &文件不存在！&End IfSet fso = NothingEnd FunctionFunction 搜索(文本路径, 关键字)Dim ForReading, ForWritingForReading = 1 : ForWriting = 2 : 搜索 = &&Dim objFSO, objFile, strLine, strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径, ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlineIf Instr(1, strLine, 关键字) & 0 Then 搜索 = strLine & &,& & 搜索TracePrint &搜索=& & 搜索strNewFile = strNewFile & strLine & vbcrlfLoopobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径, ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd FunctionSub 删除(文本路径, 编号)Dim ForReading ,ForWriting ForReading = 1ForWriting = 2Dim objFSO,objFile,strLine,strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径,ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.Readline
If CInt(编号) = objFile.Line - 1 or CInt(编号) = 0 Then strNewFile = strNewFile ElsestrNewFile = strNewFile & strLine & vbcrlfEnd IfLoopobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径,ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd SubSub 增加(文本路径, 文本内容)Dim ForReading ,ForWriting ForReading = 1 : ForWriting = 2Dim objFSO, objFile, strLine,
strNewFileSet objFSO = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFSO.OpenTextFile(文本路径, ForReading)Do Until objFile.AtEndOfStreamstrLine = objFile.ReadlinestrNewFile = strNewFile & strLine & vbcrlfLoopTracePrint objFile.LinestrNewFile = strNewFile & objFile.Line & &|& & 文本内容 & vbcrlfobjFile.CloseSet objFile = objFSO.OpenTextFile(文本路径, ForWriting)objFile.Write strNewFileobjFile.CloseSet objFSO = NothingEnd SubEndScript '六、3、动态监控文本内容,当文本内容增加时(文本内容不会减少)自动输出增加的内容到所有标题包含&接收&关键字的文本(批量消息发送器),请写出代码'六、4、写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码'六、5、利用函数输出杨辉三角,需要的参数为杨辉三角的行数,请写出代码'六、杨辉三角百度说明:/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 FunctionFunction 颜色相似度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 FunctionFunction 颜色相似度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, RtColorx = 100 : y = 150Do While y & 301For x = 100 To 200RtColor = Plugin.Color.GetPixelColor(x, y, 0)If RtColor && &FFFFFF& Then Exit doNext : y = y + 1LoopIf RtColor && &FFFFFF& Then MessageBox X & & , & & Y & &坐标点颜色为：& & RtColorElse MessageBox &没有其他颜色&End IfEndScript '五：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 差 mod 2 = 1 Then : 差 = 差 - 1 : End IfFor i = 0 To 差 / 2 - 1求偶数之和 = 求偶数之和 + 差 - i * 2'TracePrint &i=& & i & &
求偶数之和=& & 求偶数之和 & &
差=& & 差 - i * 2Next 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 IfNextTracePrint 新字符串'五：5、写一个脚本，要求：在画图工具中画一个渐变放大的多边形（大于4边）漩涡效果图。
提示：For循环的应用。Call 画多边漩涡(400, 200, 50, 7)
//五边形 EndScript Sub 画多边漩涡(x, y, r, n)//x 圆心横坐标 y 圆心纵坐标//r 半径
n 多边形的边数Const PI = 3.1415926Dim x1, y1 //起点坐标 dim x2, y2 //下一个点坐标x1 = xy1 = y - rDim tt = PI
For i = 1 To 30If i & 1 Then MoveTo x1, y1Delay 20LeftUp 1End If
MoveTo x1, y1Delay 20LeftDown 1t = t - pi * 2 / nx2 = x + int(r * sin(t))y2 = y + int(r * cos(t))
//更新起点坐标x1 = x2y1 = y2r = r + 2 Next
End Sub'五：1、写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。提示：cos函数与sin函数应用。Call 画漩涡(420, 280)EndScript Function 画漩涡(起点X, 起点Y)Dim HX, HY, nn = 1While HX & 600MoveTo HX, HY : Delay 3HX = 起点X + cos(n) + n * sin(n) HY = 起点Y + sin(n) - n * cos(n)n = n + 0.1WendEnd Function'五：2、随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码：Dim 随机, 猜测, 下限, 上限, 次数Randomize随机 = Int(100 * Rnd + 1)TracePrint &随机=& & 随机下限 = 1 : 上限 = 100猜测 = Cint(InputBox(&请输入你的猜测&, &猜数字游戏&))For 次数 = 1 To 99 : Delay 100If 猜测 & 随机 and 猜测 & 下限 Then
: 下限 = 猜测ElseIf 猜测 & 随机 and 猜测 & 上限 Then : 上限 = 猜测ElseIf 猜测 = 随机 Then MsgBox &总共& & 次数 &
三亿文库包含各类专业文献、文学作品欣赏、行业资料、幼儿教育、小学教育、高等教育、中学教育、按键精灵3级认证答题4级认证答题5级认证答题6级认证答题21等内容。　
　按键精灵1级2级3级4级5级6级认证答案2_韩语学习_外语学习_教育专区。按键精灵1级2级3级4级5级6级认证答案2 58 按键精灵开发者一到六级认证最全总结答案 1... 　按键精灵3级认证答题4级... 14页 2下载券 4,6级答题技巧1 21页 免费 四...每篇文章为 9 分钟,读原文要 5 分钟,做题要 4 分钟 注意不良的阅读习惯:1 ... 　按键精灵开发者认证三级答案_计算机软件及应用_IT/计算机_专业资料。对你有帮助...&&vrbrothers& 27.arr=array(1,2,3,4,5,6,7,8,9),问 CStr(arr(5))... 　按键精灵1--6级答案_计算机硬件及网络_IT/计算机_专业资料。今日推荐 180...按键精灵 12页 7下载券 按键精灵3级认证答题4级... 14页 2下载券喜欢... 　2015年-10-16更新按键精灵开发者最全认证三级答案_IT认证_资格考试/认证_教育...&anjian&&&vrbrothers& 27.arr=array(1,2,3,4,5,6,... 　新浪?按键精灵开发者三级认证选择题参考答案_IT认证_资格考试/认证_教育专区。...? A、4 B、2 C、1 D、3 arr=Split(&1,2,3,4,5,6,7,8,9&, &,... 　按键精灵3级考试问答题标准答案_IT认证_资格考试/认证_教育专区。按键精灵3级...15、arr=array(0,1,2,3,4,5,6,7,8,9),问 Clng(arr(9))等于多少?... 　按键精灵四级认证选择题及答案_其它考试_资格考试/认证_教育专区。For a=1 To 5...Next 循环结束后变量 a 的最终值。 答:6 a = 1 : execute (&a=2*a... 　正确答案:PID 3、按键精灵的产品包括以下哪一个? 正确答案:按键盒子 4、UnlockMouse 命令的含义是? 正确答案:解除锁定鼠标位置 5、LeftDown 命令的含义是? 正确...按键精灵1级认证试题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
按键精灵1级认证试题
总评分4.3|
浏览量2828
用知识赚钱
&&按键精灵1级认证试题
你可能喜欢按键精灵6级认证问答题答案【非鱼学院吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：191贴子：
按键精灵6级认证问答题答案
问题：尼科彻斯定理(具体题目忘记了)答案：//对于任一正整数a,不论a是奇数还是偶数，整数(a×a-a+1)必然为奇数//构造一个等差数列，数列的首项为(a×a-a+1),等差数列的差值为2(奇数数列)，则前a项的和为：//a×((a×a-a+1))+2×a(a-1)/2//=a×a×a-a×a+a+a×a-a//=a×a×a//通过定理的证明过程可知L所要求的奇数数列的首项为(a×a-a+1)，长度为aTracePrint &输入一个整数的立方，例如23^3&//这里假设为23num = 23szSum = &&//定义奇数和字符串总和 = 0For i = 0 To num - 1
(num * num - num + 1) + i * 2
If i = 0 Then
szSum = 奇数
szSum = szSum & &+& & 奇数
总和 = 总和 + 奇数NextTracePrint 总和TracePrint szSum
药师在线为您深度解析2017药师考试,巧法解析,直击考试重点!
问题：100个人手拉手围成一圈,逢三退一(1到3循环数数,被数到3的人退出),求最后一个被剩下人的编号.请写出代码答案：Dim a(99)//给数组中的每个元素赋值For i = 1 To 100
a(i - 1) = inexti = 0报数 = 0lastNum = 100Do
If a(i) && 0 Then
报数 = 报数 + 1//对报数进行记录
If 报数 = 3 Then
报数 = 0//报数清零
lastNum = lastNum - 1
a(i) = 0//对该元素进行失效处理
If lastNum = 1 Then
//对有效的元素进行统计
If i & 99 Then
End IfLoop//算出最后一个数For i = 0 To 99
If a(i) && 0 Then
lastNum = a(i)
End IfNextTracePrint lastNum
问题：写一个函数，可以自定义范围，识别范围内的数字(字体为宋体黑色9号:貌似是的)答案：//经过测试，数字3有bug，部分情况会冲突//范围无所谓，只要数字在范围内即可Call 识别数字(15, 52, 91, 72)Function 识别数字(左上角X, 左上角Y, 右下角X, 右下角Y)
//0,相似度1，查找方向从左上到右下
XY_0=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||1||1||2||2||3||3||4||4||5||5||6||6||7||7||7|,1)
ZB = InStr(XY_0,&|&)
X_0 = Clng(Left(XY_0, ZB - 1)): Y_0 = Clng(Right(XY_0, Len(XY_0) - ZB))
XY_1=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&-1|1||1||2||3||4||5||6||7||7||7|,1)
ZB = InStr(XY_1,&|&)
X_1 = Clng(Left(XY_1, ZB - 1)): Y_1 = Clng(Right(XY_1, Len(XY_1) - ZB))
XY_2=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||1||1||2||2||3||4||5||6||7||7||7||7||7|,1)
ZB = InStr(XY_2,&|&)
X_2 = Clng(Left(XY_2, ZB - 1)): Y_2 = Clng(Right(XY_2, Len(XY_2) - ZB))
XY_3=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||1||1||2||3||3||4||5||6||6||7||7||7|,1)
ZB = InStr(XY_3,&|&)
X_3 = Clng(Left(XY_3, ZB - 1)): Y_3 = Clng(Right(XY_3, Len(XY_3) - ZB))
XY_4=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&-1|1||1||2||2||3||3||4||4||5||5||5||5||6||7||7|,1)
ZB = InStr(XY_4,&|&)
X_4 = Clng(Left(XY_4, ZB - 1)): Y_4 = Clng(Right(XY_4, Len(XY_4) - ZB))
XY_5=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||0||0||1||2||3||3||3||3||4||5||6||6||7||7||7|,1)
ZB = InStr(XY_5,&|&)
X_5 = Clng(Left(XY_5, ZB - 1)): Y_5 = Clng(Right(XY_5, Len(XY_5) - ZB))
XY_6=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||1||1||2||3||3||3||3||4||4||5||5||6||6||7||7||7|,1)
ZB = InStr(XY_6,&|&)
X_6 = Clng(Left(XY_6, ZB - 1)): Y_6 = Clng(Right(XY_6, Len(XY_6) - ZB))
XY_7=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||0||0||1||1||2||3||4||5||6||7|,1)
ZB = InStr(XY_7,&|&)
X_7 = Clng(Left(XY_7, ZB - 1)): Y_7 = Clng(Right(XY_7, Len(XY_7) - ZB))
XY_8=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||1||1||2||2||3||3||3||4||4||5||5||6||6||7||7||7|,1)
ZB = InStr(XY_8,&|&)
X_8 = Clng(Left(XY_8, ZB - 1)): Y_8 = Clng(Right(XY_8, Len(XY_8) - ZB))
XY_9=Plugin.Color.FindMultiColorEx(左上角X,左上角Y,右下角X,右下角Y,&000000&,&1|0||0||1||1||2||2||3||3||4||4||4||4||5||6||6||7||7||7|,1)
ZB = InStr(XY_9,&|&)
X_9 = Clng(Left(XY_9, ZB - 1)) : Y_9 = Clng(Right(XY_9, Len(XY_9) - ZB))
//判断数字
If X_0 & 0 And Y_0 & 0 Then
//对数字进行赋值
//对左上角X坐标范围重新赋值，用于决定下一个数字识别的起始X坐标
左上角X = X_0
ElseIf X_1 & 0 And Y_1 & 0 Then
左上角X = X_1
ElseIf X_2 & 0 And Y_2 & 0 Then
左上角X = X_2
ElseIf X_3 & 0 And Y_3 & 0 Then
左上角X = X_3
ElseIf X_4 & 0 And Y_4 & 0 Then
左上角X = X_4
ElseIf X_5 & 0 And Y_5 & 0 Then
左上角X = X_5
ElseIf X_6 & 0 And Y_6 & 0 Then
左上角X = X_6
ElseIf X_7 & 0 And Y_7 & 0 Then
左上角X = X_7
ElseIf X_8 & 0 And Y_8 & 0 Then
左上角X = X_8
ElseIf X_9 & 0 And Y_9 & 0 Then
左上角X = X_9
//没找到数字就退出循环不再找了
数字 = 数字 & num
TracePrint 左上角X
//定位下一个数字识别的起点X坐标
//因为这里不像点阵那样固定5*8,所以X坐标偏移4
左上角X = 左上角X + 4
MessageBox 数字End Function
问题：记录5秒内所有键鼠操作，5秒后弹窗提示暂停，然后进行回放答案：/* * 思路：多线程记录键鼠操作 * 将操作写成与按键一样的函数写进记事本中 * 直接读取记事本中每行的代码执行命令 */DimEnv A,B,CA = BeginThread(记录键盘线程)B = BeginThread(记录鼠标移动线程)C = BeginThread(记录鼠标事件线程)BeginThread 五秒线程()/* * 用于记录键盘事件 */Sub 记录键盘线程()//将对应的按键码改成与按键一样的函数写进记事本里
Key = WaitKey()
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &KeyPress & & key & &, 1&)
LoopEnd Sub/* * 用于记录鼠标移动事件 */Sub 记录鼠标移动线程()//记录鼠标坐标，改成移动函数记录在记事本里
GetCursorPos x, y
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &MoveTo & & x & &,& & y)
LoopEnd Sub/* * 用于记录鼠标点击事件 */Sub 记录鼠标事件线程()
//鼠标左键单击事件
Mouse = WaitClick()
If Mouse =32770 Or Mouse =32769 Then
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &LeftClick 1&)
//鼠标左键双击事件
If Mouse =32771 Then
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &LeftDoubleClick 1&)
//鼠标右键单击事件
If Mouse =32773 Or Mouse =32774 Then
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &RightClick 1&)
//鼠标中键单击事件
If Mouse =32777 Or 32778 Then
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &MiddleClick 1&)
//鼠标滚轮向上滚动事件
If Mouse =32782 Then
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &MouseWheel 1&)
//鼠标滚轮向下滚动事件
If Mouse =32781 Then
Call Plugin.File.WriteFileEx(&E:\记录.txt&, &MouseWheel -1&)
Loop End Sub/* * 该线程用于判定脚本启动5秒 */Sub 五秒线程()
Delay 1000 * 5
//脚本启动5秒后弹窗提示
MessageBox &等待&
//取消弹窗后
//停止键鼠记录的线程
StopThread A
StopThread B
StopThread C
//调用回放子程序
Call 回放()End Sub/* * 回放子程序 * 该子程序可以读取记事本中的代码直接执行(代码与按键函数一样) */Sub 回放()
文本内容 = Plugin.File.ReadFileEx(&E:\记录.txt&)
文本内容 = Replace(文本内容, &|&, vbcrlf)//分割成每一行
Execute (文本内容)//执行
//退出脚本
ExitScript End Sub
问题：生成0-1之间的随机小数，不能用自带的随机数函数，不能有明显的规律...答案：备注：以下答案是错误的！！！！！！个人认为以下代码符合题意，但是阅卷人认为是错的请勿再用以下代码中的思路随机数 = 随机小数()TracePrint 随机数Function 随机小数()
sTime = Plugin.Sys.GetTime()
szTime = Right(sTime, 3)
随机小数 = &0& & (szTime / 1000)End Function
问题：写一个子程序,可以改变窗口内的某个子窗口的大小为特定值,子窗口大小随顶层窗口变化而比例变化(提示:改变顶层窗口,判断子窗口大小),请写出代码答案：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) * 比例)
问题：随即输出10个50到100正整数，并从大到小排列(冒泡排序),请写出代码答案：Dim 随即Int(9), i1, j, Cache, bSwapRandomizeFor i1 = 0 To 9
随即Int(i1) = Int((100 - 50 + 1) * Rnd + 50)
TracePrint i1 & &：& & 随即Int(i1)NextFor 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
If bSwap = False Then Exit ForNextTracePrint &【冒泡排序后输出】&For i1 = 0 To UBound(随即Int)
TracePrint i1 & &：& & 随即Int(i1)NextEndScript
眼熟我？　　　-- 怎么办 楼下那个变态老是不粉我!!!　　　
贴吧热议榜
使用签名档&&
保存至快速回贴}