Вывести буквы в обратном алфавитном порядке - VB
Формулировка задачи:
Всем салам!
Дан текст из заглавных англ. букв.
Вывести в обратном алфавитном порядке все буквы входящие в текст по 2 раза, и все согласные входящие в одно слово.
Решение задачи: «Вывести буквы в обратном алфавитном порядке»
textual
Листинг программы
Sub main() Dim s$: s = InputBox("Введите текст:") Dim a%(33 To 255) Dim i& Dim Sout$ For i = 1 To Len(s) a(Asc(Mid$(s, i, 1))) = a(Asc(Mid$(s, i, 1))) + 1 'a(Asc(UCase(Mid$(s, i, 1)))) = a(Asc(UCase(Mid$(s, i, 1))) + 1)'если "A"="a" Next i For i = 255 To 33 Step -1 If a(i) = 2 Then Sout = Sout & Chr$(i) End If Next i MsgBox Sout End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д