Verfügbare Informationen zu "Info für den 19.01.07"
Qualität des Beitrags: Beteiligte Poster: BennyThierry - Arthur Forum: Hal9000 Forenbeschreibung: Klassenforum aus dem Unterforum: Hausaufgaben Antworten: 2 Forum gestartet am: Donnerstag 10.08.2006 Sprache: deutsch Link zum Originaltopic: Info für den 19.01.07 Letzte Antwort: vor 17 Jahren, 3 Monaten, 10 Tagen, 11 Stunden, 50 Minuten
Alle Beiträge und Antworten zu "Info für den 19.01.07"
Re: Info für den 19.01.07
BennyThierry - 16.01.2007, 22:27Info für den 19.01.07
Public Sub aufruf_a_z()
Dim x As String
Dim y As String
x = InputBox("Wort eingeben", , "Wort eingeben")
y = InputBox("zu zählendes Zeichen", , "Zeichen eingeben")
MsgBox "Das eingegebene Wort " & x & " enthält " & anzahl_zeichen(x, y) & " '" & y & "'"
End Sub
Re: Info für den 19.01.07
Arthur - 18.01.2007, 19:50
Public Sub anzahl_zeichen()
Dim i As Integer
Dim anzahl As Integer
Dim t As String
Dim z As String
anzahl = 0
t = InputBox("Geben Sie ein Wort ein!", Default:="affe")
z = InputBox("Geben Sie einen Buchstaben ein!", Default:="f")
For i = 1 To Len(t)
If (Mid(t, i, 1) = z) Then
anzahl = anzahl + 1
End If
Next
MsgBox (anzahl & " " & z & " " & " steckt in " & t)
End Sub
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Hal9000
Ähnliche Beiträge wie "Info für den 19.01.07"
Info: RPG-Start - Lord Voldemort (Montag 04.06.2007)
Info - warbird (Freitag 02.06.2006)
KVAG Info-Center - Bernhard (Dienstag 01.05.2007)
Info - Jule (Dienstag 12.10.2004)
Dampfspeisepumpe von Klaefiger - Christian (Dienstag 20.01.2009)
INFO TOPIC - Jessy (Dienstag 04.04.2006)
Info - marten (Mittwoch 28.06.2006)
ZUR INFO!!!!!! - MIKO (Freitag 19.01.2007)
Info - Plerion (Sonntag 05.11.2006)
Info - !!Gangsterboss!! (Mittwoch 01.11.2006)