'Inicializa la funcion aleatoria
Randomize
'Obtiene un numero cualquiera
n = CInt(Rnd(100) * 100)
'Recorre las filas
For i = 1 To n
    'Recorre las columnas
    For j = 1 To n
        'Flag para encontrar un 0 o 1
        sigue = 1
        While sigue = 1
            Randomize
            x = CInt(Rnd * 10)
            'Consulta si es 0 o 1
            If x = 0 Or x = 1 Then
                  'Si es 0 o 1, lo visualiza
                sigue = 0
            End If
        Wend
        Print x
    Next j
Next i