a = "исходная строка"
b = "строка"
c = 0
For i = 1 To Len(a)
If Mid(a, i, Len(b)) = b Then
c = i
Exit For
End If
Next i
MsgBox (c)
мне непонятно. А если нет, то зачем на ГОС'ах давать задания на алгоритмы поиска?В Си я вообще не шару. Ну в VB немного.
Сейчас этот форум просматривают: Google-бот и гости: 115