bài tập CLC In lại câu đã nhập, mỗi từ trên một dòng

Enabled = False End Sub.

In lai câu đã nhập, mỗi từ trên một dong

Nhap cau

Ket qua

Private Sub Commandl Click()

Textl.Enabled = True

End Sub

Private Sub Command2 Click()

Dim s As String, 1

Ss = Textl.Text

Textl.Text = ""

For i = 1 To Len(s)

If Mid(s, i, 1) <> " " Then

Textl.Text = Textl.Text & Mid(s, i, 1)

Else

Textl.Text = Textl.Text & vbCrLf

End If

Next 1

End Sub

Private Sub Form Load()

Textl Enabled = False

End Sub