Нужно переделать программу Pascal в Visual Basic - VB (172039)
Формулировка задачи:
Помогите, пожалуйста перевести эту программу на VB6.0. Я его практически не заю
Заранее благодарен
Вот вариант, который я сам сделал, но он работает не как нужно.
В чем ошибка - не пойму...
Решение задачи: «Нужно переделать программу Pascal в Visual Basic»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д