|
发表于2007/12/4 13:27:00
VB6 Code
Dim v() As String Dim n(9) As Long Dim i As Long
v = Split( "5,7,6,8,5,2,1,6,4,8,6,9,4,1,3,2,5 ", ", ") For i = LBound(v) To UBound(v) n(CLng(v(i))) = n(CLng(v(i))) + 1 Next
For i = 0 To 9 Debug.Print i & "次数: " & n(i) Next
|