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