Estoy Haciendo Un Sudoku Y Como Puedo Poner 81 Numeros En Los Text???

[mfc]

Hola estoy haciendo un sudoku 9x9 en visual y el primer paso que tengo que dar es como poner para que salgan 81 numeros en los 81 text,el sudoku solo cuenta con un boton y cunado lo pulses te tiene que meter 81 numeros dentro de los textbox,yo en el disseño tengo un boton llamado (command) y 81 casillas que son text y la pregunta es como puedo meter 81 numeros en las casillas sin repetirse y cada vez que pulse el boton otro sudoku completo salga , pero mi primera pregunta es:

COMO HAGO PARA QUE CUANDO PULSE EL BOTON SALGAN EN LOS 81 TEXT 81 NUMEROS ALETORIOS SIN REPETIRSE??

tengo que poner text1.text = ""
text2.text=""
haci hasta 81 veces?? no se me lo podeis explicar

[mfc]

nadie me puede ayudar

[aMaldonadoC]

mira mfc:
puedes hacer esto:
1. borra todas tus cajas de texto y sólo crea una, luego cópiala y pégala (para crear una matriz de controles) en elmismo lugar 80 veces, de esta manera tendrás textbox1(0), textbox1(1), textbox1(2), textbox1(3), textbox1(4)...., textbox1(80); o sea, tus 81 cajitas de texto.
2. después en el evento Command1_Click() lo siguiente:
For i=0 to 80
text1(i).text = Int(Rnd*10)
Next i
Nota: ese Int(Rnd*10) te da números aleatorios del 0 al 9.

[net_khronos]

Tb. aconsejo uses

1 array (0..9) tipo boolean, llamemosle NM (Numeros mostrados)

luego yo haria lo siguiente ...

1 array (0..9) tipo NM, esto serán las filas del sudoku y lo usaria para que no se repiesen los numeros en la misma fila.

1 array (0..9) tipo NM, este otro para las columnas

1 array (0..9) tipo NM, y este ultimo para cada cubo de 9 numeros

con esto controlarías que numeros vas mostrando en tu sudoku.

[Jefe_Negro]

Prueba con esto:

Dim oVal As New Collection
Dim X As Integer
Dim n As Integer



'Cargo coleccion con numeros
For X = 1 To 81
oVal.Add X, "N" & CStr(X)
Next

For X = 1 To 81
n = (oVal.Count - 1) * Rnd + 1
Me.Text1(X) = Mid(oVal(n), 1)
Debug.Print Mid(oVal(n), 1)
oVal.Remove n
Next