Вывести на Label количество строчных русских букв входящих в строку ListBox - VB

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

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

Помогите написать код Дана строка символов ListBox. Вывести на Label количество строчных русских букв,входящих в эту строку.

Решение задачи: «Вывести на Label количество строчных русских букв входящих в строку ListBox»

textual
Листинг программы
Private Sub Form_Load()
Dim L As Integer, X As Integer, i as Integer
List1.AddItem "zzzяя" 'для примера заполним листбокс
For L = 0 To List1.ListCount
     For i = 1 To Len(List1.List(L))
         Select Case Asc(Mid(List1.List(L), i, 1))
            Case 224 To 255: X = X + 1 'с 224 по 255  в ASCII маленькие русские буквы
         End Select
    Next
Next
Label1.Caption = X
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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