Bonjour,
Exercice : Ecrire un algorithme qui déclare et remplisse un tableau contenant les six voyelles de l’alphabet latin et qui affiche un message lorsque tu répete le caractère deux fois :
" la voyalle " & v & " existe déjà veuillz saisir une autre svp "
j'ai réalisé l'exercice correctement mais quand je répete sur la 3ème case le même caractère le programme m'affiche pas le message de répétition !
[/code]
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim T(5) As String
Dim v As String
Dim i, j As Integer
For i = 0 To 5
If i = 0 Then
v = InputBox("Donnez la 1er voyelle Svp ")
Else
v = InputBox("Donnez la " & i + 1 & "eme voyelle svp")
End If
If v = "a" Or v = "e" Or v = "i" Or v = "u" Or v = "y" Or v = "o" Or v = UCase("a") Or v = UCase("e") Or v = UCase("i") Or v = UCase("u") Or v = UCase("y") Or v = UCase("o") Then
For j = 0 To i
If v = T(j) Then
MsgBox("la voyalle " & v & " existe déjà veuillz saisir une autre svp")
GoTo 1
Else
T(i) = v
GoTo 2
End If
Next
Else
1: i = i - 1
End If
2: Next
For i = 0 To 5
MsgBox("la voyalle de la case T(" & i & ") est : " & T(i))
Next
End Sub
End Class
[code#]
Partager