Sub calcL(ByRef S) index = 0 For k = Len(S) To 1 Step -1 If (Mid(S, k, 1) = " ") Or (Mid(S, k, 1) = ".") Or (Mid(S, k, 1) = ",") Then index = k Exit For End If Next k L = 0 For k = index - 1 To 1 Step -1 If Mid(S, k, 1) = " " Then index = k Exit For Else L = L + 1 End If Next k MsgBox "Длина предпоследнего слова " + Str(L) End Sub Sub test() Call calcL("В данном предложении несколько слов") Call calcL("Второе предложение более длиннее первого")End Sub
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
