Перевод из Pascal в VBA
Формулировка задачи:
Листинг программы
- var s:string;
- p1,p2:byte;
- begin
- writeln('Введите строку, содержащую текст в фигурных скобках:');
- readln(s);
- repeat
- p1:=pos('{',s);
- p2:=pos('}',s);
- delete(s,p1,p2-p1+1);
- until(p1=0)or(p2=0);
- write(s);
- readln
- end.
Решение задачи: «Перевод из Pascal в VBA»
textual
Листинг программы
- Sub main()
- Dim s As String, a() As String, i As Long
- s = InputBox("Введите строку, содержащую текст в фигурных скобках:", , _
- "Введите {строку, содержащую }текст{ в фигурных скобках}:")
- a = Split(Replace(s, "}", "{"), "{")
- For i = 1 To UBound(a) Step 2
- a(i) = ""
- Next
- MsgBox Join(a, "")
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
