主题：数字向下取整问题，求高手指教，感激不尽。

代码

Dim data As Integer = 230

Dim str As String = data
For i As Integer = str.Length - 1 To 0 Step -1
    If CInt(str(i).Tostring) Mod 2 = 1 Then
        msgbox(data \ 10 ^ (str.Length - i - 1))
        Exit For
    End If
Next