关于选取奇数的问题

Question

数据在MSFlexGrid1.TextMatrix(i, 1)单元格，每列都是3位数的数字，如568
现在想MSFlexGrid1.TextMatrix(i, 2)显示MSFlexGrid1.TextMatrix(i, 1)单元格里有几个奇数
如MSFlexGrid1.TextMatrix(i, 1)数据为568，那么MSFlexGrid1.TextMatrix(i, 2)就应该显示1，因为只有一个5是奇数吗，这个代码该如何写呢

Answer 1

Dim str As String
Dim cnt As Integer
Dim i As Integer
str = MSFlexGrid1.TextMatrix(i, 1)
For i = 1 To Len(str)
If Asc(Mid(str, i, 1)) >= 48 And Asc(Mid(str, i, 1)) <= 57 Then
    If (CInt(Mid(str, i, 1)) Mod 2) <> 0 Then
        cnt = cnt + 1
    End If
End If
Next

Answer 2

循环每个数字，然后MOD 2是否等于0，非0的，就是奇数，然后再赋值就行了啊