转换成字符串：CStr
搜索小数点位置：Instr
截取字符串：Mid这个能详细点么 大概框架也行Dim a As Single, b As Integer, c As Integer, s As Stringa = 123.4567s = CStr(a)b = Mid(s, InStr(1, s, ".") + 1, 2)c = Mid(s, InStr(1, s, ".") + 3, 2)