Нужно переделать программу Pascal в Visual Basic - VB (59219)

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

                    Листинг программы
                
 
                        
                          
                    
var
s,s1:string;
k:char;
j,w,i,p,sum:integer;
begin
readln(s);
w:=1;
repeat
k:=s[w];
for i:=1 to length(s) do
 if s[i]=k then sum:=sum+1;
if sum=1 then s1:=s1+k;
 if sum>=2 then for j:=1 to length(s) do
  if s[i]=k then delete(s,i,1);
sum:=0;
p:=p+1;
w:=w+1;
until p=length(s);
writeln(s1);
 writeln(s);
end.

Решение задачи: «Нужно переделать программу 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы