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

BridgeTony

New member
28.12.2013
1
0
#1
В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами. Как составить такой код и форму? Ну, ни как понять не могу... Помогите пожалуйста.. Вот код, который я составил, но он не совсем правильный, это явно..
Укажите на ошибки
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