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