Ingrese N números en la matriz en vb, encuentre el número con el valor absoluto más pequeño y el número con el valor absoluto más grande, y luego intercambie las posiciones de los dos números.

Subcomando privado1_Click()

Para i = 0 a 10

x(i) = Val(InputBox("Por favor ingrese el valor del primer valor " amp; i amp; ": "))

Siguiente i

End Sub

Subcomando privado2_Click() p>

da = x(0)

xiao = x(0)

nda = 0

nxiao = 0

Para i = 1 a 10

Si Abs(x(i)) gt；da Entonces

da = x(i)

nda = i

Fin si

Si Abs(x(i)) lt；xiao Entonces

xiao = x(i)

nxiao = i

Finalizar si<

Siguiente i

Imprimir "El valor absoluto más grande es" da

Imprimir "El valor absoluto más grande es"; valor" ; xiao

x(nxiao) = da

x(nda) = xiao

MsgBox "¡Procesamiento completo!"

End Sub

Private Sub Form_Load()

Command1.Caption = "Ingresar un valor"

Command2.Caption = "Manejar valores extremos"

Fin del subtítulo