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

Формулировка задачи:

безуспешно пробую решить простую задачу: целые переменные s = 1 to 7, a = 1 to 5, b = 1 to 9 Нужно найти значения переменных, которые будут соответствовать условиям a < s b < s s = a + b последний код
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
физическое решение примерно следующее s = 2 a = 1 b = 1 s = 3 a = 1 b = 2 a =2 b = 1 и т.д. Пожалуйста подтолкните в нужном направлении Спасибо

Код к задаче: «Найти значения переменных, которые будут соответствовать условиям - Visual Basic .NET»

textual
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("Решений нет")

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ