Ja nee
Schiff ahoi! Klar machen zum ändern!

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

Senap dazugeben