Евклидово расстояние vb net

Question

У меня есть программа, которую я создал, результат не подходит, я хочу сделать умножение между строками чисел -1, -1, -1 и 1,2, -1

-1x1 = -1
-1x2 = -2
-1x-1 = 1

затем результаты суммируются

(-1) + (- 2) + 1 = -2

пожалуйста, решение, для умножения мин (-)

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

    Dim Total, Total2 As Integer
    Dim y As Integer = 0
    Dim b As Integer = 2
    Dim getArray As String = TextBox3.Text
    Dim arrVin() As Char = getArray.ToCharArray
    'Dim getArray2 As String = TextBox2.Text
    'Dim arrVin2() As Char = getArray2.ToCharArray
    Dim multArr() As Integer = {1, 2, -1}
    'Dim m As Integer = 1
    'Total = 0
    For Each x As String In arrVin
        If IsNumeric(x) = True Then
            'For Each i As String In arrVin2
            'muliply by a bigger number each time
            'm = 2

            'add the new product to the running total
            'Total = Total + (Val(x) + Val(x))
            'Total2 = (Val(x) * Val(i)) + Total2
            'Total = Total + (m * Val(x))
            Total2 += x * multArr(y)
            y = y + 1
            TextBox1.Text = Total2 + b
        End If
    Next
End Sub

Answer 1

Непонятно, что вы ожидаете от пользователя, чтобы ввести в TextBox1, вы, кажется, ожидаете, что каждое число будет только один символ, но ваш пример включает числа с более чем одним символом (например, -1).

Следующий код ожидает, что пользователь введет три целых числа, разделенных пробелами в TextBox1. Обратите внимание, что может иметь смысл иметь отдельный TextBox для каждого числа.

Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    Dim multArray() As Integer = {-1,-1,-1}
    Dim dataStr() As String = TextBox1.Text.Split({" "c},StringSplitOptions.RemoveEmptyEntries)
    If dataStr.Length <> multArray.Length Then 
        MessageBox.Show("Please enter 3 numbers separated by spaces")
        Exit Sub 
    End If
    Dim total As Integer  
    For i As Integer = 0 To multArray.Length - 1
        Dim num As Integer 
        If Not Integer.TryParse(dataStr(i), num) Then
            MessageBox.Show("Please enter valid integers")
            Exit Sub 
        End If
    total += multArray(i) * num
    Next  
    Label4.Text = total.ToString 
End Sub