Подсчёт количества символов в строке - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д