بودن یا نبودن عددی در لیست

[mahsaa123]

سلام دو تا سوال داشتم ممنون میشم راهنماییم کنید
1. لیستی حاوی اعداد داریم میخواهیم عددی را از ورودی گرفته و بگوییم ایا در لیست وجود دارد یا خیر؟

3. دو جعبه متن در فرم قرار دهیم به طوری که جعبه متن اول فوکوس را از دست ندهد .

[SlowCode]

سلام
اگه یکی این تاپیک رو گزارش کنه می بندننش! پس تا ندیدن ویرایشش کن(دومی رو حذف کن - لحن سوالت رو هم عوض کن تا نفهمن که درخواست حل تمرین میکنی)
فقط توضیح میدم کدنویسیش با خودت:
1- تو یه حلقه به طول تعداد آیتمهای لیست باکس، اون عدد رو با تک تک آیتمهای لیست باکس مقایسه میکنی اگه برابر بودن میگی وجود داره.
2- نمونش تو نت زیاده ولی سعی کن خودت بنویسی، یه حلقه داری به طول n و یه متغیر داری که هر دفعه خودش رو ضرب در متغیر حلقه میکنه و دوباره تو خودش ذخیره میکنه.
3- تو رویداد validate تکست باکس اول Cancel=true رو بنویس.

[mahsaa123]

رویداد validate رو برای تکست باکس بذارم ؟
سوال یک و دو رو میشه بیشتر راهنمایی کنید ؟

[مهرنوووش]

1.
2 .
3. فکر کنم این کدم بشه بکار برد ، تست کردم ج داد : (sorry زیادی مبتدیه !!)!

Private Sub Text1_LostFocus()

    Text1.SetFocus

End Sub

[SlowCode]

این کد رو اضافه کن به فرمت بعد یه تکست باکس بزار رو فرمت.

Private Sub Text1_Validate(Cancel As Boolean)

Cancel = True

End Sub

الان هرکاری کنی نشانگر از این کنترل بیرون نمیره(مگر اینکه یه شرط بزاری)

سوال یک و دو رو میشه بیشتر راهنمایی کنید ؟

اولی:

For i = 0 To List1.ListCount - 1

If List1.List(i) = Text1 Then MsgBox "Found"

Next

دومی:

f = 1

For n = 1 To text1

f = f * n

Next

MsgBox f

قرار نبود اینا رو من بنویسم!