... 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 ... Str(hoa)Text3.Text = Str(thuong)End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 15Thay thế tất cả các từ “em” trong câu thành “anh”. Nếu không có từ “em” thì báo là không ... 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 = " " &...