En principio necesito alguna idea que me ilumine el camino a seguir ya que lo que he realizado tiene sentido pero no se como hacer la parte de generar un nº diferente a los que ya están puestos.
Código
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim TB(4, 4) As Short Dim TBC(24) As Short Dim C_NUM As Short = 0 Dim H As Short = 0 For I As Short = 0 To 4 For J As Short = 0 To 4 TB(I, J) = Int((25 - 1 + 1) * Rnd()) + 1 TB(I, J) = TBC(H) H = H + 1 Next Next H = 0 Do For I = 0 To 4 For J = 0 To 4 If TBC(H) = TB(I, J + 1) Then C_NUM = C_NUM + 1 TB(I, J + 1) = Int((24 - 0 + 1) * Rnd()) + 0 Else C_NUM = C_NUM - 1 End If Next Next H = H + 1 Loop While C_NUM > 0 For I = 0 To 4 For J = 0 To 4 TextBox1.Text = TextBox1.Text & TB(I, J) Next Next End Sub End ClasS