VB.Net: Correction des exercices tableaux et matrices 8

VB.Net: Correction des exercices tableaux et matrices 8





  1. Enoncé Exercice 8
  2. Buts:
    • Cet exercice a pour but de vérifier les points techniques suivants :
      • Déclaration et initialisation de tableaux en VB.Net.
      • Affichage des éléments du tableau
      • Parcourir des tableaux en VB.Net.

  3. Rappel
    1. Types tableau en VB.Net
      • Tableaux statiques : Taille et contenu fixés à la compilation
          •  Déclaration :Dim identifiant(dimension)As type = {énumération des valeurs,…};
      • Tableaux dynamiques : Taille et valeurs définies à l’exécution
        • Quand la taille exacte d’un tableau n’est pas connue, il est possible de créer des tableaux sans
          spécifier leurs dimensions. IL s’agit alors de tableaux dynamiques
          • Déclaration : Dim nom_de_variable() As type_de_donnée
          • Initialisation :Dim nom_de_variable = new type_de_donnée (taille);

    2. Tableau à 2 dimensions en VB.Net
      • Un tableau à deux dimensions se déclare de la manière suivante : Dim nom(,) As type = new type(n, m); n est le nombre de lignes et m le nombre de colonnes.

    3. Boucles en VB.Net
      • Une boucle est une instruction, ou un ensemble d’instructions, qui sont répétées un nombre spécifié de fois ou jusqu’à ce qu’une condition soit rencontrée.
      • Le type de boucle que vous utilisez dépend de votre tâche de programmation et de vos préférences personnelles en matière de codage.
      • Le langage VB.Net se distingue essentiellement d’autres langages (comme C++) par la boucle foreach, qui est conçue pour simplifier l’itération sur les tableaux ou les collections.

  4. Correction Exercice 8
  5. Module exercice8
    
        Dim tableau As Integer() = New Integer(19) {}
        Sub Main(args As String())
            remplirTableau()
            AffichageTab()
            RechercheTableau()
        End Sub
        Private Sub remplirTableau()
            Dim rnd As New Random()
            ' affectation de valeurs entières, pris au hasard entre 1 et 100, au tableau
            For i As Integer = 0 To 19
                tableau(i) = rnd.Next(1, 101)
            Next
        End Sub
        Private Sub AffichageTab()
            'affichage des valeurs du tableau
            For i As Integer = 0 To 19
                Console.WriteLine(tableau(i) & " ")
            Next
        End Sub
        Private Sub RechercheTableau()
            Dim entier As Int16 = 0
            Dim indice As Integer = 0
            Dim EntierTrouve As [Boolean] = False
            System.Console.WriteLine("Saisir un entier")
            entier = Convert.ToInt16(System.Console.ReadLine())
            'Recherche de l'entier saisie dans le tableau
            For i As Integer = 0 To 19
                If tableau(i) = entier Then
                    EntierTrouve = True
                    indice = i
    
                End If
            Next
            If EntierTrouve = True Then
                Console.WriteLine("La valeur {0} est dans la case : {1}", entier, indice)
            Else
                Console.WriteLine("La valeur {0} n'est pas dans le tableau", entier)
            End If
        End Sub
    
    
    End Module
    
    

Abonnez vous à notre chaîne YouTube gratuitement