درخواست کد برای نمایش اعداد بخش پذیر در msgbox و inputbox

[karem2074]

با سلام
دوستان من کدی میخوام که وقتی یک عدد را در inputbox وارد کردم اعداد بخش پذیر بر اون رو در msgbox برام نمایش بده.

[mr-adler]

با سلام
این تکه کد بخش پذیری به عدد 2 رو مشخص میکنه به راحتی میشه (مشابه) این کد رو برای اعداد یک تا نه هم نوشت.

Private Sub Command2_Click()
Dim a As Integer
a = InputBox("enter number !", , , 0, 0)
If a Mod 2 = 0 Then
MsgBox "بر عدد دو بخش پذير است"
Else
MsgBox "بر دو بخش پذير نيست"
End If
End Sub


منظورتون همین بود؟

[karem2074]

با سلام
این تکه کد بخش پذیری به عدد 2 رو مشخص میکنه به راحتی میشه (مشابه) این کد رو برای اعداد یک تا نه هم نوشت.

Private Sub Command2_Click()
Dim a As Integer
a = InputBox("enter number !", , , 0, 0)
If a Mod 2 = 0 Then
MsgBox "بر عدد دو بخش پذير است"
Else
MsgBox "بر دو بخش پذير نيست"
End If
End Sub


منظورتون همین بود؟

دستتون دردنکنه اما منظورم این نبود.منظورم اینه که اگه عدد 100 رو وارد کردم اعداد بخش پذیر بر اون مثلا 2,5و10 و ... رو در listbox برام اضافه کنه.

[mr-adler]

سلامی دوباره
این برنامه رو از ارشیو برنامه هام پیدا کردم . دقیقا اطلاع ندارم قبلا خودم نوشتم یا دانلود کردم :لبخند: اما ببین کمکت میکنه. خودم امتحان کردم جواب داد تقریبا...
76981

[karem2074]

سلامی دوباره
این برنامه رو از ارشیو برنامه هام پیدا کردم . دقیقا اطلاع ندارم قبلا خودم نوشتم یا دانلود کردم :لبخند: اما ببین کمکت میکنه. خودم امتحان کردم جواب داد تقریبا...
76981
همینه اما سورس کدش داخلش نیست.فقط فایل اجرایی توشه.
لطفا سورس کدش رو هم بذارین

[M.T.P]

Dim i As Integer
Dim a As Integer
a = InputBox("enter number !", , , 0, 0)

List1.Clear

For i = 1 To a
If a Mod i = 0 Then List1.AddItem CStr(i)
Next i

[karem2074]

Dim i As Integer
Dim a As Integer
a = InputBox("enter number !", , , 0, 0)

List1.Clear

For i = 1 To a
If a Mod i = 0 Then List1.AddItem CStr(i)
Next i

خیلی ازتون ممنونم

[mr-adler]

Dim i As Integer
Dim a As Integer
a = InputBox("enter number !", , , 0, 0)

List1.Clear

For i = 1 To a
If a Mod i = 0 Then List1.AddItem CStr(i)
Next i
ممنون.عالیه...

همینه اما سورس کدش داخلش نیست.فقط فایل اجرایی توشه.
دیشب فرصت نشد.امروز اومدم رو سورس کار کردم تا قرارش بدم اما مثل اینکه جناب M.T.P (http://barnamenevis.org/member.php?132020-M.T.P) نسبت به سورس جواب بسیار راحت تر و واضح تری داشتند.