Готовый код, нужно перевести на Microsoft Visual Basic

@Ken_Watanabe · Регистрация: 05.04.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите перевести код с делфи/pascal в Microsoft Visual Basic(если быть точнее вот так)=>Tools=>Macros=>'name', Create. Вот код:

Pascal

Program String27;
var
otvet:String; // ответ 
N1,N2:integer;
S1,S2:String;
begin
// ввод данных 
Writeln('Введите строкy S1');
readln(S1);
Writeln('Введите целое число N1');
readln(N1);
Writeln('Введите строкy S2');
readln(S2);
Writeln('Введите целое число N2');
readln(N2);
// решение 
Otvet:=Copy(S1,1,N1)+Copy(S2,length(S2)-N2+1,N2);
//вывод ответа 
Writeln('Ответ:', otvet);
end.

Вот само задачка:
Даны целые положительные числа
N1 и N2 и строки S1 и S2.
Получить из этих строк новую строку,
содержащую первые N1 символов строки S1
и последние N2 символов строки S2
(в указанном порядке).

Проста я новичок в этой сфере.Будьте добры помогите студенту)

Добавлено через 33 минуты

@Vlad999 · 04.01.2015, 20:21

без проверки введенных данных.

Visual Basic

Sub vvv() 'Program String27;
'Var
'otvet:String; // ответ
Dim N1%, N2% 'N1,N2:integer;
Dim S1$, S2$, otvet$ 'S1,S2:String;
'begin
'// ввод данных
S1 = InputBox("Введите слово", "Ввод данных") 'Writeln('Введите строкy S1');
'readln(S1);
N1 = InputBox("Введите целое положительное число меньше " & Len(S1), "Ввод данных") 'Writeln('Введите целое число N1');
'readln(N1);
S2 = InputBox("Введите второе слово", "Ввод данных") 'Writeln('Введите строкy S2');
'readln(S2);
N2 = InputBox("Введите второе целое положительное число меньше " & Len(S2), "Ввод данных") 'Writeln('Введите целое число N2');
'readln(N2);
'// решение
otvet = Mid(S1, 1, N1) & Mid(S2, Len(S2) - N2 + 1, N2) 'Otvet:=Copy(S1,1,N1)+Copy(S2,length(S2)-N2+1,N2);
'//вывод ответа
msgbox otvet 'Writeln('Ответ:', otvet);
' или Debug.Print otvet 
End Sub 'end.

	04.01.2015, 20:21

Опции темы