... Str(tong)End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 14 Đếm số lượng chữ thường và chữ hoa trong câu nhập Bài 11 Kiểm tra tính tăng, giảm của mảng nhậpDim a(100), n, iPrivate ... vbCrLf End IfNext iEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 13 Đếm số chữ số trong câu nhập và tính tổng giá trị các chữ số đóPrivate Sub Command1_Click()Text1.Enabled ... Command2_Click()Dim s As String, is = Text1.Texti = InStr(1, s, "em", 1)If i > 0 ThenDo Bài 17Đảo từ trong câu đã nhậpPrivate Sub Command1_Click()Dim s As Strings = " " &...