programacio ejemplos visual basic

Transformar en código el pseudocódigo que se indica a continuación, relativo a proporcionar el precio medio de un producto, calculado a partir del precio del mismo en tres establecimientosdistintos.
 
1.  Inicio
2.  Mostrar “Introduzca el precio del producto en el establecimiento número 1, en euros” : Pedir Precio1
3.  Mostrar “Introduzca el precio del producto en el establecimiento número2, en euros” : Pedir Precio2
4.  Mostrar “Introduzca el precio del producto en el establecimiento número 3, en euros” : Pedir Precio3
    5.  Media = (Precio1 + Precio2 + Precio3) / 3
  6.  Mostrar“El precio medio del producto es”, Media, “Euros” 
7.  Fin
SOLUCIÓN EJERCICIO EJEMPLO TERCERO
 En el formulario insertamos tres Labels y tres TextBox para petición de datos, así como un CommandButton y un Label para cálculo y muestra de resultados. El código será algo así:
 
Option Explicit
Rem Declaración de variables
Dim Precio1!, Precio2!, Precio3!, Media As Single
 
Rem Contenidodel formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo precio medio producto"
CommandCalcular.Caption = "Calcular precio medio"
Label1(0).Caption = "Introduzca aquí el precio enestablecimiento nº1, en euros"
Label1(1).Caption = "Introduzca aquí el precio en establecimiento nº2, en euros"
Label1(2).Caption = "Introduzca aquí el precio en establecimiento nº3, en euros"
End Sub
 
RemCálculo y muestra resultados
Private Sub CommandCalcular_Click()
Precio1 = Val(Text1(0))
Precio2 = Val(Text1(1))
Precio3 = Val(Text1(2))
Media = (Precio1 + Precio2 + Precio3) / 3Label2.FontSize = 10
Label2.FontBold = True
Label2.Alignment = 2
Label2 = "El precio medio del producto es de " & Media & " euros"
End Sub
Estamos usando arrays de controles cuyo número inicial es el cero. Eneste caso quizás sería preferible partir del 1 de modo que se diera la correspondencia Precio1 --> Text1(1), Precio2 --> Text1(2) y Precio3 --> Text1(3).
También podríamos haber usado controles...