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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 3.875 из 5
Похожие ответы