Подсчёт количества символов в строке - VB

Узнай цену своей работы

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

Помогите пожалуйста, последнее задание никак не могу решить. Задание: Дана строка символов. Подсчитать количество букв, цифр и всех прочих символов в строке. могу подсчитать только кол-во символов вообще через пробел, а так не знаю, помогите.

Решение задачи: «Подсчёт количества символов в строке»

textual
Листинг программы
str = Text1.Text ' строка, в которой нужно подсчитать
Dim letters As Byte
Dim Numbers As Byte
Dim Punctuation As Byte
Dim Other As Byte
 
For i = 1 To Len(str)
Dim char As String
 
char = Mid(str, i, 1) ' получаем очередной символ строки
 
If (char >= "a" And char <= "z") Or (char >= "A" And char <= "Z") Or (char >= "А" And char <= "Я") Or (char >= "а" And char <= "я") Then
    letters = letters + 1
ElseIf (char >= "0" And char <= "9") Then
    Numbers = Numbers + 1
ElseIf char = "." Or char = "," Or char = "?" Or char = "!" Or char = ":" Or char = ";" Then
    Punctuation = Punctuation + 1
Else
    Other = Other + 1
End If
Next i

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

6   голосов , оценка 3.333 из 5
Похожие ответы