Нужно переделать программу 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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