Question

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

比如，a = 1 : b = 2 : c = 3 : d = 4 ，

用什么命令得出最小/最大的变量？

Answer 1

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

'你的程序里放入此子函数后，你在主程序里如下写入即可：
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

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