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

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

    Public Am() As Integer = {12, 8, 15, 7, 1}
    Public A() As Integer = {16, 21, 24, 17, 25}

        Dim p = New polynom({15, 15, 15, 15, 15})
        Dim n = 0
        For s = 0 To 17
            p.SetS(s)
            Do
                If p.conditionOK Then
                    n += 1
                    Console.WriteLine("SET # {0}: s:{1} set: {2}", n, s, p.GetSet)
                End If
            Loop While p.NextSet = True
        Next
        If n = 0 Then
            Console.WriteLine("НЕТ РЕШЕНИЙ")
        End If

Dim p = New polynom({10, 20})

Dim p = New polynom({10, 20, 30})

        If ListBox1.Items.Count = 0 Then ListBox1.Items.Add("Решения нет") Else ListBox1.Items.Add("Всего вариантов: " & ListBox1.Items.Count)