Page 195 - 4192

Програмний код:
Private Sub Command1_Click()
Text1.text = Text1.text + " "
d = Len(Text1.text)
For n = 1 To d
s$ = Mid(Text1.text, n, 1)
If s$ = Chr(13) Or s$ = Chr(10) Then s$ = Chr(32)
If Not s$ = Chr(32) Then
word$ = word$ + s$
Else
If Len(word$) > 0 Then
List1.AddItem (word$)
word$ = "": s$ = ""
k = k + 1
End If
End If
Next
Text1.Visible = False
Command1.Visible = False
Command4.Visible = False
Command3.Visible = True
List1.Visible = True
Label1.Visible = True
Label1.Caption = "ʳëüê³ñòü ñë³â =" + Str(k)
End Sub

Private Sub Command3_Click()
Command3.Visible = False
Command1.Visible = True
Command4.Visible = True
List1.Visible = False
List1.Clear
Label1.Visible = False
Text1.Visible = True

194