Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово - VB
Формулировка задачи:
Как писать программу? Завтра сдать надо - не знаю, что делать
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово; все согласные, которые не входят хотя бы в одно слово.
Решение задачи: «Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово»
textual
Листинг программы
Private Sub Command1_Click() Dim glas As String, slovo, frasa As String Dim temp As String, st As String, i As Integer, j As Integer glas = "аяоёуюэеыи" frasa = InputBox("Введите строку", , "Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово") slovo = Split(frasa) For i = 0 To UBound(slovo) For j = 1 To Len(slovo(i)) If InStr(1, glas, Mid(slovo(i), j, 1), 1) > 0 Then temp = temp + Mid(slovo(i), j, 1) End If Next j st = st + AlphabetSort(temp) + " " temp = "" Next i slovo = Join(slovo) MsgBox slovo & vbLf & st, vbInformation End Sub Function AlphabetSort(ByVal sString As String) As String Dim bSorted As Boolean, i As Integer, sTemp As String Do While Not bSorted bSorted = True For i = 1 To Len(sString) - 1 If Mid(sString, (i + 1), 1) < Mid(sString, (i), 1) Then bSorted = False sTemp = Mid(sString, (i), 1) Mid(sString, (i), 1) = Mid(sString, (i + 1), 1) Mid(sString, (i + 1), 1) = sTemp End If Next AlphabetSort = sString Loop End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д