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 |