Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Для For Each:
Public Function CamaSutra(strWord As String) Dim col As New Collection Dim i As Integer, j For i = 1 To Len(strWord) col.Add Mid$(strWord, i, 1) Next i For Each j In col Debug.Print j Next j End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.