drakins | Bonjour à tous.
Je souhaite compter le nombre de fois qu'apparait un nombre dans un tableau à deux dimensions. Mais je n'y arrive pas.
Voici le code que j'ai fait. Pouriez vous m'aidez à le corriger svp. merci
Code :
- Dim intNombres(,) As Integer = {{1, 2}, _
- {4, 5}, _
- {7, 9}, _
- {3, 1}, _
- {2, 3}, _
- {5, 9}, _
- {8, 8}, _
- {9, 9}, _
- {7, 3}, _
- {2, 1}, _
- {5, 4}}
- Dim intcompteurs(8) As Integer
- Dim x As Integer
- Dim y As Integer
- For x = 1 To 9
- For y = 1 To 9
- If intNombres(x, y) Then
- intcompteurs(x - 1) = intcompteurs(x - 1) + 1
- End If
- Next
- Next
- UnLabel.Text = CStr(intcompteurs(0))
- DeuxLabel.Text = CStr(intcompteurs(1))
- TroisLabel.Text = CStr(intcompteurs(2))
- QuatreLabel.Text = CStr(intcompteurs(3))
- CinqLabel.Text = CStr(intcompteurs(4))
- SixLabel.Text = CStr(intcompteurs(5))
- SeptLabel.Text = CStr(intcompteurs(6))
- HuitLabel.Text = CStr(intcompteurs(7))
- NeufLabel.Text = CStr(intcompteurs(8))
|
|
