用逗号分隔的两个字符串文本框进行操作vb net

您可以分割输入字符串（TextBox1.Text和TextBox2.Text），压缩字符串数组以生成结果数组，最后将String.Join其放入TextBox3：

在一行中：

TextBox3.Text = String.Join(",", TextBox1.Text.Split({","c}, StringSplitOptions.RemoveEmptyEntries).
    Zip(TextBox2.Text.Split({","c}, StringSplitOptions.RemoveEmptyEntries),
        Function(x, y) CInt(x) + CInt(y)))

您可以使用相同的方法执行不同的算术运算：

Dim opr As Char = "+"c '<- From your arithmetic operation selector like ComboBox.

TextBox3.Text = String.Join(",", TextBox1.Text.Split({","c}, StringSplitOptions.RemoveEmptyEntries).
    Select(Function(x) CInt(x)).
    Zip(TextBox2.Text.Split({","c}, StringSplitOptions.RemoveEmptyEntries).
    Select(Function(y) CInt(y)),
        Function(x, y)
            Select Case opr
                Case "-"c
                    Return x - y
                Case "*"c
                    Return x * y
                Case "/"c
                    Return x \ y
                Case Else
                    Return x + y
            End Select
        End Function))

如果您先验证输入内容，将是一个好主意：

Dim Arr1() = TextBox1.Text.Split({","c}, StringSplitOptions.RemoveEmptyEntries)
Dim Arr2() = TextBox2.Text.Split({","c}, StringSplitOptions.RemoveEmptyEntries)
Dim opr As Char = OprTextBox.Text.ElementAtOrDefault(0) 'A TextBox this time as another example.
Dim ValidOpr() As Char = {"+"c, "-"c, "*"c, "/"c}

If Arr1.Length <> Arr2.Length OrElse
    Arr1.Any(Function(x) Not Integer.TryParse(x, Nothing)) OrElse
    Arr2.Any(Function(x) Not Integer.TryParse(x, Nothing)) OrElse
    Not ValidOpr.Contains(Opr) Then
    MessageBox.Show("Excuse me ... !?!?")
    Return
End If

'You have valid inputs. Proceed...

TextBox3.Text = String.Join(",", Arr1.Select(Function(x) CInt(x)).
    Zip(Arr2.Select(Function(x) CInt(x)),
        Function(x, y)
            Select Case opr
                Case "-"c
                    Return x - y
                Case "*"c
                    Return x * y
                Case "/"c
                    Return x \ y
                Case Else
                    Return x + y
            End Select
        End Function))

更好的是，enum算术运算：

Public Enum ArithmeticOperations
    Add
    Subtract
    Multiply
    Divide
End Enum

..并创建Function返回连接字符串的参数化。

'You name it...
Public Function GetCalcString(input1 As String,
                                input2 As String,
                                opr As ArithmeticOperations) As String

    Dim Arr1() = input1.Split({","c}, StringSplitOptions.RemoveEmptyEntries)
    Dim Arr2() = input2.Split({","c}, StringSplitOptions.RemoveEmptyEntries)

    If Arr1.Length <> Arr2.Length OrElse
        Arr1.Any(Function(x) Not Integer.TryParse(x, Nothing)) OrElse
        Arr2.Any(Function(x) Not Integer.TryParse(x, Nothing)) Then
        Return Nothing         
    End If

    Return String.Join(",", Arr1.Select(Function(x) CInt(x)).
                        Zip(Arr2.Select(Function(x) CInt(x)),
                            Function(x, y)
                                Select Case opr
                                    Case ArithmeticOperation.Subtract
                                        Return x - y
                                    Case ArithmeticOperation.Multiply
                                        Return x * y
                                    Case ArithmeticOperation.Divide
                                        Return x \ y
                                    Case Else
                                        Return x + y
                                End Select
                            End Function))
End Function

假设ComboBox以相同的顺序列出了算术运算：

Private Sub TheCaller()
    TextBox3.Text = GetCalcString(TextBox1.Text,
                                  TextBox12.Text,
                                  CType(ComboBox1.SelectedIndex, ArithmeticOperations))
End Sub