Dim str As String = 12345.7Dim strs() As String = str.Split("."c)output.show(strs(0))output.show(strs(1)) 参考: http://www.foxtable.com/help/topics/0245.htm