按键精灵比较一组数字的大小？

用比较呗！不过，若要简单的话，你这变量最好是数组，就可以用一个简单的循环去比较了。你这样多个不同变量的话......写个字函数给你，也行，你看下，自己琢磨一下。

'你的程序里放入此子函数后，你在主程序里如下写入即可：

a = 1 : b = 2 : c = 3 : d = 4

比较大小 ("a,b,c,d") '注意要把各变量用逗号隔开而且一定要带上引号哦，因为函数只接受一个参数，带上引号目的是把这么多变量整个转成一个字符变量传入子函数 '如果你要比较的是数组或直接数字，你也可以按如下方式写即可： '【比较数组内的数】

'数组a = array(5, 6, 7, 8,7,8,9,0,12,45,57,8,7,45,23,23,121,12,34,654,7)

'比较大小 (数组a) '比较数组内的数就方便，直接把数字名字写上即可 '【直接比较数字】

'比较大小 ("214,23,245,436,547,345")'这直接比较也是要把数字加引号转成字符 Function 比较大小(参数)

    Dim 最大数变量,最大数值,最小数变量,最小数值

    If TypeName(参数)="Variant()" Then 

        数组 = 参数

    Else 

        数组 = split(参数, ",")     

    End If

    For i = 0 To UBound(数组)

        If 最大数值 < eval(数组(i)) Then 

            最大数变量 = 数组(i)

            If TypeName(最大数变量) <> "String" Then 

                最大数变量 = "数组(" & i & ")"

            End If

            最大数值 = eval(数组(i))

        End If

        TracePrint 最小数值

        If 最小数值 > eval(数组(i)) or 最小数值=Empty Then 

            最小数变量 = 数组(i)

            If TypeName(最小数变量) <> "String" Then 

                最小数变量 = "数组(" & i & ")"

            End If

            最小数值 = eval(数组(i))

        End If  

    Next

    MessageBox "最大数是：" & 最大数变量 & "【" & 最大数变量 & "=" & 最大数值 & "】"&chr(13)&"最小数是：" & 最小数变量 & "【" & 最小数变量 & "=" & 最小数值 & "】"

End Function

'这个子函数表面看着好像比较复杂，实际只是为了力求完美，让它可以接受不同类型的参数，写多了几个判断而已，你自己琢磨下，还是简单易懂的。

可以做到，不过要求比较高，比如，原图(即数据库中的图像)分辨率是A，实际图分辨率是B，则即使两张图你肉眼看起来是一样的，但是程序也无法判定执行

找图流程如下

1、找到原图，用QQ截图或其他截图方式，截取后保存为.bmp格式文件，注意，尽量沿原图边缘截取。如，被截取图为“O”，那么你应该上下左右各贴O的边缘截取(重要！！会直接影响能否找到图像！！)

2、将找到的图放入按键精灵的附件中，并在脚本开头设置好释放附件的相应代码(PutAttachment ".\plugin","*.bmp" ///将附件中所有后缀是.bmp的文件释放到当前文件夹的plugin目录下)

3、找图的语句是

FindPic 0,0,1024,768,"图片名.bmp",0.9,intX,intY

If intX >0 And intY >0

++++++++++++则执行下面你要放的内容

Else

MessageBox "没有找到"

End If

解释：

1、FindPic 找图代码

2、0,0,1024,768 四点坐标，若你要在你自己的电脑上找图，则以你自己的桌面分辨率为准，例如，我的桌面分辨率是1024*768，则填0,0,1024,768，如果是800*900，则写0,0,800,900，以此类推。高级技巧：如果你明确知道你想要在278,152,960,285这个范围内找图，则直接填入该数值即可，屏幕左上角为0，0点，右下角为1024，768点（以1024*768为例）

3、"图片名.bmp" 你截取的图片叫什么名字就写什么名字+ .bmp 别忘了引号

4、0.9 相似度，一般0.9就可以了，1为最高，0为最低

5、intX,intY变量值，不管找到没有，都会有2个值被赋予到该变量中，找到则这两个变量值均>0，如果没有找到则<0

6、If intX>=0 And intY>=0 如果变量1及2全部>=0(也可以简写成某一个>0)，即，对比发现该图存在

7、++++++++++++则执行下面你要放的内容

8、Else 如果没有发现

9、MessageBox "没有找到" d出窗口告知没有找到

10、EndIf 该段如果结束 注意！！有一个IF，就应该有一个EndIf！！否则运行出错！！

如有其他问题，随时消息发给我

例子：

Dim 编号项(99)

number = 1

content = Inputbox("请输入编号")

TracePrint content

For i = 0 To UBound(编号项)

num = len(number)

Select Case num

Case 1

sernum = "A00" &number

Case 2

sernum = "A0" &number

Case 3

sernum = "A" &number

End Select

编号项(i) = sernum

If 编号项(i) = content Then

MessageBox "有匹配编号"

Exit For

End If

number = number + 1

Next

MessageBox "无匹配编号"

---