• Home
 · 
• Math/Dates
 · 
• to tell the sum of the digits of a 3/4 digt number entered by the user

to tell the sum of the digits of a 3/4 digt number entered by the user

to tell the sum of the digits of a 3/4 digt number entered by the user

API Declarations


Dim a As Integer



Rate to tell the sum of the digits of a 3/4 digt number entered by the user

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

a = Text1.Text
b = a Mod 10
c = (a - b) \ 10
k = c Mod 10
i = (c - k) / 10
n = i Mod 10
f = (i - n) / 10

Print b + k + n + f
End Sub