Подчет слов в предложении - VB

Формулировка задачи:

s = Text1.Text
For i = 1 To Len(s) + 1
    mad = Mid(s & " ", i, 1)
    If mad >= "A" And mad <= "Гї" Then
        dlSlova = dlSlova + 1
    Else
        If dlSlova > 0 Then kol = kol + 1: dlSlova = 0
    End If
Next i
sum = kol * 10
MsgBox (s & vbCr & "Количество слов: " & kol & vbCr & "Стоимость : " & sum & " коп.")

он подчитывает только англ слова , как сделать что бы и русские считало????????????срочно очень

Решение задачи: «Подчет слов в предложении»

textual
                            Листинг программы 
                        
                            If lcase(mad) like "[a-zа-яё]" Then

Оцени полезность:

15 голосов , оценка 3.867 из 5

Похожие ответы