Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Dim i
For i = 1 to len(Text1.text)
*was soll ich hier reinschreiben*
Next i
Dim i As Integer
Dim quersumme As Integer
Dim zwischensumme As Integer
Dim eingabe As String
eingabe = Text1.Text
quersumme = 0
For i = 0 To Len(eingabe)
zwischensumme = CInt(Mid(eingabe, i, 1))
quersumme = quersumme + zwischensumme
Next i
MsgBox(CStr(quersumme))
Dim eingabe, ausgabe As String
Private Sub main()
eingabe = InputBox("Bitte gib Deine Zahl ein", "My Quersummer")
ausgabe = Str(Quersumme(eingabe))
MsgBox "Die Quersumme von " + eingabe + " ist " + ausgabe + "."
End Sub
Private Function Quersumme(ByVal stringbuffer As String) As Integer
Dim loopcount As Integer
Quersumme = 0
For loopcount = 1 To Len(stringbuffer)
Quersumme = Quersumme + Val(Mid(stringbuffer, loopcount, 1))
Next loopcount
End Function