Вывести на экран все строчные латинские символы - VB

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

помогите решить Вывести на экран все строчные латинские символы с помощью их кодов ASCII;

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub m_1()
Dim Текст As String
Dim i As Long
Dim Накопление As String
For i = 1 To Len(Текст)
    If Asc(Mid(Текст, i, 1)) > 96 And Asc(Mid(Текст, i, 1)) < 123 Then
        Накопление = Накопление & Mid(Текст, i, 1)
    End If
Next i
MsgBox Накопление
End Sub

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

13 голосов , оценка 4.308 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы