VB 輸入壹個正整數K,將K的各位數字分離後,累加求和。求代碼！！！

程序如下，已經運行正確：

Private?Sub?Command1_Click()

a?=?Text1.Text '取出文本內容

n?=?Len(a) '獲得文本長度

s?=?0

For?i?=?1?To?n '對每個字符進行操作

s?=?Val(Mid(a,?i,?1))?+?s '取出每壹個字符並轉換為數值，累加

Next?i

Print?s

End?Sub