Найти значения переменных, которые будут соответствовать условиям

Sub Main()
        For s As Integer = 1 To 7
            For a As Integer = 1 To 5
                If a < s Then
                    a = a
                End If
                For b As Integer = 1 To 9
                    If b < s Then
                        b = b
                    End If
                    If s  = a + b Then
                        Console.Write("number is:", s, a, b)
                        Console.ReadLine()
                    End If
 
                Next
            Next
        Next
        Console.ReadLine()
    End Sub

   
Sub Main()
 
        For a As Integer = 1 To 5
            For b As Integer = 1 To 9
                If (a < (a + b)) And (b < (a + b)) And ((a + b) <= 7) Then
                    Console.Write("number is: s=" & (a + b).ToString & ", a=" & a.ToString & ", b=" & b.ToString)
                    Console.ReadLine()
                End If
            Next
        Next
        Console.Write("The end.")
        Console.ReadLine()
 
    End Sub

        Dim An As Integer = 5
        Dim Bn As Integer = 9
        Dim Cn As Integer = 7
        Dim Sn As Integer = 7
        For a As Integer = 1 To An
            For b As Integer = 1 To Bn
                For c As Integer = 1 To Cn
                    If (a < 2 * (a + b + c)) And (b < 2 * (a + b + c)) And (c < 2 * (a + b + c)) And (2 * (a + b + c) <= Sn) Then
                        Console.WriteLine("s={0}, a={1}, b={2}, c={3}", 2 * (a + b + c), a, b, c)
                    End If
                Next
            Next
        Next
        Console.Write("Press ENTER to exit.")
        Console.ReadLine()

        Dim An As Integer = 5
        Dim Bn As Integer = 9
        Dim Cn As Integer = 7
        Dim Dn As Integer = 11
        Dim Sn As Integer = 7
       
        For a As Integer = 1 To An
            For b As Integer = 1 To Bn
                For c As Integer = 1 To Cn
                    For d As Integer = 1 To Dn
                        If (a < 3 * (a + b + c + d)) And (b < 3 * (a + b + c + d)) _
                            And (c < 3 * (a + b + c + d)) And (d < 3 * (a + b + c + d)) _
                            And (3 * (a + b + c + d) <= Sn) Then
                            Console.WriteLine("s={0}, a={1}, b={2}, c={3}, d={4}", 3 * (a + b + c + d), a, b, c, d)
                        End If
                    Next
                Next
            Next
        Next
        Console.Write("Press ENTER to exit.")
        Console.ReadLine()

If (a < 3 * (a + b + c + d)) And (b < 3 * (a + b + c + d)) _
                            And (c < 3 * (a + b + c + d)) And (d < 3 * (a + b + c + d)) _
                            And (3 * (a + b + c + d) <= Sn) Then

If (3 * (a + b + c + d) <= Sn) Then

    Public A() As Integer = {5, 9, 7, 11} ' здесь записать массив чисел.
    Public Smax As Integer = 7 ' здесь значение S
    Public B(0) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ReDim B(A.Length - 1)
        Dim tS As Integer
        For i = 0 To A.Length - 1
            B(i) = 1
        Next
        For S = 1 To Smax
            For K = 0 To A.Length - 1
                For j = 1 To A(K)
                    B(K) = j
                    tS = 0
                    For z = 0 To A.Length - 1
                        tS += B(z)
                    Next
                    If tS = S * (A.Length - 1) Then
                        Dim txt = "s=" & S
                        For z = 0 To A.Length - 1
                            txt = txt & ", a(" & z & ")=" & B(z)
                        Next
                        ListBox1.Items.Add(txt)
                    End If
                Next
            Next
        Next
        If ListBox1.Items.Count = 0 Then ListBox1.Items.Add("Решения нет")
    End Sub

 For S = A.Max + 1 To Smax

        Dim A() As Integer = {5, 9, 7} ' здесь записать массив чисел.
        Dim Smax As Integer = 7 ' здесь значение S
 
        Dim s, sstart, result As String
        s = ""
        sstart = ""
 
        If Smax < A.Length * (A.Length - 1) Then
            ListBox1.Items.Add("Решения нет")
            Exit Sub
        End If
        For i = 0 To UBound(A)
            s += A(i).ToString
            sstart += "1"
        Next
 
        Dim ar(UBound(A)) As Integer
        For i = CLng(sstart) To CLng(s)
            Dim sum As Integer = 0
            Dim pr As Boolean = False
            For j As Integer = i.ToString.Length To 1 Step -1
                If (CInt(Mid(i.ToString, j, 1)) > CInt(Mid(s, j, 1))) Or (CInt(Mid(i.ToString, j, 1)) = 0) Then
                    pr = True
                    Exit For
                Else
                    ar(j - 1) = CInt(Mid(i.ToString, j, 1))
                End If
            Next
            If pr Then Continue For
            If ar.Sum * UBound(ar) <= Smax Then
                result = ""
                For j = 0 To UBound(ar)
                    result += ", A(" & j & ")=" & ar(j)
                Next
                result = "s=" & ar.Sum & result
                ListBox1.Items.Add(result)
            End If
        Next

Dim Amin As Integer = 12
        Dim Amax As Integer = 16
        Dim Bmin As Integer = 8
        Dim Bmax As Integer = 21
        Dim Cmin As Integer = 15
        Dim Cmax As Integer = 24
        Dim Dmin As Integer = 7
        Dim Dmax As Integer = 17
        Dim Smin As Integer = 11 'Минимальное S
        Dim Smax As Integer = 23 'Максимальное S
        Dim st As String = ""
 
        For a As Integer = Amin To Amax
            For b As Integer = Bmin To Bmax
                For c As Integer = Cmin To Cmax
                    For d As Integer = Dmin To Dmax
                        If (a <= Smax) And (b <= Smax) _
                            And (c <= Smax) And (d <= Smax) _
                            And (((a + b + c + d) Mod 3) = 0) _
                            And ((((a + b + c + d) / 3)) >= Smin) And ((((a + b + c + d) / 3)) <= Smax) Then
                            st = "s=" & (a + b + c + d) / 3 & ", A=" & a & ", b=" & b & ", c=" & c & ", d=" & d
                            ListBox1.Items.Add(st)
                        End If
                    Next
                Next
            Next
        Next
        If st.Length = 0 Then ListBox1.Items.Add("Решений нет")

ListBox1.Items.Add(st)

Console.WriteLine(st)

If st.Length = 0 Then ListBox1.Items.Add("Решений нет")

If st.Length = 0 Then Console.Write("Решений нет")
        Console.ReadLine()

    Public Am() As Integer = {12, 8, 15, 7}
    Public A() As Integer = {16, 21, 24, 17}
    Public Smin As Integer = 11
    Public Smax As Integer = 23
    Public B(0, 0) As Integer
    Public tS As Integer
    Public bool As Boolean
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer = 1 ' количество вариантов всего
        For k = 0 To A.Length - 1
            n = n * ((A(k) - Am(k)) + 1)
        Next
        ReDim B(A.Length - 1, n)
        For i = 0 To A.Length - 1
            Dim n1 As Integer = 1 ' количество вариантов после
            For k = i + 1 To A.Length - 1
                n1 = n1 * ((A(k) - Am(k)) + 1)
            Next
            Dim n2 As Integer = 1 ' количество вариантов до
            For k = 0 To i - 1
                n2 = n2 * ((A(k) - Am(k)) + 1)
            Next
            For d = 1 To n2
                For z = 0 To A(i) - Am(i)
                    For x = 1 To n1
                        B(i, ((d - 1) * ((A(i) - Am(i)) + 1) + z) * n1 + x) = z + Am(i)
                    Next
                Next
            Next
        Next
        For s = Smin To Smax
            For j = 1 To n
                tS = 0
                For i = 0 To A.Length - 1
                    tS += B(i, j)
                Next
                bool = True
                For z = 0 To A.Length - 1
                    If s <= B(z, j) Then bool = False
                Next
                If bool And tS = s * (A.Length - 1) Then
                    Dim txt = "s=" & s
                    For z = 0 To A.Length - 1
                        txt = txt & ", a(" & z & ")=" & B(z, j)
                    Next
                    ListBox1.Items.Add(txt)
                End If
            Next
        Next
        If ListBox1.Items.Count = 0 Then ListBox1.Items.Add("Решения нет")
    End Sub

If (a <= Smax) And (b <= Smax) _
                            And (c <= Smax) And (d <= Smax) _
                            And (((a + b + c + d) Mod 3) = 0) _
                            And ((((a + b + c + d) / 3)) >= Smin) And ((((a + b + c + d) / 3)) <= Smax) Then

                        If (((a + b + c + d) Mod 3) <> 0) Then Continue For
                        If (a < ((a + b + c + d) / 3)) And (b < ((a + b + c + d) / 3)) _
                            And (c < ((a + b + c + d) / 3)) And (d < ((a + b + c + d) / 3)) _
                            And ((((a + b + c + d) / 3)) >= Smin) And ((((a + b + c + d) / 3)) <= Smax) Then