صفحه نخست | جستجو | آرشيو | لينکدوني |فروشگاه

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

سلام ! اینبار میخوام آموزش نوشتن برنامه ای رو بدم که میتونه زیر مجموعه های یه عدد رو مشخص کنه !

در ضمن شما باید با حلقه 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

 

|| نوشته شده توسط آرشام هکر در دسته : آموزش برنامه نویسی  |