Выведите массив на экран в обратном порядке по 6 чисел в строке

Option Explicit
Dim i As Double
Dim k As Double
Dim MS() As Double
Private Sub Command1_Click()
ReDim MS(7, 7)
Cls
For i = 1 To 7
   For k = 1 To 7
      MS(i, k) = Int(Rnd * 100 + 10)
       Print vbTab; MS(i, k);
       
   Next
   Print
Next
End Sub
Private Sub Command2_Click()
        For i = 7 To 1 Step -1
                For k = 7 To 1 Step -1
 
                Print vbTab; MS(i, k);
                Next
            Print
        Next
End Sub

Option Explicit
Option Base 1
 
Private Sub Form_Load()
Dim a(40) As Integer
Dim i As Integer
Randomize
For i = 1 To 40
a(i) = Rnd * 90 + 10
Text1.Text = Text1.Text + Str(a(i)) + " "
Next
Text1.Text = Text1.Text + vbCrLf + vbCrLf
For i = 40 To 1 Step -1
If (i = 35) Or (i = 29) Or (i = 23) Or (i = 17) Or (i = 11) Or (i = 5) Then
Text1.Text = Text1.Text + Str(a(i)) + vbCrLf
Else
Text1.Text = Text1.Text + Str(a(i)) + " "
End If
Next
End Sub

If (i = 35) Or (i = 29) Or (i = 23) Or (i = 17) Or (i = 11) Or (i = 5) Then

If i Mod 6 = 5 Then

If i Mod 6 = 0 Then

Option Explicit
Dim i As Double
Dim a(1 To 40) As Double
Private Sub Command1_Click()
'ReDim a(1 To 40)
Cls
For i = 1 To 40
a(i) = Int(Rnd * 100 + 10)
Print vbTab; a(i);
       If i Mod 5 = 0 Then Print vbTab; a(i)
Next
End Sub

Option Explicit
Dim i As Double
Dim a(1 To 40) As Double
Private Sub Command1_Click()
'ReDim a(1 To 40)
Cls
For i = 1 To 40
a(i) = Int(Rnd * 100 + 10)
Print vbTab; a(i);
       If i Mod 6 = 0 Then Print vbTab; ""
Next
End Sub

Option Explicit
Dim i As Double
Dim a(1 To 40) As Double
Private Sub Command1_Click()
Cls
For i = 1 To 40
a(i) = Int(Rnd * 100 + 10)
Print a(i); vbTab;
       If i Mod 6 = 0 Then Print vbTab; ""
Next
Print vbLf
 
For i = 40 To 1 Step -1
Print a(i); vbTab;
       If i Mod 6 = 0 Then Print vbTab; ""
Next
End Sub

Option Explicit
Dim i As Double
Dim a(1 To 40) As Double
Private Sub Command1_Click()
Cls
For i = 40 To 1 Step -1
a(i) = Int(Rnd * 100 + 10)
Print a(i); vbTab;
If i Mod 6 = 5 Then Print vbLf
Next
End Sub

Option Explicit
Dim i As Double
Dim j As Double
Dim a(1 To 40) As Double
Dim b(1 To 40) As Double
Private Sub Command1_Click()
Cls
For i = 1 To 40
a(i) = Int(Rnd * 100 + 10)
Print a(i); vbTab;
       If i Mod 6 = 0 Then Print vbTab; ""
 
Next
Print vbLf
For i = 40 To 1 Step -1
b(i) = a(41 - i)
Next
 
 
For i = 1 To 40
Print b(i); vbTab;
       If i Mod 6 = 0 Then Print vbTab; ""
Next
End Sub