Помогите пожалуйста с массивами. - VB

Узнай цену своей работы

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

В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами. Как составить такой код и форму? Ну, ни как понять не могу... Помогите пожалуйста

Решение задачи: «Помогите пожалуйста с массивами.»

textual
Листинг программы
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

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


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

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

7   голосов , оценка 3.714 из 5
Похожие ответы