Помогите пожалуйста с массивами. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д