Преобразование строки

17.02.2011, 22:41. **Показов** 828. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Доброго времени суток, помогите пожалуйста с написанием программного кода. Вот для такого задания:
"Из заданной строки удалить все символы, входящие в нее более одного раза."
Вот что мне удалось сделать, но программа работает не корректно

Visual Basic

Sub Обработка(ByVal b As String, ByRef a As String)
        Dim m, d, j As Short
        m = CShort(a.Length)
        d = CShort(b.Length)
        For j = 1 To CShort(m - 1)
            Do While j < m
                If a.Substring(j, 1) = b.Substring(j + 1, 1) Then
                    a = a.Remove(i, 1)
                    m = CShort(m - 1)
                Else
                    j = j + 1
                End If
            Loop
        Next j
    End Sub

@Alex77755 · 17.02.2011, 23:55

У меня вот что получилось:

Visual Basic

Option Explicit
Private Sub Комманда1_Click()
Dim S
Dim R
Dim L
S = "Наша Маша громко плачет, уронила в речку мячик"
L = Len(S)
Do While L > 0
R = R & Left(S, 1)
S = Replace(S, Left(S, 1), "")
L = Len(S)
Loop
Debug.Print R
End Sub

	17.02.2011, 23:55