Dim s1 As Integer, s2 As Integer, s3 As Integer, s4 As String

s1 = InStr("123", "1")
s2 = InStr("123", "2")
s3 = InStr("123", "3")

                If s1 < s2 < s3 Then
                s4="1,2,3"      
                End If
               
                If s1 < s3 < s2 Then
                s4 = "1,3,2"
                End If
               
                If s2 < s3 < s1 Then
                s4 = "2,3,1"
                End If
               
                If s2 < s1 < s3 Then
                s4 = "2,1,3"
                End If
               
                If s3 < s1 < s2 Then
                s4 = "3,1,2"
                End If
               
                If s3 < s2 < s1 Then
                s4 = "3,2,1"
                End If
                MsgBox s4
为什么是 3 ， 2 ， 1

完整语法是这样，但是我用的是简便语法，没发生过错误。现在只是对比3个数的大小