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

[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
قرار نبود اینا رو من بنویسم!