VB提取各位数字

数字=inputbox（"请输入一个非负整数"）
位数=len(数字）
print "你输入的";数字;"共有";位数;"位"
for 位=1 to 位数
print "第";位;"位数是：";mid（数字,位,1）
next 位

我对VB不是很懂
我就说说我的想法

首先 输入数字 是在text中
是文本型 用测试字符串长度的函数测试
得到的n就是数字的为数了
求个位数字就更好办了
s=val(text1.text)
for i=1 to n
texti.text=s mod 10
s=s/10
next i