VBA

[Ingez]

Сообщение от gaw4

s = s & " " вот это вы понимаете, если да, то вставьте

насколько я понимаю это предложение+ "нуль-символ " ?
вставил на третьей строке не помогло.

[gaw4]

я уже затрудняюсь, чесно говоря,
скажу так : добавить к строке в качестве последнего символа символ - пробел

потом, если вы так напористо хотите свой код типа, то
что такое (это из вашего последнего)
1)s = Val(InputBox("Введите текст"))
2)Str(mw)

(для тнстирования кода удобно пользоваться стоп-точкой)
удачи

[Ingez]

Сообщение от gaw4

такое впечатление что последний мой пост вы постоянно не читаете
что не понятно в

Private Sub CommandButton1_Click()
s = InputBox("Text", , "Напечатать самое длинное слово из текста")
s = Trim(s) & " " 'удаляем лидирующие (до и после если есть) пробелы
                  'и потом добавляем один пробел как индикатор завершения слова
                  ' когда слово последнее (если тут не понятно то вместо этого записать s = s & " "

Max = 0: w = ""
For i = 1 To Len(s) 'по длине строки
  If Mid(s, i, 1) <> " " Then 'до следующего пробела
     w = w & Mid(s, i, 1) 'формируем слово прибавляя к нему
             'подстроку строки s начиная с позиции i  длиной 1 --- текущий не пробел
  Else         'иначе если пробел (слово закончилось)
     If Max < Len(w) Then 'если длина макс слова меньше только что сформированного
        Max = Len(w) 'то длину последнего прнимаем за макс
        mw = w  'и запомним слово как макс длины
     End If
     w = ""
  End If
Next i
                                                                                    
MsgBox s & vbNewLine & "самое длинное слово  = " & mw & " =" _
       & vbNewLine & "Dl:  " & Max
End Sub

Можно без таких заголовков

Private Sub CommandButton1_Click()
s = InputBox("Text", , "Напечатать самое длинное слово из текста")

и выводов

MsgBox s & vbNewLine & "самое длинное слово  = " & mw & " =" _
       & vbNewLine & "Dl:  " & Max

? и без

s = Trim(s) & " "

?просто

Sub slovo()
s = Val(InputBox("Введите текст"))

и

MsgBox "Самое длинное слово: " & Str(mw)

[Sasha_Smirnov]

Ingez, заголовок-то поменять можно, но логику — вряд ли.

s = Val(InputBox("Введите текст"))

Val берёт первое число из строки, не мудрствуйте понапрасну: вам чётко всё выдали!

[Ingez]

Сообщение от Sasha_Smirnov

s = Val(InputBox("Введите текст"))

Val берёт первое число из строки, не мудрствуйте понапрасну: вам чётко всё выдали!

Мне и не нужно логику изменять!
А можно вывод осуществить по другому?
И Trim() убрать?

[Sasha_Smirnov]

А кто ж вам запрещает! Уберите и Trim, да и Str заодно. Сделайте вывод по-своему.

Str здесь и правда не нужно, а вот Trim обрезает внешние пробелы — на отсутствие которых опирается дальнейшая обработка введённой строки.

[Ingez]

Сообщение от Sasha_Smirnov

А кто ж вам запрещает! Уберите и Trim, да и Str заодно. Сделайте вывод по-своему.

Str здесь и правда не нужно, а вот Trim обрезает внешние пробелы — на отсутствие которых опирается дальнейшая обработка введённой строки.

Sasha_Smirnov, не поможете доделать код?

Sub slovo()
s = Val(InputBox("Введите текст"))
s = s & " "

Max = 0: w = ""
For i = 1 To Len(s)
If Mid(s, i, 1) <> " " Then

w = w & Mid(s, i, 1)
ElseIf i = Len(s) Then Exit For
If Max < Len(w) Then
Max = Len(w)
mw = w
End If
k = 0
End If
Next i
MsgBox "Самое длинное слово: " & Str(mw)
End Sub

[Sasha_Smirnov]

А толку? Меня бездумно цитируете: сказано же — Trim лучше оставить, Val убрать.

Ради чего такие капризы? Испытывайте его (код) и так, и сяк... Проявите смекалку, наконец.