جمع ارقام یک رشته شامل اعداد

[aliben10]

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdRun_Click()
Dim a As Integer
a = InputBox("yek adade 2 raghami vared konid")
Dim b As Integer
b = (a \ 10)
Dim b1 As Integer
b1 = (a Mod 10)
Print Spc(14); b + b1
End Sub
فقط دو رقمی حساب می کنه من میخوام تا بی نهایت رقم رو جمع کنه ینی رقم های عدد 123 رو باهم جمع کنه که مساویه با شش

[Love_Program]

dim I as integer
dim S
for i=1 to len(a)
s=s+int(mid(a,i,1)
next i
msgbox s

[علیرضا5]

Private Sub cmdExecute_Click()
Dim a As String
a = InputBox("یک عدد وارد نمائید")
Dim I As Integer
Dim S As Integer: S = 0
For I = 1 To Len(a)
S = S + Mid(a, I, 1)
Next I
MsgBox S
End Sub

[aliben10]

سلام ممنون که گفتین
میشه برای خط هفت و برای خط شش توضیح بدین چی هستن کجا به کار می رن؟

[علیرضا5]

یه تغییر کوچیک در کد دادم به نظرم بهتر شد از ویرایشش استفاده کن
خط ششم : LEN برای بدست آوردن طول رشته هست
خط هفتم : MID انتخاب تعدادی کاراکتر هست که در اینجا a : عددی که وارد کردی مثل 123 ** I : حرکت بین کاراکترها ** 1 : یعنی انتخاب یک کاراکتر (به جای 1 مثلا اگر 2 بذاری نتیجه 123 میشه 38 یعنی 12+23+3 )