VBNet - Форум - Проблема!

Вопрос: Проблема! Добавлено: 13.03.06 16:45

Автор вопроса: DJ MATHEMATIC

В задаче нужно найти кол-во слов с удвоенными согласными, но я не могу понять, почему у меня при нажатии пробела,например,дважды этот пробел считается за слово и как это предусмотреть!

Private Sub txt1_Change()

Dim Massiv()
Dim Schetchik%, i%, j%, Index%, flag As Boolean
Dim word$, soglasnie$
Dim Otvet!
soglasnie = "qwrtpsdfghjklzxcvbnmáâãäæçéêëìíïðñòôõö÷øù"
Index = 0
ReDim Massiv(0)
For i = 1 To Len(txt1)
    If Mid(txt1, i, 1) <> " " Then
        Massiv(Index) = Massiv(Index) + Mid(txt1, i, 1)
    Else
        Index = Index + 1
        ReDim Preserve Massiv(Index)
    End If
Next i
For i = 0 To UBound(Massiv)
word = Massiv(i)
      j = 1
flag = False
   Do While j <= Len(word$) And flag = False
     If Mid(word, j + 1, 1) = Mid(word, j, 1) And _
     InStr(soglasnie, Mid(word, j, 1)) <> 0 Then Schetchik = Schetchik + 1: flag = True
     j = j + 1
   Loop
Next i
Otvet = Schetchik / (UBound(Massiv) + 1) * 100
lbl1 = Format(Otvet, "0.00") & "%"
End Sub
Ответить

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

Номер ответа: 1 Автор ответа: SRV ICQ: 254226129 Вопросов: 30 Ответов: 107	Профиль \| \| #1	Добавлено: 13.03.06 17:37
	Оператор $Trim поставь где нужно чтобы не считались пробелы Ответить

Номер ответа: 2 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #2	Добавлено: 13.03.06 18:12
	ККошмар! Ты конечно извини, но так код не пишут. Ответить

Номер ответа: 3 Автор ответа: DJ MATHEMATIC Вопросов: 17 Ответов: 18	Профиль \| \| #3	Добавлено: 13.03.06 19:05
	А как же пишут??? Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 13.03.06 19:17
	Ты кажеться (или не ты) уже задавал именно этот же вопрос, и я приводил вполне рабочий код, ищи по форуму... Ответить

Номер ответа: 5 Автор ответа: Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340	Профиль \| \| #5	Добавлено: 13.03.06 20:01
	ККошмар! Ты конечно извини, но так код не пишут. Человека просто не учили алгоритмизации. Или учили плохо... Ответить

Номер ответа: 6 Автор ответа: DJ MATHEMATIC Вопросов: 17 Ответов: 18	Профиль \| \| #6	Добавлено: 15.03.06 23:31
	А ты мне кажется самый умный среди программеров! Ответить

Номер ответа: 7 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #7	Добавлено: 16.03.06 13:02
	Tamplier, спасибо, объяснил. Только есть "но". Я тоже не учился. У меня и информатики-то не было... Ответить

Страница: 1 |