vb 关于统计问题

[okok588]

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
现在单独统计单个数好使，但如果统计
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，这样的，也就是1和2相连并且1在前面，但152，215，251这样的1和2不相连，有时顺序也不一样的却不能统计，我要的效果，也就是说只要ss当中的任何两个数和12相同就算一次，这样该如何改呢

[游子]

我敢肯定楼上的这位是高手 同意他的。

[feiyun0112]

m=UBound(Split(ss, "1"))
n=UBound(Split(ss, "2"))
if (m>n) m=n
i=i+m;


*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/