按键精灵开发者一到六级认证最全总结答案

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)内的所有点是否均为\是则弹出对话框\没有其他颜色\否则弹出第一个点的颜色值并退出程序. 请写出代码 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 <> \ Next : y = y + 1 Loop

If RtColor <> \

MessageBox X & \坐标点颜色为：\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 * 2 Next End Function

'五：4、遍历字符串\取出所有小写字母及数字,并按照与原来相反的顺序拼接

成新的字符串,请写出代码 Dim Str, k, XiaoXie, 新字符串 Str = \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 <> \，\ ElseIf (G + S) = 10 and Text = \ End If Next

MsgBox \以内所有个位数加十位数等于10的数：\& VbCrlf & VbCrlf & Text, 64, \程

序·提示\EndScript

'五：4、写一个函数，已知一段坐标信息的字符串为：\，计算得出离185,246坐标最近的一组坐标。提示：For循环与数组应用。

TracePrint 坐标最近判断(\\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), \- StrY)) ^ 2 Else

Ping = Ping & \& (Abs(Clng(Split(Arr(i), \- StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), \ End If Next

TracePrint Ping

b = Split(Ping, \ TracePrint c

For i = 1 To UBound(b)

TracePrint \

If Clng(b(i)) < Clng(c) Then : c = b(i) : a = i : End If Next

坐标最近判断 = Arr(a) End Function

'五：5、写一个算法可以将十进制的字符串转成八进制的字符串.例如\请写出代码 Dim 十进数

十进数 = InputBox(\输入你想转换的十进制数字\十转八进制·算法\

MsgBox \十进制数：\十进数 & \ → 八进制数：\十转八进制算法(十进数), 64, \程序·提示\EndScript

Function 十转八进制算法(十进数) 十转八进制算法 = \ While 十进数 > 0

十转八进制算法 = 十进数 Mod 8 & 十转八进制算法 十进数 = 十进数 \\ 8 Wend