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ố đó
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 (48.84 KB, 1 trang )
Đế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
