Нужно переделать программу 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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