vb 老师这个错在那了，类型不匹配

Private Sub Command15_Click()
Dim a(12) as string
Dim d As Integer, h As Integer
Dim i As Integer
Dim MyStr As String
Dim str As String

Dim it As Integer

Dim arr() As String
Dim s As Integer

For i = 0 To List2.ListIndex
str = List2.List(i)
arr = Split(str, ",")
a(1) = arr(0)
a(2) = arr(2)
a(3) = arr(4)
a(4) = arr(6)
a(5) = arr(8)
a(6) = arr(10)
a(7) = arr(1)
a(8) = arr(3)
a(9) = arr(5)
a(10) = arr(7)
a(11) = arr(9)
a(12) = arr(11)
For it = 1 To MSFlexGrid1.Rows - 1

s = MSFlexGrid1.TextMatrix(it, 1)

d = (Len(a(7)) - Len(Replace(a(7), s, ""))) / Len(s)
For h = MSFlexGrid1.Col To MSFlexGrid1.Col
MSFlexGrid1.TextMatrix(it, h + i) = d
Next
Next
Next
End Sub