درخواست کد برای نمایش افراد زوج در msgbox

[karem2074]

با سلام خدمت دوستان
من کدی میخوام که اعداد زوج رو نشان دهد.یعنی عدد رو در داخل text1 وارد کنم و اعداد زوج را در msgbox نمایش دهد.(به ترتیب هربار که msgbox را کلیک کردم عدد زوج بعدی را نشان دهد.)

با تشکر

[kitcat_m18]

مي توني آخرين عدد سمت راست رو چک کني (با تابع Right) اگه 0,2,4,6,8 بود يعني زوجه.
البته راههاي بهتري هم هست. اما من الان به خاطر ندارم.:لبخندساده:

[king ag]

ساده ترین کار اینه:
باقیمانده عدد رو بر دو بگیر و اگر 0 یا 2(خود 0) بود زوجه اگه نه که فرده
a = n mod 2
if a = 0 or a=2 then msgbox "zoj ast" else msgbox "fard ast"

[MohammadGh2011]

ساده ترین کار اینه:
باقیمانده عدد رو بر دو بگیر و اگر 0 یا 2(خود 0) بود زوجه اگه نه که فرده
a = n mod 2
if a = 0 or a=2 then msgbox "zoj ast" else msgbox "fard ast"
سلام عليکم
فکر کنم منظور دوستمون اينه که داخل تکست باکس چند تا عدد بنويسيم و بعد که رو کامند کليک کرديم اون اعدد هايي که زوج بوده رو به ما نشون بده.!
ساده ترين صورت اين هم ميتونه باشه که جناب king ag فرمودند

MsgBox IIf(Text1 Mod 2 = 0, "Zoj", "Fard")


موفق باشيد

[ali_habibi1384]

من از سوال شما دو منظور برداشت ميكنم:
1- برنامه اي كه عددي رو بگيره و اعداد زوج بزرگتر از اونو نمايش بده.(در اين صورت شرط اتمام چيست؟)
2- برنامه اي كه عددي رو بگيره (مثلا 928102) و اعداد زوج داخل اين اعداد رو نشون بده : 2و8و0و4.حالا كدومش درسته؟

[karem2074]

دوستان ببخشید من سوالم رو اشتباهی پست کردم.میخوام اعداد بخش پذیر رو پیدا کنه.یعنی اگه عدد رو وارد کردم اعداد بخش پذیر بر اون رو برام پیدا کنه یا در list1 برام اضافه کنه.

[mr-adler]

با سلام
البته شاید دوستان راه حل بهتری داشته باشند ...

Private Sub Command1_Click()
a = Len(Text1.Text)
For i = 1 To a
b = Mid(Text1.Text, i, 1)
If b Mod 2 = 0 Then
List1.AddItem b
End If
Next i
End Sub

[ali_habibi1384]

خب چيزي كه ميگين مثلا اگر ما 6 رو بديم بايد اعداد بخش پپذير به 6 رو بده؟؟؟ اين كه خيلي خنده دار شد آخه ما فقط كافيه همه اعدادرو ضرب در 6 بكنيم از طرفي چون اعداد نا متناهي هستند چنين برنامه اي هيچوقت نوشته نميشه!!! مگر منطور دوستمون چيز ديگه اي باشه در هر صورت كن اين كد رو مينويسم واسش:


for i=1 to 100000
list1.additem(text1.text*i)

دوست عزيز ديگمون mr-adlr مضارب زوج يك عدد رو پيدا كرده.