Soyez le premier à donner votre avis sur cette source.
Vue 4 762 fois - Téléchargée 409 fois
Private Sub Command1_Click() Dim a$, i% Dim boo As Boolean a$ = Trim(UCase(Text1.Text)) If Len(a$) > 0 Then boo = True For i% = 1 To Len(a$) / 2 If Mid$(a$, i%, 1) <> Mid$(a$, Len(a$) + 1 - i%, 1) Then boo = False End If Next i% If boo Then Shape1.FillColor = &HFF00& Label2.Caption = "C'est un palindrome" Else Shape1.FillColor = &HFF& Label2.Caption = "Ce n'est pas un palindrome" End If Else Shape1.FillColor = 0 End If End Sub
Esope reste ici et se repose
sont deux palindromes
Engage le jeu que je le gagne
ou encore
Et la marine va, papa, venir à Malte (V. Hugo)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.