Преобразование строки - VB (172028)

Формулировка задачи:

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

Код к задаче: «Преобразование строки - VB (172028)»

textual
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

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


СОХРАНИТЬ ССЫЛКУ