Транспортная задача методом северо западного угла

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim tt1, tt3, tt2, tt4, tt5, tt6, tt7, tt8, tt9, tt10, tt11, tt12 As Integer
        tt1 = txt8.Text
        tt2 = x12.Text
        tt3 = x13.Text
        tt4 = x14.Text
        tt5 = x21.Text
        tt6 = x22.Text
        tt7 = x23.Text
        tt8 = x24.Text
        tt9 = x31.Text
        tt10 = x32.Text
        tt11 = x33.Text
        tt12 = x34.Text
        'заполнение потребностей и запросов
        Dim a, b, c, d, i, f, g As Integer
        a = txt1.Text
        b = txt2.Text
        c = txt3.Text
        d = txt4.Text
        i = txt5.Text
        f = txt6.Text
        g = txt7.Text
        txtresult.Text = a + b + c + d
        txtresult.Text = i + f + g
        txt1.Text = t1.Text
        txt2.Text = t2.Text
        txt3.Text = t3.Text
        txt4.Text = t4.Text
        txt5.Text = t5.Text
        txt6.Text = t6.Text
        txt7.Text = t7.Text
        result1.Text = txtresult.Text
        'расчёт и распределение по северо-западному углу
        If a <= i Then
            x11.Text = a
        End If
        If i - a <= b Then
            x12.Text = i - a
        End If
        If x11.Text = a Then
            x31.Text = 0
        End If
        If x11.Text = a Then
            x21.Text = 0
        End If
        If b - x12.Text <= b Then
            x22.Text = b - x12.Text
        End If
        If b - x12.Text = x22.Text Then
            x32.Text = 0
        End If
        If f - x22.Text <= c Then
            x23.Text = f - x22.Text
        End If
        If c - x23.Text <= f Then
            x23.Text = c - x23.Text
        End If
        If c - x23.Text = x33.Text Then
            x13.Text = 0
        End If
        If g - x23.Text <= d Then
            x34.Text = g - x33.Text
        End If
        If g - x33.Text = x34.Text Then
            x24.Text = 0
        End If
        If g - x33.Text = x34.Text Then
            x14.Text = 0
        End If
    End Sub
 
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim q1, w1, r1, t1, y1, u1, q2, w2, r2, t2, y2, u2 As Integer
        q1 = txt8.Text
        w1 = x12.Text
        r1 = x22.Text
        t1 = x23.Text
        y1 = x33.Text
        u1 = x34.Text
        q2 = x11.Text
        w2 = x12.Text
        r2 = x22.Text
        t2 = x23.Text
        y2 = x23.Text
        u2 = x34.Text
        result.Text = q1 * q2 + w1 * w2 + r1 * r2 + t1 * t2 + y1 * y2 + u1 * u2
 
    End Sub
End Class

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'зполнение единиц измерения
        Dim tt1, tt3, tt2, tt4, tt5, tt6, tt7, tt8, tt9, tt10, tt11, tt12 As Integer
        tt1 = txt8.Text
        tt2 = txt9.Text
        tt3 = txt10.Text
        tt4 = txt11.Text
        tt5 = txt12.Text
        tt6 = txt13.Text
        tt7 = txt14.Text
        tt8 = txt15.Text
        tt9 = txt16.Text
        tt10 = txt17.Text
        tt11 = txt18.Text
        tt12 = txt19.Text
        'заполнение потребностей и запросов
        Dim a, b, c, d, i, f, g As Integer
        a = t1.Text
        b = t2.Text
        c = t3.Text
        d = t4.Text
        i = t5.Text
        f = t6.Text
        g = t7.Text
        txtResult.Text = a + b + c + d
        txtResult.Text = i + f + g
        txt1.Text = t1.Text
        txt2.Text = t2.Text
        txt3.Text = t3.Text
        txt4.Text = t4.Text
        txt5.Text = t5.Text
        txt6.Text = t6.Text
        txt7.Text = t7.Text
        result.Text = txtResult.Text
        'расчёт и распределение по северо-западному углу
        If a <= i Then
            x11.Text = a
        End If
        If i - a <= b Then
            x12.Text = i - a
        End If
        If x11.Text = a Then
            x31.Text = 0
        End If
        If x11.Text = a Then
            x21.Text = 0
        End If
        If b - x12.Text <= b Then
            x22.Text = b - x12.Text
        End If
        If b - x12.Text = x22.Text Then
            x32.Text = 0
        End If
        If f - x22.Text <= c Then
            x23.Text = f - x22.Text
        End If
        If c - x23.Text <= f Then
            x33.Text = c - x23.Text
        End If
        If c - x23.Text = x33.Text Then
            x13.Text = 0
        End If
        If g - x33.Text <= d Then
            x34.Text = g - x33.Text
        End If
        If g - x33.Text = x34.Text Then
            x24.Text = 0
        End If
        If g - x33.Text = x34.Text Then
            x14.Text = 0
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'подсчёт оптимальных затрат
        Dim q1, w1, r1, t1, y1, u1, q2, w2, r2, t2, y2, u2 As Integer
        q1 = txt8.Text
        w1 = txt9.Text
        r1 = txt13.Text
        t1 = txt14.Text
        y1 = txt18.Text
        u1 = txt19.Text
        q2 = x11.Text
        w2 = x12.Text
        r2 = x22.Text
        t2 = x23.Text
        y2 = x33.Text
        u2 = x34.Text
        txtResult1.Text = q1 * q2 + w1 * w2 + r1 * r2 + t1 * t2 + y1 * y2 + u1 * u2
    End Sub
End Class

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'подсчёт оптимальных затрат
        Dim q1, w1, r1, t1, y1, u1, q2, w2, r2, t2, y2, u2 As Integer
        Button1_Click(sender, e)
        q1 = txt8.Text
        w1 = txt9.Text
        r1 = txt13.Text
        t1 = txt14.Text
        y1 = txt18.Text
        u1 = txt19.Text
        q2 = x11.Text
        w2 = x12.Text
        r2 = x22.Text
        t2 = x23.Text
        y2 = x33.Text
        u2 = x34.Text
        txtResult1.Text = q1 * q2 + w1 * w2 + r1 * r2 + t1 * t2 + y1 * y2 + u1 * u2
    End Sub