فوري (سوال درباره ويژويال بيسيك)

[behzad74]

سلام من در اين برنامهكه در اون مقسوم عليه عدد رو چاپ ميكنه سوالي داشتم
]راهنما
"براي پيدا كردن مقسوم عليه هاي يك عدد بايد اون رو بر تمامي اعداد از 1 تا نصف عدد تقسيم كرد و اگر باقيمانده صفر بود بخش پذير است و ان را به عنوان مقسوم عليه چاپ خواهد كرد"

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالا چطور ميشه اين برنامه رو طوري تغيير داد كه
1. علاوه بر چاپ مقسوم عليه ها . تعداد اونها رو هم چاپ كنه
2.مجموع مقسوم عليه ها را چاپ كند

[Mohsen.Sh_PC]

این هم کد. اگه منظورت همینه:10:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[amirxbest]

Dim behzad, behzad2 As Integer,i as byte
i=0
Cls
behzad2 = InputBox("Lotfan Adad Ra Vared Konid")
Select Case behzad2
Case Is <= 0
MsgBox ("Adad Bayad Bozorgtar Az 0 Bashad"), vbOKOnly - vbCritical
Exit Sub
End Select
For behzad = 1 To behzad2 \ 2
If (behzad2 Mod behzad = 0) Then
Print (behzad)
i=i+1
Next
print "i =" i + 1

اینو برات نوشام.
موفق باشید

[behzad74]

این هم کد. اگه منظورت همینه:10:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
ممنون دوست عزيز منظورم همينه كار داد

[behzad74]

چطور ميشه اين برنامه ي چاپ مقسوم عليه ه ا رو با حلق ه يDo باز نويسي كرد؟

---------- Post added at 07:19 PM ---------- Previous post was at 07:15 PM ----------

ميشه برنامه اي نوشت كه عدد صحيح و مثبت را از inputbox دريافت و تعداد ارقامش را چاپ كند؟
مثلا عدد 246 ميشه 3 چون 3 رقم داره

[Mohsen.Sh_PC]

اینم کد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

---------- Post added at 05:25 PM ---------- Previous post was at 05:23 PM ----------




[/COLOR]ميشه برنامه اي نوشت كه عدد صحيح و مثبت را از inputbox دريافت و تعداد ارقامش را چاپ كند؟
مثلا عدد 246 ميشه 3 چون 3 رقم داره
کد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشی

[behzad74]

دستت درد نكنه داش محسن دمت گرم چه سريعععععععععع؟!!!!!