[VBnet] Problème avec un compteur

Problème avec un compteur [VBnet] - VB/VBA/VBS - Programmation

Marsh Posté le 16-02-2006 à 16:29:16    

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 :
  1. Dim intNombres(,) As Integer = {{1, 2}, _
  2.                                         {4, 5}, _
  3.                                         {7, 9}, _
  4.                                         {3, 1}, _
  5.                                         {2, 3}, _
  6.                                         {5, 9}, _
  7.                                         {8, 8}, _
  8.                                         {9, 9}, _
  9.                                         {7, 3}, _
  10.                                         {2, 1}, _
  11.                                         {5, 4}}
  14.         Dim intcompteurs(8) As Integer
  15.         Dim x As Integer
  16.         Dim y As Integer
  19.         For x = 1 To 9
  21.             For y = 1 To 9
  23.                 If intNombres(x, y) Then
  24.                     intcompteurs(x - 1) = intcompteurs(x - 1) + 1
  26.                 End If
  28.             Next
  30.         Next
  33.         UnLabel.Text = CStr(intcompteurs(0))
  34.         DeuxLabel.Text = CStr(intcompteurs(1))
  35.         TroisLabel.Text = CStr(intcompteurs(2))
  36.         QuatreLabel.Text = CStr(intcompteurs(3))
  37.         CinqLabel.Text = CStr(intcompteurs(4))
  38.         SixLabel.Text = CStr(intcompteurs(5))
  39.         SeptLabel.Text = CStr(intcompteurs(6))
  40.         HuitLabel.Text = CStr(intcompteurs(7))
  41.         NeufLabel.Text = CStr(intcompteurs(8))

Reply

Marsh Posté le 16-02-2006 à 16:29:16   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed