Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ПОМОГИТЕ ПЛИЗЬ =((((( Добавлено: 21.04.10 16:13  

Автор вопроса:  Аленочка | ICQ: 474758123 
Дан текст, надо его разделить на слова, слова закинуть в одномерный массив и вывести их в порядке возрастания длины слова, использовать метод простых вставок
=))))буду признательна, сама написала но у мя не выходит =((
Dim i, n As Integer
Dim a() As String
Dim k As String
Private Sub Command1_Click()
Text1.Text = Trim(Text1)
  While (Text1.Text <> Replace(Text1, " ", " "))
    Text1.Text = Replace(Text1, " ", " ")
  Wend
  n = Len(Text1)
  ReDim a(n) As String
For i = 1 To n
  k = Mid(Text1, i, 1)
  If k = " " Then
    a(i) = Left(Text1, i)
    Text1 = Right(Text1, n - i)
    Print a(i)
  End If
Next i

End Sub

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #1 		Добавлено: 21.04.10 18:13
  1. Private Sub Command1_Click()
  2.     Dim str As String
  3.     str = Trim(Text1)
  4.     Dim arr() As String
  5.     arr = Split(str, " ")
  6.     Dim i As Integer
  7.     Dim j As Integer
  8.     Dim el As String
  9.     For i = LBound(arr) + 1 To UBound(arr)
  10.         el = arr(i)
  11.         For j = i - 1 To 0 Step -1
  12.             If Len(arr(j)) > Len(el) Then
  13.                 arr(j + 1) = arr(j)
  14.             Else
  15.                 Exit For
  16.             End If
  17.         Next
  18.         arr(j + 1) = el
  19.     Next
  20.     For i = LBound(arr) To UBound(arr)
  21.         Print arr(i)
  22.     Next
  23. End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам