Построение блок-схемы по готовому коду - 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

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

5   голосов , оценка 4 из 5