主题：字符转数值，再转字符 ，帮我看看，这代码错在哪里？

Dim pars() As String = Multi.Split("-")
If pars.length <> 2 then

    msgbox("输入不正确")

    Return

End If

 控件命名要规范， 前缀_行号_列号 这样，如 Tsa_1_1

 然后，写成循环

For i As Integer = 1 to 7

    Dim sum As Double = 0

    For j As Integer = 1 to 7

        Dim val As String = e.Form.Controls("Tsa_" & i & "_" & j).Text

        '这里实现你的逻辑

    Next

    e.Form.Controls("Tsa_" & i & "_8").Text = sum

Next

比如，横向的统计

For i As Integer = 1 To 7
    Dim sum1 As Double = 0
    Dim sum2 As Double = 0
    For j As Integer = 1 To 7
        Dim ary() As String = e.Form.Controls("Ts_" & i & "_" & j).Text.split("+")
        If ary.length = 2 Then
            sum1 += val(ary(0))
            sum2 += val(ary(1))
        End If
    Next
    e.Form.Controls("Ts_" & i & "_8").Text = sum1 & "+" & sum2
Next