VB.Net: Correction des exercices tableaux et matrices 9_10_11

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

9 Correction Exercice 9,10 et 11

9 Exercice 9

Module exercice9_10_11

    Sub Main(args As String())
        System.Console.WriteLine("Exercice 9------------------------------------")
        exercice9()
    End Sub

    Private Sub exercice9()
        Dim taille As Integer
        'Saisie du nombre des apprenants dans un groupe
        System.Console.WriteLine("Saisir un nombre entier n ")
        taille = Convert.ToInt16(System.Console.ReadLine())
        'Déclaration et initialisation du tableau
        Dim tableau As String() = New String(taille - 1) {}
        'Saisie des notes      
        For i As Integer = 0 To taille - 1
            System.Console.WriteLine("Saisir le caractère numéro: {0}", i + 1)
            tableau(i) = System.Console.ReadLine()
        Next
        'Affichage du tableau des notes
        For i As Integer = 0 To taille - 1
            Console.WriteLine("La case : {0} est remplie par : {1}", i + 1, tableau(i))
        Next
    End Sub
End Module

10 Exercice 10

Module exercice9_10_11
    Sub Main(args As String())
        System.Console.WriteLine("Exercice 10------------------------------------")
        exercice10()
    End Sub

    Private Sub exercice10()
        Dim taille As Integer = 10
        'Déclaration et initialisation du tableau
        Dim tableau As String() = New String(taille - 1) {}
        'Saisie des caractères      
        For i As Integer = 0 To taille - 1
            System.Console.WriteLine("Saisir le caractère numéro: {0}", i + 1)
            tableau(i) = System.Console.ReadLine()
        Next
        'Affichage du tableau des notes
        For i As Integer = 0 To taille - 1
            Console.WriteLine("La case : {0} est remplie par : {1}", i + 1, tableau(i))
        Next
        'Recherche des nombres et des majuscules
        Dim lettreMaj As Integer = 0
        Dim lettreMin As Integer = 0
        Dim chiffre As Integer = 0
        For i As Integer = 0 To taille - 1
            Dim ch As String = tableau(i)
            If Char.IsLetter(Convert.ToChar(ch)) Then
                If ch.Equals(ch.ToUpper()) Then
                    'Console.WriteLine("Le nombre des majuscules est : {0}", lettreMaj);
                    lettreMaj += 1
                Else
                    'Console.WriteLine("Le nombre des minuscules est : {0}", lettreMin);
                    lettreMin += 1

                End If
            Else
                'Console.WriteLine("Le nombre des chiffres est : {0}", chiffre);
                chiffre += 1
            End If
        Next
        Console.WriteLine("Le nombre des majuscules est : {0}", lettreMaj)
        Console.WriteLine("Le nombre des minuscules est : {0}", lettreMin)
        Console.WriteLine("Le nombre des chiffres est : {0}", chiffre)
    End Sub
End Module

11 Exercice 11

Module exercice9_10_11

    Sub Main(args As String())
        System.Console.WriteLine("Exercice 11------------------------------------")
        exercice11()
    End Sub

    Private Sub exercice11()
        Dim nbr As Integer = 0
        Dim entier As Integer = 0
        Dim tab As Integer() = New Integer(21 - 13) {}
        Dim rnd As New Random()
        ' affectation de valeurs entières, pris au hasard entre 5 et 10, au tableau
        For i As Integer = 0 To 21 - 13
            tab(i) = rnd.Next(12, 21)
        Next
        'affichage des valeurs du tableau
        For i As Integer = 0 To 21 - 13
            Console.WriteLine(tab(i) & " ")
        Next
        System.Console.WriteLine("Saisir un entier")
        entier = Convert.ToInt16(System.Console.ReadLine())
        For i As Integer = 0 To 21 - 13
            If tab(i) = entier Then
                nbr += 1
            End If
        Next
        Console.WriteLine(" L'entier :{0} se répète : {1} fois", entier, nbr)
    End Sub


End Module