Imports System.Collections.Generic

Public Class Form1

    Dim max As Integer =  10 
    Dim count As Integer
    Dim page_up As Integer =  1 
    Dim page_down As Integer =  2 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim list As New List(Of Double)
        list.Add( 0 . 1 )
        list.Add( 0 . 9 )
        list.Add( 0 . 3 )
        list.Add( 0 . 5 )
        list.Add( 0 . 8 )
        list.Add( 0 . 5 )
        list.Add( 0 . 6 )

        Dim way As New List(Of Double)
        Me.Find(list, way,  0 ,  1 . 8 )


    End Sub

    Private Function Find(ByRef valueList As List(Of Double), _
                          ByRef wayList As List(Of Double), _
                          ByVal currValue As Double, _
                          ByVal targetValue As Double) As Boolean

        For Each value As Double In valueList
            currValue += value

            'save way list
            wayList.Add(value)

            Dim ret As Boolean
            If (currValue = targetValue) Then
                ret = True
            Else
                'not used values
                Dim newList As New List(Of Double)
                newList.AddRange(valueList)
                newList.Remove(value)

                ret = Me.Find(newList, wayList, currValue, targetValue)
            End If

            If ret Then
                Return True
            Else
                wayList.RemoveAt(wayList.Count -  1 )
            End If
        Next

        Return False
    End Function

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim list As New List(Of Decimal)

        list.Add( 0 . 2 )
        list.Add( 0 . 7 )
        list.Add( 1 . 3 )
        list.Add( 2 . 6 )
        
        Dim way As New List(Of Decimal)
        Me.Find(list, way,  0 ,  10 )


    End Sub

    Private Function Find(ByRef valueList As List(Of Decimal), _
                          ByRef wayList As List(Of Decimal), _
                          ByVal currValue As Decimal, _
                          ByVal targetValue As Decimal) As Boolean

        For Each value As Decimal In valueList
            currValue += value

            'save way list
            wayList.Add(value)

            Dim ret As Boolean
            If (currValue = targetValue) Then
                ret = True
            Else
                ret = Me.Find(valueList, wayList, currValue, targetValue)
            End If

            If ret Then
                Return True
            Else
                wayList.RemoveAt(wayList.Count -  1 )
            End If
        Next

        Return False
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim list As New List(Of Decimal)

        list.Add( 2 . 6 )
        list.Add( 1 . 3 )
        list.Add( 0 . 7 )
        list.Add( 0 . 2 )

        Dim way As New List(Of Decimal)
        Me.Find(list, way,  0 ,  86 )


    End Sub

    Private Function Find(ByRef valueList As List(Of Decimal), _
                          ByRef wayList As List(Of Decimal), _
                          ByVal currValue As Decimal, _
                          ByVal targetValue As Decimal) As Boolean

        For Each value As Decimal In valueList
            currValue += value

            'save way list
            wayList.Add(value)

            Dim ret As Boolean
            If (currValue = targetValue) Then
                ret = True
            ElseIf currValue > targetValue Then
                ret = False
            Else
                ret = Me.Find(valueList, wayList, currValue, targetValue)
            End If

            If ret Then
                Return True
            Else
                wayList.RemoveAt(wayList.Count -  1 )
            End If
        Next

        Return False
    End Function

 Private Function Find(ByRef valueList As List(Of Decimal), _
                          ByRef wayList As List(Of Decimal), _
                          ByVal currValue As Decimal, _
                          ByVal targetValue As Decimal) As Boolean

        For Each value As Decimal In valueList
            currValue += value

            'save way list
            wayList.Add(value)

            Dim ret As Boolean
            If (currValue = targetValue) Then
                ret = True
            ElseIf currValue > targetValue Then
                ret = False
            Else
                ret = Me.Find(valueList, wayList, currValue, targetValue)
            End If

            If ret Then
                Return True
            Else
                wayList.RemoveAt(wayList.Count -  1 )
            End If

            currValue -= value
        Next

        Return False
    End Function

int F(L vl,L wl,L cv,L tv){int r;foreach(decimal v in vl){wl.Add(v);if(cv+v==tv) r = 1;else if(cv+v<tv)r = F(vl, wl, cv+v , tv);if (r) break;else wl.RemoveAt(wl.Count - 1);}return r;}

class L:List<decimal>{}; int F(L a, L b, L c, L d){int r= 0 ;foreach(decimal v in a){b.Add(v);if(c+v==d)r= 1 ;else if(c+v<d)r=F(a,wl,c+v,d);if(r)break;else wl.RemoveAt(b.Count- 1 );}return r;}

class L:List<decimal>{}; int F(L a, L b, L c, L d){int r= 0 ;foreach(decimal v in a){b.Add(v);if(c+v==d)r= 1 ;else if(c+v<d)r=F(a,wl,c+v,d);if(r)break;else wl.RemoveAt(b.Count- 1 );}return r;}

class L:List<decimal>{}; int F(L a, L b, L c, L d){int r= 0 ;foreach(decimal v in a){b.Add(v);if(c+v==d)r= 1 ;else if(c+v<d)r=F(a,wl,c+v,d);if(r)break;else wl.RemoveAt(b.Count- 1 );}return r;}

class L:List<decimal>{}; int F(L a, L b, L c, L d){...foreach(decimal v in a){...if(c+v==d)...