VB.Net: Correction des exercices tableaux et matrices 8

Enoncé Exercice 8

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.

Rappel

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);

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); où n est le nombre de lignes et m le nombre de colonnes.

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.

Correction Exercice 8

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