Помогите Пожалуйста С Массивами

Тема в разделе "Visual Basic", создана пользователем BridgeTony, 28 дек 2013.

  1. BridgeTony

    BridgeTony New Member

    Регистрация:
    28 дек 2013
    Сообщения:
    1
    Симпатии:
    0
    В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами. Как составить такой код и форму? Ну, ни как понять не могу... Помогите пожалуйста.. Вот код, который я составил, но он не совсем правильный, это явно..
    Укажите на ошибки
    Dim A(100) '
    Private Sub Command1_Click()
    n = Val(Text1.Text)
    For i = 1 To n
    A(i) = Val(InputBox("a(i)"))
    Picture1.Print "a"; i; "="; A(i)
    Next
    End Sub

    Private Sub Command2_Click()
    n = Val(Text1.Text)
    For i = 1 To n
    A(i) = A + (B - A) * Rnd
    Picture1.Print "a"; i; "="; A(i)
    Next
    End Sub

    Private Sub Command3_Click()
    Amax = -10000000000#
    Amin = 10000000000#
    For i = 1 To n
    If A(i) > Amax Then
    Amax = A(i)
    imax = i
    End If
    If A(i) < Amin Then
    Amin = A(i)
    imin = i
    End If
    Next
    For i = 1 To n
    j = i
    If i = imax Then
    B(j) = A(imin)
    Else
    If i = imin Then
    B(j) = A(imax)
    Else
    B(j) = A(i)
    End If
    Next
    For i = 1 To n
    Picture2.Print "b"; i; "="; B(i)
    Next
    End Sub
     
Загрузка...
Похожие Темы - Помогите Пожалуйста Массивами
  1. limbra
    Ответов:
    3
    Просмотров:
    70
  2. uxbmw3w
    Ответов:
    0
    Просмотров:
    91
  3. GREED
    Ответов:
    2
    Просмотров:
    560
  4. Рая
    Ответов:
    3
    Просмотров:
    792
  5. sonia2000
    Ответов:
    0
    Просмотров:
    967

Поделиться этой страницей