Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As Integer, temp As Integer Private Sub Command1_Click() For i = 1 To 5 For j = 1 To 5