Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB] Вывести самое длинное слово

Автор: монти 11.12.2006, 23:41

друзья,извините что обращаюсь, помогите если сможешь.надо написать решение задач на VB с полоным описанием(т.е. как правильно писать):

3) Вывести самое длинное слово заданного предложении

заранее спасибо

Автор: Naghual 11.12.2006, 23:45

Правила раздела 2.3.

Автор: монти 11.12.2006, 23:53

я понимаю,но там очень долго.срочно нада

Автор: Naghual 11.12.2006, 23:58

Правила раздела 2.3.

Автор: монти 12.12.2006, 00:29

я понимаю,помогать нерадивым студентам влом.но дорогой Naghual,пойим очень надо.прокатили меня с этой програмой.вот и бегаю и парюсь.помоги добрый человек

Автор: ~FoX~ 12.12.2006, 09:21

Код


Private Sub Command1_Click()
Const Str = "Предложение которое будем парсить"
Dim i, j As Integer
Dim a() As String
Dim s As String

a = Split(Str, " ")
j = Len(a(0))
s = a(0)

For i = 1 To UBound(a)
  If j < Len(a(i)) Then
    j = Len(a(i))
    s = a(i)
  End If
Next i

Debug.Print s
End Sub

А вот комментарии сам напишешь.