نشان دادن زیر مجموعه

[xrezax]

سلام دوستان

من می خوام برنامه ای بنویسم که عددی را بگیرد و زیرمجموعه هایش را نمایش دهد مانند


{}{1,2}{1,3}{2,3}{4,5}{1,2,3}{1},{2},{3}


ممنون میشم راهنمایی کنین. :قلب:

[parselearn]

Dim i As Integer
Dim counter As Integer
i = 10

For counter = 1 To i
If i Mod counter = 0 Then
Print counter
End If
Next counter


http://www.google.com/webhp?hl=en#sclient=psy&hl=en&site=webhp&q=%D9%BE%D9%8A%D8%AF%D8%A7+%D9%83%D8%B1%D8%AF%D9%8 6+%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF+%D8%A8%D8%AE%D8%B 4+%D9%BE%D8%B0%D9%8A%D8%B1+%D8%A8%D8%B1+%D9%8A%D9% 83+%D8%B9%D8%AF%D8%AF&aq=f&aqi=&aql=&oq=&fp=dded8f20a6bb9442
http://forum.majidonline.com/showthread.php?t=92994