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

  1. Помогите, пожалуйста перевести эту программу на VB6.0. Я его практически не заю Заранее благодаренPascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 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 минут Вот вариант, который я сам сделал, но он работает не как нужно. В чем ошибка - не пойму...


textual

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

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

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

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



Похожие ответы
  1. Разработать программу, которая вводит слово с клавиатуры и переставляет первые три и последние три буквы,сохранив при этом порядок их следования. Реализовать с помощью ОПЕРАТОРА ЦИКЛА. пример: ввод слова корреляция, вывод - циярелякор

  1. Даны два множества А и B c различным кол-вом элементов( в программе они в виде проинициализированных массивов). разработать программу, которая выводит объединение и пересечение этих множеств

  1. Помогите!!! Вот задача: Компьютер загадывает число от 0 до 100 Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно Если разница от 20 до 30 – Выводится «тепло» От 10 до 20 – «Горячо» От 5 до 10 – «Почти угадал» От 1 до 5 – «Еще чуть-чуть!!!» Сделайте подсчет количества попыток за которые отгадано число

  1. Подскажите в чем ошибка, не получается что окружности красного и зеленого цвета не рисуется как окружности синего цвета

  1. как написать на vb программу, выводящую на консоле 'Hi, world!'(тип проекта консоль)

  1. Можно-ли сделать само обновляемую программу в vb6 . И как

  1. а может кто то подсказать как при открытии программы используя ComboBox или ListBox загрузить информацию из Excel, а в Excel была таблица не важно сколько строк но один столби чтобы было возможно выбрать любой ряд и его афишировать, а в стоках будут написаны целые предложения

  1. Товарищи, помогите пожалуйста. Необходимо составить программу автоматического переноса слов. Исходная информация вводится с клавиатуры. Заранее благодарен, за любую помощь!

  1. Помогите, пожалуйста Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001 Задание на картинке. Пропустил лекцию, теперь не могу решить(

  1. Составить программу и вычислить:; Для организации цикла при вычислении Z1 использовать оператор цикла while..do.