Из двух массивов сформируйте одномерный массив, упорядоченный в обратную сторону - VB

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

Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону переделайте в бэйсик плиз

                    Листинг программы
                
 
                        
                          
                    
program g5;
uses crt;
var
  k,n,i, j, m, c: integer;
  a1, a2: array[1..100] of integer;
  a: array[1..200] of integer;
 
begin
  clrscr;
  write('Vvedite k, n: ');
  readln(k, n);
  writeln('1 masiv:');
  for i:= 1 to k do
  begin
    write('Vvedite ',i,' element: ');
    readln(a1[i]);
  end;
  writeln('2 masiv:');
  for i:= 1 to n do
  begin
    write('Vvedite ',i,' element: ');
    readln(a2[i]);
  end;
 
  m := n+k;
  for i:= 1 to k do
   a[i] := a1[i];
  for i:= 1 to n do
   a[k+i] := a2[i];
 
  for i:= 1 to m do
    for j:= 2 to m do
      if (a[j-1] < a[j]) then
      begin
        c := a[j];
        a[j] := a[j-1];
        a[j-1] := c;
      end;
 
  writeln('new mas');
  for i:= 1 to m do
  begin
    write(a[i],' ');
  end;
  readln;
end.

Решение задачи: «Из двух массивов сформируйте одномерный массив, упорядоченный в обратную сторону»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Private Sub command1_Click()
'program g5;
'uses crt;
'Var
'k,n,i, j, m, c: integer;
Dim k As Integer, n  As Integer, i As Integer, j As Integer, m As Integer, c As Integer
'a1, a2: array[1..100] of integer;
Dim a1(1 To 100) As Integer, a2(1 To 100) As Integer
'a: array[1..200] of integer;
Dim a(1 To 200) As Integer
 
'begin
'clrscr;
Cls
'write('Vvedite k, n: ');
'readln(k, n);
k = InputBox("Vvedite k"): n = InputBox("Vvedite n")
 
'writeln('1 masiv:');
Print "'1 masiv:'"
 
'for i:= 1 to k do
For i = 1 To k
     'begin
     'write('Vvedite ',i,' element: ');
     a1(i) = InputBox("Vvedite  " & i & "  element: ")
     'readln(a1[i]);
     Print a1(i);
     'end;
Next i
 
Print
'writeln('2 masiv:');
Print "'2 masiv:'"
 
'for i:= 1 to n do
For i = 1 To n
        'begin
        'write('Vvedite ',i,' element: ');
         a2(i) = InputBox("Vvedite  " & i & "  element: ")
         'readln(a2[i]);
        Print a2(i);
        'end;
Next i
 
'm := n+k;
m = n + k
 
'for i:= 1 to k do
For i = 1 To k
   'a[i] := a1[i];
    a(i) = a1(i)
Next i
 
'for i:= 1 to n do
For i = 1 To n
   'a[k+i] := a2[i];
 a(k + i) = a2(i)
Next i
 
'for i:= 1 to m do
'for j:= 2 to m do
For i = 1 To m
  For j = 2 To m
            'if (a[j-1] < a[j]) then
            If a(j - 1) < a(j) Then
            'begin
            'c := a[j];
            c = a(j)
             'a[j] := a[j-1];
             a(j) = a(j - 1)
            'a[j-1] := c;
            a(j - 1) = c
            'end;
            End If
   Next j
Next i
 
Print
'writeln('new mas');
Print "'new mas'"
 
'for i:= 1 to m do
 For i = 1 To m
    'begin
    'write(a[i],' ');
    Print a(i);
 Next i 'end;
 
'readln;
End Sub