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

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

کد:

---

Dim behzad, behzad2 As Integer
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)
Next

---

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

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

کد:

---

Dim behzad, behzad2 As Integer
Dim CNT As Integer, Sum As Integer
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)
    CNT = CNT + 1
    Sum = Sum + behzad
End If
Next
Print "Tedad="; CNT
Print "Majmo"; Sum

---

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

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

نقل قول:

---

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

کد:

---

Dim behzad, behzad2 As Integer
Dim CNT As Integer, Sum As Integer
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)
    CNT = CNT + 1
    Sum = Sum + behzad
End If
Next
Print "Tedad="; CNT
Print "Majmo"; Sum

---

---

ممنون دوست عزيز منظورم همينه كار داد

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

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

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

اینم کد:

کد:

---

Dim behzad, behzad2 As Integer
Dim CNT As Integer, Sum As Integer
Dim A As Integer
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
behzad = 0
Do Until A = behzad2 \ 2
    A = A + 1
    behzad = behzad + 1
    If (behzad2 Mod behzad = 0) Then
        Print (behzad)
        CNT = CNT + 1
        Sum = Sum + behzad
    End If
Loop
Print "Tedad="; CNT
Print "Majmo"; Sum

---

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

نقل قول:

---

نوشته شده توسط behzad74 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

کد:

کد:

---

Print Len(Text1.Text)

---

موفق باشی

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