تقسیم سکه

[saber67]

for i=0 to 10

for j=0 to 5

for k=0 to 2 

for m=0 to 1

if i+j+k+m=20 then

print i,j,k,m

end if

next m

next k

next j

next i

اون وقت این کد رو خودت اجرا نکردی ببینی اشتباهه!!!؟

یه تکست باکس بزارین رو فرم تون و خاصیت Multiline رو براش True کنین و کد زیر رو کپی کنین تو برنامه

Private Sub Form_Load()

    Dim i As Integer

    Dim j As Integer

    Dim k As Integer

    Dim m As Integer

    Text1.Text = vbNullString

    For i = 0 To 2

        For j = 0 To 4

            For k = 0 To 10

                For m = 0 To 20

                    If i * 10 + j * 5 + k * 2 + m * 1 = 20 Then

                        Text1.Text = Text1.Text & m & " Yek  " & k & " Dow  " & j & " Panj  " & i & " Dah" & vbNewLine

                    End If

                Next m

            Next k

        Next j

    Next i

End Sub