主题：求文本中的数字之和

 用正则表达式……挺简单。如下代码

Dim data As String = "年金643.8 医保1540.83 失业金404.33 公积金9704.7养老金5746.16"
Dim catchs As New System.Text.RegularExpressions.Regex("[0-9\.]+")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
Dim sum As Double = 0
For i As Integer = 0 To mc.Count - 1
    sum = sum + mc(i).Value
Next
msgbox(sum)