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