bài tập CLC In lại câu đã nhập, mỗi từ trên một dòng
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (27.81 KB, 1 trang )
In lại câu đã nhập, mỗi từ trên một dòng
Private Sub Command1_Click()
Text1.Enabled = True
End Sub
Private Sub Command2_Click()
Dim s As String, i
s = Text1.Text
Text1.Text = ""
For i = 1 To Len(s)
If Mid(s, i, 1) <> " " Then
Text1.Text = Text1.Text & Mid(s, i, 1)
Else
Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
Private Sub Form_Load()
Text1.Enabled = False
End Sub
