bài tập CLC Đếm số chữ số trong câu nhập và tính tổng giá trị các chữ số đó

Đế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 = True End Sub Private Sub Command2_Click() Dim s As String * 50 Dim i, tong, dem, kq s = Text1.Text dem = 0 tong = 0 For i = 1 To Len(s) If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then dem = dem + 1 tong = tong + Val(Mid(s, i, 1)) End If Next i kq = s & vbCrLf & vbCrLf & "Trong cau co " & Str(dem) & " ky tu la chu so" Text1.Text = kq Text2.Text = Str(tong) End Sub Private Sub Form_Load() Text1.Enabled = False End Sub . Đế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. Val(Mid(s, i, 1)) End If Next i kq = s & vbCrLf & vbCrLf & " ;Trong cau co " & Str(dem) & " ky tu la chu so" Text1.Text