Вывести все слова, которые встречаются в ряде всего один раз - VB
Формулировка задачи:
Задано рядок символов, в котором содержатся от 1 до 30 символов, в кождом из которых от 1 до 5 маленьких украинских букв, между соседними словами - запятая, за последним словом точка. Вывести все слова, которые встречаются в ряде всего один раз.
Желательно в Visual Basik 3.0)
Решение задачи: «Вывести все слова, которые встречаются в ряде всего один раз»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim S, i As Integer, Dictionary
- Set Dictionary = CreateObject("Scripting.Dictionary")
- S = InputBox("Введите фразу", , "один, два, три, чотири, п'ять, три, два, один.")
- S = Replace(Replace(S, ",", " "), ".", " ")
- Do While InStr(1, S, " ")
- S = Replace(S, " ", " ")
- Loop
- S = Split(S)
- For i = 0 To UBound(S)
- If Not Dictionary.Exists(S(i)) Then Dictionary.Add S(i), i
- Next
- S = Join(Dictionary.keys, ", ")
- MsgBox S
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
