Построение блок-схемы по готовому коду - VB
Формулировка задачи:
Решение задачи: «Построение блок-схемы по готовому коду»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д