VB Program to find sum of the digit

Program to find length of the number

Sample :



I can't show you complete code Directly so download full code from below .
Download the output  for the form (design).




 Private Sub Text1_Change()
    Dim num, sum As Integer
    num = Val(Text1.Text)
    sum = 0
    While num > 0
        sum = sum + (num Mod 10)
        num = num \ 10
    Wend
    Text2.Text = sum
End Sub
Full Code :
Output(lengthofdigit.exe)

Full code(lengthofdigit.doc)

Full project(lengthofdigit.zip)

*Note Full project require Visual Basic 6.0
Share This:    Facebook Twitter Google+ Stumble Digg