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

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

Помогите, пожалуйста перевести эту программу на VB6.0. Я его практически не заю Заранее благодарен
var
a:array[1..100] of integer;
i,j,n,m,s:integer;
begin
writeln('Введите количество элементов A (не более 50');
readln(n);
writeln('Введите количество элементов B (не более 50');
readln(m);
for i:=1 to n do begin
   writeln('Введите a-',i);
   readln(a[i]);
end;
for i:=n+1 to n+m do begin
   writeln('Введите b-',i-n);
   readln(a[i]);
end;
for i:=1 to n+m do begin
   for j:=1 to n+m-1 do begin
     if a[j]>a[j+1] then begin
      s:=a[j+1];
      a[j+1]:=a[j];
      a[j]:=s;
     end;
   end;
end;
writeln('Новая последовательность:');
for i:=1 to n+m do begin
   write(a[i],' ');
end;
readln;
   end.
Добавлено через 17 минут Вот вариант, который я сам сделал, но он работает не как нужно. В чем ошибка - не пойму...
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim i, j, n, m, s, u, uu As Integer
n = InputBox("Введите количество элементов массива A (не более 50)", "Массив A")
m = InputBox("Введите количество элементов массива B (не более 50)", "Массив B")
 
For i = 1 To n Step 1
a(i) = InputBox("Введите a[" & i & "]", "Ввод массива A")
Next
u = n + 1
uu = m + n
For i = u To uu Step 1
a(i) = InputBox("Введите b[" & i - n & "]", "Ввод массива B")
Next
 
For i = 1 To (m + n) Step 1
For j = 1 To (m + n) - 1 Step 1
If a(j) > a(j + 1) Then
s = a(i + j)
a(j + 1) = a(j)
a(j) = s
End If
Next
Next
prompt = ""
For i = 1 To (m + n)
    prompt = prompt & a(i) & Chr(32)
Next i
 
MsgBox prompt
End Sub


textual

Код к задаче: «Нужно переделать программу Pascal в Visual Basic - VB (172039)»

Private Sub Command1_Click()
    Dim a(1 To 100) As Integer
    Dim i, j, n, m, s As Integer
    n = CInt(InputBox("Ââåäèòå êîëè÷åñòâî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* A (Г*ГҐ áîëåå 50)", "ГЊГ*Г±Г±ГЁГў A"))
    m = CInt(InputBox("Ââåäèòå êîëè÷åñòâî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* B (Г*ГҐ áîëåå 50)", "ГЊГ*Г±Г±ГЁГў B"))
    MsgBox CStr(m + n)
     
    For i = 1 To n Step 1
        a(i) = InputBox("Ââåäèòå a[" & i & "]", "Ââîä Г¬Г*Г±Г±ГЁГўГ* A")
    Next i
    For i = 1 To m Step 1
        a(i + n) = InputBox("Ââåäèòå b[" & i & "]", "Ââîä Г¬Г*Г±Г±ГЁГўГ* B")
    Next i
    For i = 1 To (m + n) Step 1
        For j = 1 To (m + n) - 1 Step 1
            If a(i) > a(j) Then
                s = a(i)
                a(i) = a(j)
                a(j) = s
            End If
        Next j
    Next i
    prompt = ""
    For i = 1 To (m + n)
        prompt = prompt & CStr(a(i)) & Chr(32)
    Next i
    MsgBox prompt
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.133 из 5

Источник