MSFlexGrid1统计问题

Question

         For it = 1 To MSFlexGrid1.Rows - 1
         s = MSFlexGrid1.TextMatrix(it, 1)
s是3位数的数，现在要求d=MSFlexGrid1.TextMatrix(it, 2)统计出当前行（包括当前行)以前,1共出现多少次
如现在有5行数据为
第一行 s=566   那么d=0,没有1出现
第二行s=814   那么d=1, 1在2行数据中共出现一次
第三行s=119   那么d=3,1在3行数据中共出现3次
第四行s=031   那么d=4,1在4行数据中共出现4次
第五行s=789   那么d=4,1在5行数据中共出现4次
这个该怎么写

Answer 1

d = 0
For it = 1 To MSFlexGrid1.Rows - 1 
    s = MSFlexGrid1.TextMatrix(it, 1)
    d = d + ubound(splits,"1"))
    MSFlexGrid1.TextMatrix(it, 2) = d
Next

Answer 2

 i = 0
For it = 1 To MSFlexGrid1.Rows - 1
    ss = MSFlexGrid1.TextMatrix(it, 1)
    i = i + UBound(splits, "1")
    MSFlexGrid1.TextMatrix(it, 3) = d
Next
splits未定义怎么定义啊

Answer 3

i = 0
For it = 1 To MSFlexGrid1.Rows - 1
    ss = MSFlexGrid1.TextMatrix(it, 1)
    i = i + UBound(Split(ss, "1"))
    MSFlexGrid1.TextMatrix(it, 3) = i
Next
改好了，谢谢老师，看错了

Answer 4

 i= 0
For it = 1 To MSFlexGrid1.Rows - 1 
    ss = MSFlexGrid1.TextMatrix(it, 1) 
    i = i + UBound(Split(ss, "12")) 
    MSFlexGrid1.TextMatrix(it, 3) = i 
Next 
老师出现一个新问题，如果像这样12的，它只能辨认像122，512，这样的，不能辨认，152，215，251这样的，也就是说只要ss当中的任何两个数和12相同就算一次，这样该如何改呢