VB.Net: Correction des exercices tableaux et matrices 1_2_3

VB.Net: Correction des exercices tableaux et matrices 1_2_3





  1. Enoncé Exercice 1_2_3
  2. Descriptions
    • Les tableaux sont comme les variables soit locales, soit globales et obéissent aux mêmesVB.Net: Correction des exercices tableaux et matrices 1_2_3
      règles. Dans VB, il existe deux types de tableaux : les tableaux de taille fixe et les tableaux
      dynamiques.
    • Les tableaux peuvent êtres déclarés à une seule dimension ou à n dimensions

  3. Correction Exercice 1_2_3
  4. Module exercice1_2_3
        Sub Main(args As String())
            System.Console.WriteLine("Exercice 1")
            exercice1()
            System.Console.WriteLine("Exercice 2")
            exercice2()
            System.Console.WriteLine("Exercice 3")
            exercice3()
        End Sub
        Private Sub exercice1()
            Dim tableau As Integer() = New Integer(2) {}
            Dim min As Integer = Nothing
            For i As Integer = 0 To 2
                System.Console.WriteLine("Saisir l'entier {0}", i + 1)
                tableau(i) = Convert.ToInt16(System.Console.ReadLine())
            Next
            'Recherche de minimum
            min = tableau(0)
            For i As Integer = 0 To 2
                For j As Integer = 0 To 2
                    If min > tableau(j) Then
                        min = tableau(j)
                    End If
                Next
            Next
            Console.WriteLine("Le minimum est: " & min & " ")
        End Sub
        Private Sub exercice2()
            Dim tab As Integer() = New Integer(26 - 6) {}
            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 26 - 6
                tab(i) = rnd.Next(5, 26)
            Next
            'affichage des valeurs du tableau
            For i As Integer = 0 To 26 - 6
                Console.WriteLine(tab(i) & " ")
            Next
            'Console.ReadLine()
        End Sub
        Private Sub exercice3()
            Dim alphabet As Char() = New Char(25) {}
            For i As Integer = 0 To 25
                alphabet(i) = Convert.ToChar(65 + i)
            Next
            For i As Integer = 0 To 25
                Console.WriteLine(alphabet(i))
            Next
        End Sub
    
    
    End Module
    

Abonnez vous à notre chaîne YouTube gratuitement