سلام امیدوارم کارت با این راه بیوفته
Module
Module1
Sub Main()
' SERCH BINARY '
Dim i, s, a(3) AsInteger
Console.WriteLine()
For i = 0 To 3
Console.Write(" Enter Number " + (i + 1).ToString + ": ")
a(i) = Console.ReadLine()
Next
Console.WriteLine(
" ------------------- ")
Console.Write(" Please Number For Serch :")
s = Console.ReadLine
Console.WriteLine(" ------------------- ")
For b AsInteger = 1 To i
If s = a(b - 1) Then
Console.WriteLine(
" peyDa shod " + s.ToString)
ExitFor
ElseIf b = a.Length Then
Console.WriteLine(
" peyDa Nashod " + s.ToString)
EndIf
Next
EndSub
EndModule