جست و جوی اسم با آرایه

[mohammad1314]

سلام لطفا کمکم کنید.میخوام برنامه ای بنویسم که 5 تا عدد رو با ارایه از کاربر بااستفاده از inputbox بگیره بعدش هم یک اسم روبااستفاده از textbox جست و جو کنم اگه اسم تو ارایه وجود داشت پیغام yes رو print بگیره و اگر هم وجود نداشت پیغام no رو print بگیره.:متفکر:با تشکر

[Veteran]

ارایه رو مقدار بدید

Dim A1(1 To 5) As Integer, Tf As Boolean
For B=1 To 5
A1(b)= InputBox("")
Next B
For I = 1 To 5
If Text1 = A1(I) Then
Print " Yes"
Tf = True
End If
Next I
If Tf = False Then
Print" No "
End If

[Veteran]

با توجه به سوالتون که ویرایش شد کد رو هم ویرایش کردم
لطفا اگر سوال دیگه ای دارید پست بدید ویرایش نکنید

[reza_rashte]

سلام من مشکلی شبیح این دارم.میخوام برنامه ای بنویسم که 5 تا اسم رو با ارایه از کاربر بااستفاده از inputbox بگیره بعدش هم یک اسم روبااستفاده از inputbox جست و جو کنم اگه اسم تو ارایه وجود داشت آن را حدفکنه و اگر هم وجود نداشت پیغام no رو print بگیره.:متفکر:با تشکر
تا این جا هم پیش رفتم remove هم می زارم error می ده.
Option Base 1
Dim a(20) As String



Private Sub Command1_Click()
List1.Clear

For i = 1 To 5
a(i) = InputBox("enter name")
List1.AddItem a(i)
Next i
End Sub


Private Sub Command3_Click()
k = InputBox("next name")
List1.AddItem k

End Sub

Private Sub Command4_Click()
Dim f As Boolean

f = False
k = InputBox("enter name")
For i = 1 To 20
If a(i) = k Then
List1.RemoveItem (k)
خط بالا رو خطا می گیره.
f = True
End If
Next i
If f = False Then
MsgBox "not found:", vbCritical
End If

End Sub