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.
Dim x(10) como único
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> 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