我将此方法移植到VB.NET上了,请看源码(二)

If num > 0 And num < 160 Then

Return Chr(num)

Else

If num < -20319 Or num > -10247 Then

Return ""

Else

Dim i, value As Integer

For i = PyList.Count - 1 To 0 Step -1

If PyList.GetByIndex(i) <= num Then Exit For

Next

@#value = CType(PyList.GetByIndex(i), Integer)

Return PyList.GetKey(i).ToString

End If

End If

End Function

#End Region

End Class