Titre: Exemple de nombre aléatoire.

Description:

Affiche d'une façon aléatoire, 10 nombres dans une plage de 1 à 10, sans répéter une seule fois le même nombre.
Affiche d'une façon aléatoire, 5 nombres dans une plage de 21 à 30, sans répéter une seule fois le même nombre.

Le code:

Option Explicit
Dim LS$ 'Saut de ligne

Private Sub Command1_Click()
Dim NAlea%, Cr2%, Don$, Vr1%
Dim Q%(1 To 10)
Randomize
NAlea = Int((10 * Rnd) + 1)
Q(1) = NAlea
Do Until Vr1 = 10
  Randomize
  NAlea = Int((10 * Rnd) + 1)
  For Cr2 = 1 To 10
    If Q(Cr2) = NAlea Then GoTo Saut1:
    Next
  Vr1 = Vr1 + 1
  Q(NAlea) = NAlea
      If Don = "" Then
      Don = NAlea
      Else
      Don = Don & LS & NAlea
      End If
Saut1:
  Loop
MsgBox Don
End Sub

Private Sub Command2_Click()
Dim NAlea%, Cr2%, Don$, Vr1%
Dim Q%(1 To 10)
Randomize
NAlea = Int((10 * Rnd) + 1)
Q(1) = NAlea
Do Until Vr1 = 5
  Randomize
  NAlea = Int((10 * Rnd) + 1)
  For Cr2 = 1 To 10
    If Q(Cr2) = NAlea Then GoTo Saut1:
    Next
  Vr1 = Vr1 + 1
  Q(NAlea) = NAlea
      If Don = "" Then
      Don = NAlea + 20
      Else
      Don = Don & LS & NAlea + 20
      End If
Saut1:
  Loop
MsgBox Don
End Sub

Private Sub Form_Load()
LS = Chr(13) & Chr(10)
End Sub