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 1á frỊ các chữ sô đó Nhap cau khong qua 50 ky tu Text2 Private Sub Commandl Click Textl.

Đêm sô chữ sô trong cầu nhập và tính tông

1á frỊ các chữ sô đó

Nhap cau khong

qua 50 ky tu

Text2

Private Sub Commandl Click()

Textl Enabled = True

End Sub

Private Sub Command2 Click()

Dim s As String * 50

Dim i, tong, dem, kg

s = Textl.Text

dem = 0

tong = 0

For i = 1 To Len(s)

If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <=

dem = dem + 1

tong = tong + Val(Mid(s,

End If

Next 1

kg = s & vbCrLf & vbCrLf &

tu la chu so"

Textl.Text = kq

Text2.Text = Str(tong)

End Sub

Private Sub Form Load()

Textl Enabled = False

End Sub

1, 1))

"Trong cau co "

"9" Then

& Str (dem) &

ụ

ky