Vyskladanie cisiel k vysledku – Visual Basic – Fórum – Programujte.com

Potreboval by som poradit ako zapisat co najjednoduchsie kod ktory ma vyskladat pozadovane cislo z troch cisiel.Napr: Mam cislo 13 a cisla 2,5,7 z ktorych cislo 13 mam vyskladat.Dakujem za napad...

Celá čísla, počínaje jedničkou.

2 textboxy a tlačítko. 

Option Explicit

Private Sub cmd1_Click()

    Dim Total As Long
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim ret As String
    Dim Count As Long

    Total = Val(txt1.Text)

    For a = 1 To Int(Total / 3)

        For b = a To Int((Total - a) / 2)

            c = Total - a - b
            Count = Count + 1

            If ret > "" Then ret = ret & vbCrLf
            ret = ret & "(" & Round(Count) & ".)" & " = " & Round(a) & ", " & Round(b) & ", " & Round(c) & "."
        Next b

    Next a

    txt2.Text = ret
    Me.Caption = "Èiselný rozklad (" & Round(Total) & ", " & Round(Count) & " rozkladù)"

End Sub

Zkoušel jsem 13 a furt mi nevychází těch 2, 5, 7. Asi jsem tam něco přehlíd :)

Připojen obrázek.

#2 pee-jay_cz
presne... Mne to take moc nevychadzalo ale len cca 3 cisla. Preto som to vyriesil ako novy form a uzivatel vidi len pozadovane cislo a ma 3 tlacidla (2,5,7) a stlaca dokial nema vyskadanu hodnotu....

#3 kotlas6667
Jo, tak ja jsem to pochopil jinak, sorry za ty zmatky.