برنامه جستجوی رشته در vb

[iceboy67]

بر اساس آرایه ها تابعی بنویسید که پارامتر های ورودی آن دو رشته باشد و رشته دوم را در رشته اول جستجو کند.

 

[balabala]

Function search(arr() As String) As Long
    search = InStr(arr(0), arr(1))
End Function

 

[the_king]

Function Search([B]First[/B] As String, [B]Second[/B] As String) As Long
    Search = InStr(First, Second)
End Function