Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ups, kleine Korrektur ...
Autor: unbekannt
Datum: 10.01.02 22:37
esten_Click() Dim rString As String Dim i As lOng strKleinABC = LCase(Eingabe) rString = StrReverse(strKleinABC) blnAusgabeWert = True For i = 1 To Len(strKleinABC) If Mid(strKleinABC, i ,1) <> Mid(rString, i,1) Then blnAusgabeWert = False End If Next If blnAusgabeWert = True Then Interesponse = MsgBox("Dieses Wort ist ein Palindrom, Gratulation!", _ vbInformation + vbOKOnly, " Testergebnis !!! ") Else Interesponse1 = MsgBox("Dieses Wort ist leider kein Palindrom !!!", _ vbCritical + vbOKOnly, " Testergebnis !!! ") End If End Sub

Forschleife mit If- Bedingung	54	Andrew	10.01.02 21:08
Re: Forschleife mit If- Bedingung	318	Dieter	10.01.02 21:13
Re: Forschleife mit If- Bedingung	32	Moni	10.01.02 21:17
Sehr schön erklärt, Moni (oT)	325	Dieter	10.01.02 21:28
Danke Dieter ...	29	Moni	10.01.02 21:39
Superheißen Dank, aber...	29	Andrew	10.01.02 21:54
Re: Superheißen Dank, aber...	283	unbekannt	10.01.02 22:29
Ups, kleine Korrektur ...	269	unbekannt	10.01.02 22:37
Tausend Dank (o.T.)	30	Andrew	11.01.02 10:09

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen