Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Eli jakaa Lauseen sanoihin
Lisää
-Text-loota lausetta varten
-List-loota eri sanoja varten
-Command-nappi
''' Formiin
Private Sub Command1_Click()
List1.Clear 'Tyhjennetään lista
For k = 1 To Len(Text1.Text) + 2
kir = Mid(Text1.Text, k, 1) 'Luetaan kirjain
If kir = " " Then 'Jos kirjain on välilyönti
List1.AddItem (sana) 'lisätään sana
sana = ""
GoTo 10
End If
If k = Len(Text1.Text) + 2 Then 'Jos sana Päättyy
List1.AddItem (sana) 'lisätään sana
sana = ""
End If
sana = sana + kir 'lisätään kirjain
10
Next k
End SubOnnistuu näinkin:
Private Sub Command1_Click()
List1.Clear
x = Split(Text1.Text, " ")
For n = 0 To UBound(x)
List1.AddItem (x(n))
Next
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.