用vb编程：统计0～9在文本框出现的次数

已经做好了，运行测试都通过，提交不上来啊，要源代码的话请留下邮箱。记得给点分哈^_^
to： weifenghuang
已经发了，早上刚做的，昨天的都不知道放哪了，还有我是用GMAIL发的，不知道你的126邮箱能不能收到，如果收不到可以联系我。

按输入字串的位数循环读取每一个数，设一个数组计数
如131
计数数组
count(0)=0
count(1)=2
count(2)=0
count(3)=1
......
程序自己写吧

你加分啊，没分谁给你解答啊

word=text1.text
function test(word)
testword="012346789"
for i=1 to len(word)
if instr(testword,mid(word,i,1)) <>0 then
s=s+1
end if
next
set test = s
end function
'这样吗？