Вывести буквы в обратном алфавитном порядке - 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