VBNet - Форум - Как определить самое короткое значение?

Вопрос: Как определить самое короткое значение? Добавлено: 23.03.09 13:05

Автор вопроса: dodi

Dim Text As String, HowMany As Long, HowManyInMassiv As Long, HowManyInMassiv2 As Long
Dim Massiv() As String, Massiv2() As Long
Text = TextBox1.Text
Massiv = Split(Text)
HowManyInMassiv = UBound(Massiv) - LBound(Massiv)
ReDim Massiv2(0 To HowManyInMassiv)
For i = 0 To HowManyInMassiv Step 1
Massiv2(i) = Len(Massiv(i))
Next i

1.Программа делит введенный текст на слова и считает сколько в каждом слове символов. Так как определить какое из этих слов самое короткое.

2. И как выбрать из слов только слова заканчивающиеся на букву а

Ответить

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

Номер ответа: 1 Автор ответа: dodi Вопросов: 2 Ответов: 1	Профиль \| \| #1	Добавлено: 23.03.09 13:05
	И еще где можно почитать настоящий грамотный мануал по языку? Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #2	Добавлено: 23.03.09 13:25
	Во встроенной справке по VB, что вызывается из редактора VBE. Кроме шуток, написано очень душевно и со множеством примеров, правда на английском. Ответить

Номер ответа: 3 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #3	Добавлено: 23.03.09 16:49
	Dim HowManyInMassiv As Long',Text As String, HowMany As Long, HowManyInMassiv2 As Long Dim Massiv() As String, Massiv2() As String Dim MinLen as long minlen=2147483647 Dim MinString as string Dim CountA as long 'Text = TextBox1.Text Massiv = Split(TextBox1.Text) HowManyInMassiv = UBound(Massiv)' - LBound(Massiv) 'ReDim Massiv2(0 To HowManyInMassiv) dim i as long For i = 0 To HowManyInMassiv' Step 1 if len(massiv(i))<minlen then minlen=len(massiv(i)) MinString=massiv(i) endif if right(massiv(i),1)="a"then CountA=CountA+1 redim preserve Massiv2(1 to CountA) Massiv2(CountA)=massiv(i) endif 'Massiv2(i) = Len(Massiv(i)) Next i Ответить

Страница: 1 |