Private Sub Command1_Click()
 Const n = 10, m = 6
 Dim A(n, m)
 Dim f As Boolean
 
     Randomize (Timer)
 
 For i = 1 To n
   For j = 1 To m
    Do
    c = 1 + Fix(Rnd * 50)
    f = True
      For k = 1 To j - 1
         If A(i, k) = c Then
            f = False
            Exit For
         End If
     Next k
     
     Loop While f = False
    
    A(i, j) = c
  
   Next j
 Next i
   For i = 1 To n
     Print
   For j = 1 To m
        Print Spc(1); Format(A(i, j), "00");
  Next j
Next i
End Sub

Private Sub Command1_Click()
 Const n = 10, m = 6
 Dim A(n, m)
 Dim f As Boolean
 
     Randomize (Timer)
 
 For i = 1 To n
   For j = 1 To m
    Do
    c = 1 + Fix(Rnd * 6)
    f = True
      For k = 1 To j - 1
         If A(i, k) = c Then
            f = False
            Exit For
         End If
     Next k
     
     Loop While f = False
    
    A(i, j) = c
  
   Next j
   For j = 1 To m - 1
      For k = j + 1 To m
        If A(i, j) > A(i, k) Then 'If A(i, j) < A(i, k) Then
           t = A(i, j): A(i, j) = A(i, k): A(i, k) = t
        End If
      Next k
   Next j
 Next i
   For i = 1 To n
     Print
   For j = 1 To m
        Print Spc(1); Format(A(i, j), "00");
  Next j
Next i
End Sub