muhahaha
20 August 2007 von Konrad Mohrfeldt
(01:12:09) Matschfleck: zähl mal bitte die F in dem text hier
FINISHED FILES ARE THE RE-
SULT OF YEARS OF SCIENTIF-
IC STUDY COMBINED WITH THE
EXPERIENCE OF YEARS
Private Sub Command1_Click()Dim x As Integer, i As IntegerFor i = 1 To Len(Text1.Text)If Right(Left(Text1.Text, i), 1) = “F” Thenx = x + 1End IfNext iMsgBox xEnd Sub
Veröffentlicht in Programmierung | Diesen Artikel drucken


