Exercice VB: sommation

Participez au vote ☆☆☆☆☆★★★★★

Objectif :

Travailler avec les Fonctions et les Tableaux ; 

Travail à Faire :

  1. Ecrire une fonction sommation (t() as integer) as integer qui rend la somme de tous les éléments du tableau t.
  2. Ecrire un sous-programme appel-sommation () qui crée et initialise un tableau en demandant à l’utilisateur la taille du tableau à créer et les di?érentes valeurs à y ranger. Cet algorithme fera ensuite appel à la fonction sommation et a?chera son résultat.
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

1.
Public Function sommation(t() As Integer) As Integer
Dim s As Integer, i As Integer
s = 0
For i = LBound(t) To UBound(t)
s = s + t(i)
Next
sommation = s
End Function

2.
Public Sub appel_sommation()
Dim t() As Integer, n As Integer, i As Integer
n = InputBox("Taille du tableau ?")
ReDim t(1 To n)
For i = 1 To n
t(i) = InputBox("Valeur t(" & i & ") ?")
Next
MsgBox ("Somme des ´el´ements du tableau = " & sommation(t))
End Sub

Exercice VB: sommation

Objectif :

Travailler avec les Fonctions et les Tableaux ;

Travail à Faire :

  1. Ecrire une fonction sommation (t() as integer) as integer qui rend la somme de tous les éléments du tableau t.
  2. Ecrire un sous-programme appel-sommation () qui crée et initialise un tableau en demandant à l’utilisateur la taille du tableau à créer et les di?érentes valeurs à y ranger. Cet algorithme fera ensuite appel à la fonction sommation et a?chera son résultat.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

1.
Public Function sommation(t() As Integer) As Integer
Dim s As Integer, i As Integer
s = 0
For i = LBound(t) To UBound(t)
s = s + t(i)
Next
sommation = s
End Function

2.
Public Sub appel_sommation()
Dim t() As Integer, n As Integer, i As Integer
n = InputBox("Taille du tableau ?")
ReDim t(1 To n)
For i = 1 To n
t(i) = InputBox("Valeur t(" & i & ") ?")
Next
MsgBox ("Somme des ´el´ements du tableau = " & sommation(t))
End Sub

Exercice VB: Calcule dans un tableau à une seule dimension

Objectif:

Travailler avec Les tableaux à une seule dimension

Travail à Faire :

  1. Soit T un tableau de N réels. Ecrire le programme qui permet de calculer le nombre des occurrences d’un nombre X (c'est-à-dire combien de fois ce nombre X figure dans le tableau T).
  2. Ecrire un algorithme qui calcule le nombre d'entiers pairs et le nombre d'entiers impairs d'un tableau d'entiers.
  3. Soit un tableau T(n), écrire un algorithme qui calcule VMEP (valeur moyenne des éléments positifs), VMEN (valeur moyenne des éléments négatifs) et NEM (nombre d'éléments nuls).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88


1.
Module Module1
Dim i, Cpt, n As Integer
Dim X As Integer
Sub Main()
Cpt = 0
Console.Write("Entrez le nombre X : ")
X = Console.ReadLine
Console.Write("Entrez la taille du tableau : ")
n = Console.ReadLine
Dim T(n) As Double
For i = 1 To n
Console.Write("Entrez l'élément n° " & i & " : ")
T(i) = Console.ReadLine
If T(i) = X Then
Cpt += 1
End If
Next
Console.WriteLine("Le nombre d’occurrences de X est : " & Cpt)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim n, i, nbP, nbImp As Integer
Sub Main()
nbImp = 0
nbP = 0
Console.Write("Entrez la taille du tableau : ")
n = Console.ReadLine
Dim T(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
For i = 0 To n - 1
If T(i) Mod 2 = 0 Then
nbP += 1
Else
nbImp += 1
End If
Next
Console.WriteLine("Le nombre d'entiers impairs est: " & nbImp)
Console.WriteLine("Le nombre d'entiers pairs est: " & nbP)
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim n, i, nbPos, nbNeg, Vmoy_Pos, Vmoy_Neg, nbNull, Som_Pos, Som_Neg
As Double
Sub Main()
nbPos = 0
nbNeg = 0
nbNull = 0
Som_Pos = 0
Som_Neg = 0
Console.Write("Entrez la taille du tableau : ")
n = Console.ReadLine
Dim T(n) As Double
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
For i = 0 To n - 1
If T(i) = 0 Then
nbNull += 1
ElseIf T(i) > 0 Then
nbPos += 1
Som_Pos += T(i)
Else
nbNeg += 1
Som_Neg += T(i)
End If
Next
Vmoy_Pos = Som_Pos / nbPos
Vmoy_Neg = Som_Neg / nbNeg
Console.WriteLine("Le nombre d'éléments nuls est : " & nbNull)
Console.WriteLine("La valeur moyenne des éléments positifs est: "
& Vmoy_Pos)
Console.WriteLine("La valeur moyenne des éléments négatifs est: "
& Vmoy_Neg)
Console.ReadLine()
End Sub
End Module

Exercice VB: Manipulation de Tableau à une seul dimension

Ecrire le code VB qui permet de faire :

1-      Créer un tableau avec la méthode Randomize

2-      Tri à Bulle

3-      Tri par permutation

4-      Tri par Insertion

5-      Tri par Sélection

6-      Affichage du contenu de tableau

7-      Ajouter un nouveau Elément au tableau

8-      La Recherche dichotomique

9-      Un Menu de Choix

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181

Module module1

    Dim tab(9) As Integer
    Dim pos As Integer
    Dim element As Integer

    Sub menu()
        Console.WriteLine("*MENU DE CHOIX ((((Exercice Tableau))))*")
        Console.WriteLine("  1. ***RANDOMIZER*** ")
        Console.WriteLine("  2.***TRI_PAR_BULLE*** ")
        Console.WriteLine("  3.***AFFICHAGE*** ")
        Console.WriteLine("  4.***TRI_PAR_PERMUTATION***")
        Console.WriteLine("  5.***TRI_PAR_INSERTION***")
        Console.WriteLine("  6.***TRI_PAR_SELECTION***")
        Console.WriteLine("  7.***AJOUTER NOUVEAU ELEMENT***")
        Console.WriteLine("  8.***RECHERCHE_ DICHOTOMIQUE***")
    End Sub
    Sub Main()
        menu()
        Dim rep As Boolean
        Do
            Dim choise As Integer
            Console.WriteLine(" QUEL EST VOTRE CHOIX ?")
            choise = Console.ReadLine
            Select Case choise
                Case 1
                    randomize()
                Case 2
                    tri_par_bulle()
                Case 3
                    affichage()
                Case 4
                    tri_par_permutation()
                Case 5
                    tri_par_insertion()
                Case 6
                    tri_selection()
                Case 7
                    ajout(tab, element, pos)
                Case 8
                    recherche_dichotomique()
                Case Else
                    Console.WriteLine(" CE CHOIX N'EST PAS TRAITé ")
            End Select
        Loop While (rep = False)
        Console.ReadLine()
    End Sub

    Sub tri_par_bulle()

        Dim inversion As Boolean
        Dim tampon As String
        Do
            inversion = False
            For i As Integer = 0 To 8
                If tab(i + 1) < tab(i) Then
                    tampon = tab(i)
                    tab(i) = tab(i + 1)
                    tab(i + 1) = tampon
                    inversion = True
                End If
            Next
        Loop Until inversion = False
        affichage()
    End Sub
    Sub affichage()

        For i = 0 To 9
            Console.Write(tab(i) & "  ")
        Next
        Console.WriteLine()
    End Sub

    Sub randomize()
        For i As Integer = 0 To 9
            tab(i) = Rnd() * 100
        Next
        For Each cellule In tab
            Console.Write(cellule & vbTab)
        Next
    End Sub
    Sub tri_par_permutation()
        Dim j As Integer
        Dim tampon As Integer
        Dim K As Integer
        For i = 0 To 7
            If tab(i + 1) < tab(i) Then
                tampon = tab(i + 1)
                j = 0
                While (j < i) And (tab(j) < tab(i + 1))
                    j = j + 1
                End While

                For K = (i + j) To (j + 1)
                    tab(K) = tab(K - 1)
                Next
                tab(j) = tampon
            End If
        Next
        affichage()
    End Sub
    Sub tri_par_insertion()
        Dim tampon As Integer
        For i As Integer = 0 To 8
            For j As Integer = i + 1 To 9
                If tab(i) > tab(j) Then
                    tampon = tab(i)
                    tab(i) = tab(j)
                    tab(j) = tampon
                End If
            Next
        Next
        affichage()
    End Sub
    Sub recherche_dichotomique()
        Dim val, mil, debut, fin As Integer
        Dim find As Boolean
        find = False
        debut = 0
        fin = 9
        Console.WriteLine("entrez l'element recherchez")
        val = Console.ReadLine

        While debut <= fin And find = False
            mil = debut + ((fin - debut) / 2)
            If tab(mil) = val Then
                find = True
                Console.WriteLine()
            ElseIf tab(mil) < val Then
                debut = debut + 1
            Else
                fin = mil - 1
            End If
        End While
        If find = True Then
            Console.WriteLine("existe")
        Else
            Console.WriteLine("n'existe pas")
        End If
    End Sub

    Sub tri_selection()
        Dim petit As Integer
        Dim position As Integer
        Dim j As Integer
        Dim i As Integer
        For i = 0 To 8
            petit = tab(i)
            For j = i To 9
                If tab(j) < petit Then
                    petit = tab(j)
                    position = j
                End If
            Next
            For j = position To i + 1 Step -1
                tab(j) = tab(j - 1)
            Next
            tab(i) = petit
        Next
        affichage()
    End Sub
    Sub ajout(ByRef tab() As Integer, ByVal pos As Integer, ByVal element As Integer)
        Dim rep As String
        Dim i As Integer
        Console.WriteLine("voulez vous ajouter un nombre o/n ")
        rep = Console.ReadLine()
        If rep = "n" Then
            Console.WriteLine(" merci de votre participation")
        ElseIf rep = "o" Then
            Console.WriteLine("entrez l'élement que vous voulez")
            element = Console.ReadLine

            ReDim Preserve tab(i + 1)
            Console.WriteLine(" entrez la possiton que vous voulez")
            pos = Console.ReadLine
            pos = element
        End If
        affichage()
    End Sub

End Module

Exercice VB: Opérations sur un tableau à 1 seul Dimension

Objectif:

Travailler avec Les tableaux à une seule dimension


Travail à Faire :

1. Ecrire un Programme qui renverse un tableau (Si le tableau est trié en ordre croissant, il devient trié par ordre décroissant).

2. Ecrire un Programme qui insère un élément donné X à la position K d'un tableau.

3. Soit T un tableau rangés dans l'ordre croissant. Ecrire un Programme qui insère un élément donné X dans le tableau T en respectant l'ordre croissant?

4. Donner un Programme pour supprimer un élément donné d'un tableau d'entiers.

6. Donner un Programme qui prend en argument un tableau d'entiers de taille n et qui le modifie de tels sorts que tous les entiers pairs se retrouvent avant les entiers impairs.

Exemple :

Au départ : T = 7 4 7 8 4 6 3 9 4.

Après modification : T = 4 8 4 6 6 7 7 3 9.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136

1.
Module Module1
Dim i, n As Integer
Sub main()
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n), tcopy(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ")=")
t(i) = Console.ReadLine
Next
For i = 0 To n - 1
tcopy(i) = t(n - 1 - i)
Console.Write(tcopy(i) & " ")
Next
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim n, i, x, pos, temp As Integer
Sub Main()
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
n = n + 1
Console.Write("Entre l'élément à ajouter : ")
x = Console.ReadLine
Console.WriteLine(" ")
Console.Write("Entre sa position : ")
pos = Console.ReadLine
For i = pos To n - 1
temp = t(i)
t(i) = x
x = temp
Next
For i = 0 To n - 1
Console.Write(t(i) & " ")
Next
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Sub Main()
Dim i, n, x, j, temp As Integer
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
n += 1
Console.Write("Entrez le numero à ajouter : ")
x = Console.ReadLine
t(i) = x
For i = n - 1 To 1 Step -1
For j = 1 To i
If t(j - 1) > t(j) Then
temp = t(j)
t(j) = t(j - 1)
t(j - 1) = temp
End If
Next
Next
For i = 0 To n - 1
Console.Write(t(i) & " ")
Next
Console.ReadLine()
End Sub
End Module

4.
Module Module1
Sub Main()
Dim i, pos, n, x As Integer
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ")=")
t(i) = Console.ReadLine
Next
Console.Write("Entrez l'élément à supprimé : ")
x = Console.ReadLine
For i = 0 To n - 1
If x = t(i) Then
pos = i
End If
Next
For i = pos To n - 1
t(i) = t(i + 1)
Next
For i = 0 To n - 2
Console.Write(t(i) & " ")
Next
Console.ReadLine()
End Sub
End Module

6.
Module Module1
Dim n, c, i As Integer
Sub Main()
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n), taff(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
c = 0
For i = 0 To n - 1
If t(i) Mod 2 = 0 Then
taff(c) = t(i)
If
Next
For i = 0 To n - 1
If t(i) Mod 2  0 Then
taff(c) = t(i)
c += 1
End If
Next
For i = 0 To n - 1
Console.Write(taff(i) & " ")
Next
Console.ReadLine()
End Sub
End Module

Exercice VB: choix de Pays

Travail à Faire :

Ecrire le code qui permet de réaliser l’interface qui contient les données suivantes :

  • Une  liste de choix de pays (Liste déroulante, Combobox) contenant des pays .
  • Les villes du pays choisi s’affichent dans une zone d’affichage (Listeboxe, Datagride, Listeview…).
  • Une zone de texte permet à l’utilisateur d’ajouter une ville à un pays sélectionné
  • Une Boutton ajouter qui exécute l’instruction précédente
  • Une Boutton supprimer qui permet de supprimer une ville dans un pays
  • Une Boutton quitter qui permet de quitter le programme

L’interface est la suivante :

Enonc-exercice-VB-id2050 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

Public Class Form1
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dedans As Boolean

        For x = 0 To ListBox1.Items.Count - 1

            If TextBox1.Text = ListBox1.Items.Item(x) Then
                dedans = True

            End If
        Next
        If dedans = False Then
            ListBox1.Items.Add(TextBox1.Text)
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged



        If ComboBox1.Text = "Maroc" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("rabat")
            ListBox1.Items.Add("Marrakech")
        ElseIf ComboBox1.Text = "France" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Paris")
        ElseIf ComboBox1.Text = "USA" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Washington")
        End If

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        Dim Label3 As New Label()
        Dim Image1 As Image
        Image1 = Image.FromFile("D:\tout dossier nazihaphotossCARTE POSTALE\1_505881_1_34")
        Label3.Image = Image1
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Maroc")
        ComboBox1.Items.Add("France")
        ComboBox1.Items.Add("USA")
        ComboBox1.Items.Add("Germany")
        ComboBox1.Items.Add("Egypt")
        ComboBox1.Items.Add("Espagne")
        ComboBox1.Items.Add("Brisil")
        ComboBox1.Items.Add("Chine")
        ComboBox1.Items.Add("India")
        ComboBox1.Items.Add("Tunisi")
        ComboBox1.Items.Add("Itali")
        ComboBox1.Items.Add("Canada")
    End Sub
End Class

Exercice VB: Calculatrice Simplifié

Ecrire le programme qui permet de réaliser l'interface suivante:



ExerciceVB-id2097 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

Public Class calculatrice
    Dim stock, result As Integer
    Dim op
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sept.Click
        sept.Text = "7"
        TextBox1.Text = TextBox1.Text & sept.Text
    End Sub
    Private Sub deux_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deux.Click
        deux.Text = "2"
        TextBox1.Text = TextBox1.Text & deux.Text
    End Sub

    Private Sub trois_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trois.Click
        trois.Text = "3"
        TextBox1.Text = TextBox1.Text & trois.Text
    End Sub

    Private Sub ktr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ktr.Click
        ktr.Text = "4"
        TextBox1.Text = TextBox1.Text & ktr.Text
    End Sub

    Private Sub cinq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinq.Click
        cinq.Text = "5"
        TextBox1.Text = TextBox1.Text & cinq.Text
    End Sub

    Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click
        six.Text = "6"
        TextBox1.Text = TextBox1.Text & six.Text
    End Sub

    Private Sub huit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles huit.Click
        huit.Text = "8"
        TextBox1.Text = TextBox1.Text & huit.Text
    End Sub

    Private Sub neuf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles neuf.Click
        neuf.Text = "9"
        TextBox1.Text = TextBox1.Text & neuf.Text
    End Sub

    Private Sub un_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un.Click
        un.Text = "1"
        TextBox1.Text = TextBox1.Text & un.Text
    End Sub

    Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click
        zero.Text = "0"
        TextBox1.Text = TextBox1.Text & zero.Text
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text = ""
    End Sub

    Private Sub virgul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles virgul.Click
        virgul.Text = ","
        TextBox1.Text = TextBox1.Text & virgul.Text
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "+"
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles egal.Click
        If op = "+" Then
            TextBox1.Text = Trim(Val(TextBox1.Text)) + stock
        ElseIf op = "-" Then
            TextBox1.Text = stock - Trim(Val(TextBox1.Text))
        ElseIf op = "*" Then
            TextBox1.Text = Trim(Val(TextBox1.Text)) * stock
        ElseIf op = "/" Then
            TextBox1.Text = stock / Trim(Val(TextBox1.Text))
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "-"
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "*"
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "/"
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles retourne.Click

        TextBox1.Text = Mid(TextBox1.Text, 1, (Len(TextBox1.Text) - 1))
        TextBox1.Text = Val(TextBox1.Text)

    End Sub

    Private Sub moinplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles moinplus.Click
        If Val(TextBox1.Text) < 0 Then
            TextBox1.Text = Val(TextBox1.Text) * (-1)
        Else
            TextBox1.Text = Val(TextBox1.Text) * (-1)
        End If
    End Sub

    Private Sub racine_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles racine.Click
        TextBox1.Text = Math.Sqrt(Val(TextBox1.Text))
    End Sub

    Private Sub por_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles por.Click
        TextBox1.Text = Val(TextBox1.Text) * 1 / 100
    End Sub

    Private Sub carré_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles carré.Click
        TextBox1.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
    End Sub
End Class

Exercice VB: Séquence

Objectif:

Travailler avec Les tableaux à une seule dimension

Travail à Faire :

1. On considère une séquence d'entiers représentée dans un tableau. Ecrire un Programme qui affiche la valeur du dernier entier de la séquence.

2. On considère une séquence de durées représentée dans un tableau. Ecrire un Programme qui lit une durée D, et qui affiche la petite durée supérieur à D, présente dans la séquence.

L'Programme est décomposé en deux étapes : recherche de la première durée supérieure à D, puis calcul du résultat par un parcours de la fin de séquence.

3. On considère une séquence d'entiers représentée dans un tableau. Ecrire un Programme qui affiche un message indiquant si la séquence comporte que des entiers positifs.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

1.
Module Module1
Dim i, V, n As Integer
Sub Main()
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ")=")
t(i) = Console.ReadLine
Next
V = t(n - 1)
Console.Write("La valeur du dernier entier de la séquence est : "
& V)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Sub Main()
Dim i, n, x, d, min As Integer
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n), td(x) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ")=")
t(i) = Console.ReadLine
Next
x = -1
Console.Write("D = ")
d = Console.ReadLine
For i = 0 To n - 1
If t(i) > d Then
x = x + 1
ReDim Preserve td(x)
td(x) = t(i)
End If
Next
min = td(0)
For i = 0 To td.Length - 1
If td(i) < min Then
min = td(i)
End If
Next
Console.Write("La petite durée supérieur à D est : " & min)
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim i, n As Integer
Dim Test As Boolean = True
Sub Main()
Console.Write("Entrez la taille du Tableau : ")
n = Console.ReadLine
Dim t(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ")=")
t(i) = Console.ReadLine
Next
For i = 0 To n - 1
If t(i) < 0 Then
Test = False
End If
Next
If Test = True Then
Console.WriteLine("La séquence comporte que des entiers
positifs.")
Else
Console.WriteLine("La séquence ne comporte pas que des
entiers positifs.")
End If
Console.ReadLine()
End Sub
End Module

Exercice VB: Tableau à deux dimensions

Ecrire le code VB qui permet de :

1-      Créer un tableau qui conteint les Informations des Etudients

2-      Trier le Tableau

3-      Affichage du contenu de tableau

4-      Ajouter un nouveau Etudiant au tableau

5-      Supprimer un Etudiant existant dans le Tableau

6-      La Recherche d’un Etudiant

7-      Ajouter une Case au Tableau qui contient la décision selon la Moyenne Générale : si la moyenne >= 10 alors l'étudiant est Admis si non il est Eliminé

8-      Un Menu de Choix

Pour vous aider on doit remplire le Tableau comme suit:

La Première case du tableau contient le numéro de l’étudiant

La Deuxième case du tableau contient le nom de l’étudiant

La Troisième case du tableau contient le Prénom de l’étudiant

La Quatrième case du tableau contient la 1er note de l’étudiant

La Cinquième case du tableau contient la 2ème note de l’étudiant

La Sixième case du tableau contient la 3ème note de l’étudiant

La Septième case du tableau contient la Moyenne générale de l’étudiant 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170

Module Module1
    Dim tab(,) As String
    Dim nb As Integer
    Public Sub Menu()
        Console.WriteLine(".*..*..*.APPLICATIONS POUR LES TABLEAUX A 2 DIMENSIONS.*..*..*.")
        Console.WriteLine(".*.1.Créer le Tableau.*.")
        Console.WriteLine(".*.2.Trier le Tableau.*.")
        Console.WriteLine(".*.3.Afficher le Tableau.*.")
        Console.WriteLine(".*.4.Ajouter dans le Tableau.*.")
        Console.WriteLine(".*.5.Supprimer du Tableau.*.")
        Console.WriteLine(".*.6.Rechercher dans le Tableau.*.")
        Console.WriteLine(".*.7.Classement et Décisions.*.")
    End Sub

    Sub Main()
        Dim rep As String
        Do
            Menu()
            Dim choix As Integer
            Console.WriteLine("Taper votre choix")
            choix = Console.ReadLine
            Select Case choix
                Case 1
                    Console.WriteLine("saisir la dimension de votre tableau")
                    nb = Console.ReadLine()
                    ReDim tab(nb, 8)
                    tab = Saisie()
                Case 2
                    tab = Tri(tab)
                Case 3
                    Affichage(tab)
                Case 4
                    tab = Ajout(tab)
                Case 5
                    Dim numsupp As Integer
                    Console.WriteLine("saisir le numero de l'etudiant à supprimer")
                    numsupp = Console.ReadLine
                    tab = Suppression(tab, numsupp)
                Case 6
                    Dim numRech As Integer
                    Console.WriteLine("saisir le numero de l'etudiant à rechercher")
                    numRech = Console.ReadLine
                    AfficheRecherche(tab, numRech)
                Case 7
                    tab = Classement(tab)
                Case Else
                    Console.WriteLine("ce choix n'est pas traité")
            End Select
            Console.WriteLine("Voulez vous continuez  O/N  ")
            rep = Console.ReadLine().ToUpper
        Loop While (rep.Equals("O"))
    End Sub
    Public Function Saisie() As String(,)
        For i As Integer = 0 To tab.GetUpperBound(0) - 1 'on arrête la saisie avant la derniere ligne 
            Console.WriteLine("saisir le numero de l'etudiant   " & i + 1)
            tab(i, 0) = Console.ReadLine
            Console.WriteLine("saisir le nom de l'etudiant   " & i + 1)
            tab(i, 1) = Console.ReadLine()
            Console.WriteLine("saisir le prenom de l'etudiant   " & i + 1)
            tab(i, 2) = Console.ReadLine()
            Console.WriteLine("saisir la note 1 de l'etudiant   " & i + 1)
            tab(i, 3) = Console.ReadLine()
            Console.WriteLine("saisir la note 2 de l'etudiant   " & i + 1)
            tab(i, 4) = Console.ReadLine()
            Console.WriteLine("saisir la note 3 de l'etudiant   " & i + 1)
            tab(i, 5) = Console.ReadLine()
            tab(i, 6) = ((Double.Parse(tab(i, 3)) + Double.Parse(tab(i, 4)) + Double.Parse(tab(i, 5))) / 3).ToString
        Next
        Return tab
    End Function
    Public Sub Affichage(ByRef t(,) As String)
        For i As Integer = 0 To t.GetUpperBound(0) - 1 'on n'affiche pas la derniere ligne
            For j As Integer = 0 To t.GetUpperBound(1)
                Console.Write(t(i, j) & "     ")
            Next
            Console.WriteLine("")
            Console.WriteLine("")
        Next
    End Sub
    Public Function Tri(ByRef t(,) As String) As String(,)
        For i As Integer = 0 To t.GetUpperBound(0) - 1
            For j As Integer = i + 1 To t.GetUpperBound(0)
                If CType(t(i, 6), Double) < CType(t(j, 6), Double) Then
                    For k As Integer = 0 To t.GetUpperBound(1)
                        t(t.GetUpperBound(0), k) = t(i, k)
                        t(i, k) = t(j, k)
                        t(j, k) = t(t.GetUpperBound(0), k)
                    Next
                End If
            Next
        Next
        Return t
    End Function
    Public Function Ajout(ByRef t(,) As String) As String(,)
        Dim t1(t.GetUpperBound(0) + 1, 8) As String
        For i As Integer = 0 To t.GetUpperBound(0) - 1
            For j As Integer = 0 To t.GetUpperBound(1)
                t1(i, j) = t(i, j)
            Next
        Next
        Console.WriteLine("saisir le numero de l'etudiant à ajouter  ")
        t1(t1.GetUpperBound(0) - 1, 0) = Console.ReadLine
        Console.WriteLine("saisir le nom de l'etudiant à ajouter  ")
        t1(t1.GetUpperBound(0) - 1, 1) = Console.ReadLine()
        Console.WriteLine("saisir le prenom de l'etudiant à ajouter  ")
        t1(t1.GetUpperBound(0) - 1, 2) = Console.ReadLine()
        Console.WriteLine("saisir la note 1 de l'etudiant à ajouter  ")
        t1(t1.GetUpperBound(0) - 1, 3) = Console.ReadLine()
        Console.WriteLine("saisir la note 2 de l'etudiant à ajouter  ")
        t1(t1.GetUpperBound(0) - 1, 4) = Console.ReadLine()
        Console.WriteLine("saisir la note 3 de l'etudiant à ajouter  ")
        t1(t1.GetUpperBound(0) - 1, 5) = Console.ReadLine()
        t1(t1.GetUpperBound(0) - 1, 6) = ((Double.Parse(t1(t1.GetUpperBound(0) - 1, 3)) + Double.Parse(t1(t1.GetUpperBound(0) - 1, 4)) + Double.Parse(t1(t1.GetUpperBound(0) - 1, 5))) / 3).ToString
        Return t1
    End Function

    Public Function Suppression(ByRef t(,) As String, ByVal element As Integer) As String(,)
        Dim pos As Integer = Recherche(t, element)
        Dim t1(t.GetUpperBound(0) - 1, 8) As String
        If pos  -1 Then
            For i As Integer = 0 To t.GetUpperBound(0) - 1
                For j As Integer = 0 To t.GetUpperBound(1)
                    If t(i, 0)  element Then
                        t1(i, j) = t(i, j)
                    Else : t1(i, j) = t(i + 1, j)
                    End If
                Next
            Next
        End If
        Return t1
    End Function
    Public Function Recherche(ByRef t(,) As String, ByVal element As Integer) As Integer
        Dim pos As Integer = -1
        For i As Integer = 0 To t.GetUpperBound(0)
            If t(i, 0) = element Then
                pos = i
            End If
        Next
        Return pos
    End Function
    Public Sub AfficheRecherche(ByRef t(,) As String, ByVal element As Integer)
        Dim pos As Integer = Recherche(t, element)
        If pos  -1 Then
            For i As Integer = 0 To t.GetUpperBound(1)
                Console.Write(t(pos, i) & "      ")
            Next
            Console.WriteLine()
        Else
            Console.WriteLine("l'element recherché n'existe pas")
        End If
    End Sub
    Public Function Classement(ByVal t(,) As String) As String(,)
        t(0, 7) = CType(1, String)
        For i As Integer = 1 To t.GetUpperBound(0) - 1
            If Double.Parse(t(i - 1, 6)) = Double.Parse(t(i, 6)) Then
                t(i, 7) = t(i - 1, 7)
            Else : t(i, 7) = CType(i + 1, String)
            End If
        Next
        For i As Integer = 0 To t.GetUpperBound(0) - 1
            If Double.Parse(t(i, 6)) >= 10 Then
                t(i, 8) = "Admis"
            Else : t(i, 8) = "Eliminé"
            End If

        Next
        Return t
    End Function

End Module
Contenu publié le 04 Janvier 2012 Mise à jour le Jeudi, 15 Décembre 2022 23:08 et rédigé par Babachekhe Mohamed