Cita:
Iniciado por alkor16 
nesesito desarrollar una aplicacion de visual basic que lea 3 valores y calcule el cuadrado del mayor y el cubo del menor y el promedio de los 3 y que los resultados se displayaran mediante mensaje en el cuadro de dialogo.
plis ayuda xD tengo una tarea urgente ayuda.
Código vb:
Ver original'-------------------------------------------------------------------------
' Desarrollado por ..::][culd][::.. a pedido de "alkor16" para ForosDelWeb
'-------------------------------------------------------------------------
Dim Valores(1 To 3) As Double 'Vector que va a acumular los 3 o mas valores a pedir
Dim X As Integer 'Variable que voy a usar para los for
Dim Aux As Double 'Variable auxiliar para el metodo burbuja
Dim Termino As Boolean 'Variable de control para saber si termino el metodo burbuja
Dim Cuadrado As Double 'Resultado del cuadrado del mayor
Dim Cubo As Double 'Resultado del cubo del menor
Dim Promedio As Double 'Promedio de los tres numeros
'Uso un for para ir pidiendo los valores, mediante un inputbox
For X = 1 To 3
Valores(X) = InputBox("Ingrese un numero")
Next X
'Esto se llama metodo burbuja (lo habran aprendido en la universidad algunos)
'Consiste en recorrer el vector/matrix y comparar el valor de la posicion actual
'con el valor siguiente.
'Se verifica si es mayor/menor y si lo es se guarda uno en una variable auxiliar
'y se reemplazan de lugar
'NOTA: Si hay cambios, significa que probablemente existan todavia numeros a modificar
'por ende se usa una variable de control en este caso un boolean.
Termino = False
Do While Termino = False
Termino = True 'Asigno que termino para saber despues si realmente termino
For X = 1 To 2 'Inicio el recorrido
If Valores(X) < Valores(X + 1) Then 'Controlo si el actual es menor que el siguiente asi subo el siguiente y bajo el actual
Aux = Valores(X) 'Guardo en una variable auxiliar para no perderlo
Valores(X) = Valores(X + 1) 'Reemplazo
Valores(X + 1) = Aux 'Asigno el valor guardado
Termino = False 'Como hubo un cambio asigno que no termino el metodo burbuja para dar otra ronda despues
End If
Next X
Loop
'calculo el cuadrado del mayor (si o si el mayor va a estar en el primer lugar)
Cuadrado = Valores(1) ^ 2
'calculo el cubo del menor (si o si va a estar en el ultimo lugar)
Cubo = Valores(3) ^ 3
'el promedio es la division de la cantidad de operandos, sobre la suma de los mismos (matematica basica)
Promedio = (Valores(1) + Valores(2) + Valores(3)) / 3
'Informo los resultados y el derecho de autor ;)
MsgBox "Los numeros ingresados de mayor a menor son:" & vbNewLine _
& Valores(1) & vbNewLine _
& Valores(2) & vbNewLine _
& Valores(3) & vbNewLine & vbNewLine _
& "El cuadrado del mayor es: " & Cuadrado & vbNewLine & vbNewLine _
& "El cubo del menor es: " & Cubo & vbNewLine & vbNewLine _
& "El promedio de los tres es: " & Promedio & vbNewLine & vbNewLine & _
"Ejemplo realizado por ..::][culd][::.. a pedido de alkor16 para ForosDelWeb"