Bonsoir mes amis.
Je veux instancier un tableau avec des chiffres aléatoires. Avec le code suivant ça marche:
Par contre quand je mets "Dim hasard As New Random" à l'intérieur de la boucle, j'ai le même chiffre dans tablo2:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Module Module1 Sub Main() Dim tablo1() As Integer = {1, 2, 3, 4, 5, 6} Dim tablo2(5) As Integer Dim hasard As New Random For i As Integer = 0 To 5 Dim x As Integer = hasard.Next(0, 6) tablo2(i) = tablo1(x) Next For Each elem In tablo2 Console.WriteLine(elem) Next Console.ReadKey() End Sub End Module
Je ne comprends pas la logique du 2ème code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Module Module1 Sub Main() Dim tablo1() As Integer = {1, 2, 3, 4, 5, 6} Dim tablo2(5) As Integer For i As Integer = 0 To 5 Dim hasard As New Random Dim x As Integer = hasard.Next(0, 6) tablo2(i) = tablo1(x) Next For Each elem In tablo2 Console.WriteLine(elem) Next Console.ReadKey() End Sub End Module
Merci
Partager