Нужно переделать программу Pascal в Visual Basic - VB (59219)
Формулировка задачи:
Решение задачи: «Нужно переделать программу Pascal в Visual Basic»
textual
Листинг программы
Sub bekabeka() Dim st As String, s As String, i As Long, j As Long st = InputBox("Введите строку", "", "Из заданной строки удалите все символы, входящие в нее более одного раза..") Do i = i + 1 Do s = Mid$(st, i, 1) j = InStr(i + 1, st, s, vbTextCompare) If j Then st = Replace$(st, s, "", , , vbTextCompare) Else Exit Do Loop Until i >= Len(st) Loop Until i >= Len(st) MsgBox st End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д