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