مشخص کردن زیرمجموعه های یک عدد
سلام ! اینبار میخوام آموزش نوشتن برنامه ای رو بدم که میتونه زیر مجموعه های یه عدد رو مشخص کنه !
در ضمن شما باید با حلقه for آشنا باشید تا کاکرد برنامه رو بهتر متوجه بشید !
اول یه تکست باکس ایجاد کنید ! که عدد رو توی اون مینویسیم ! حالا یه دگمه و یه لیست باکس هم ایجاد کنید !
با دوبار کلیک کردن بر روی دگمه وارد قسمت کد نویسی شید . . .
یک متغیر از نوع integer با نام n تعریف کنید !
Dim n As Integer
حالا n رو برابر text1.text قرار بدید !
n = Text1.Text
حالا به مهمترین بخش می رسیم ! باید یه حلقه از نوع for --- next ایجاد کنید به این صورت :
For i = 1 To n
If n Mod i = 0 Then
List1.AddItem i
end if
next i
خوب ما به برنامه گفتیم عدد n که همون مقدار text1.text هست رو بر i که از 1 تا n تقسیم کنه !
و اگر باقی مانده تقسیم برابر با 0 شد او عدد (i) رو به لیست باکس اضافه کنه !
این کار تا خود عدد یعنی تقسیم n بر n هم پیش میره که همین طور که میدونید خود n هم جز زیر مجموعه n هست .
امیدوارم مفید بوده باشه !
کد کامل برنامه :
Dim n As Integer
n = Text1.Text
For i = 1 To n
If n Mod i = 0 Then
List1.AddItem i
End If
Next i
در هر بازه زمانی دلخواه از کلیپ برد پشتیبان تهیه کنید 
هاستینگ freehostia ما رو هم تحریم کرد و وبسایت ما رو بست یا به عبارتی اکانت ما رو delete کرد !
