两两这间进行比较，如何写？

Question

比如说有4行
1
2
3
4
我想让它们之间这样进行比较，即(1,2)(1,3)(1,4)(2,3)(2,4)(3,4)，请问该如何进行写代码

Answer 1

for i=1 to 4
 for t=i to 4
   
 next 
next

Answer 2

Private Sub Form_Load()
Dim a(1 To 4) As Integer
Dim i, j As Integer
Dim str As String
For i = 1 To 4
    a(i) = i
Next
For i = 1 To 3
    For j = i + 1 To 4
        str = str & "(" & a(i) & "," & a(j) & ")"
    Next
Next
Debug.Print str
End Sub

Answer 3

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim a() As String
    
    a = Split("5,67,2,33", ",")
    
    For i = 0 To UBound(a)
        For j = i + 1 To UBound(a)
            Print a(i) & IIf(Val(a(i)) > Val(a(j)), ">", "<") & a(j)
        Next j
    Next i
    
End Sub

Answer 4

Dim a(1 To 4) As Integer
Dim i As Integer
Dim j As Integer
Dim str As String
For i = 1 To 4
    a(i) = i
Next i
For i = 1 To UBound(a)
    For j = i + 1 To 4
        str = str & (a(i) & IIf(Val(a(i)) > Val(a(j)), ">", "<") & a(j))
    Next j
Next i
Debug.Print str
End Sub

Answer 5

Dim a(1 To 4) As Integer
Dim x As Integer 
Dim y As Integer 
Dim b As Integer
'把数付值到数组a(1 to 4)中
For X = 1 To 4
   For Y = 1 To 4 - X
       If a(Y) < a(Y + 1) Then
            b = a(Y)
            a(Y) = a(Y + 1)
            a(Y + 1) = b
        End If
    Next Y
Next X
 Print……'输出你要的形式

Answer 6

for i=1 to 4 
for j=i to 4 
  
if i>j thenelseend if
next 
next