发布时间 : 星期日 文章按键精灵开发者一到六级认证最全总结答案更新完毕开始阅读8c7322bba0116c175f0e48da
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