Определяет длину предпоследнего слова в vba( программный код)

flox1998 flox1998    1   03.09.2019 04:20    0

Ответы
liza1383 liza1383  06.10.2020 13:54
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика