programacio ejemplos visual basic

Transformar en código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro dados su altura y diámetro.
1. Inicio
2. Mostrar “Introduzca el diámetro, enmetros” : Pedir D
3. Mostrar “Introduzca la altura, en metros” : Pedir H
4. R = D/2 : Pi = 3,141593
5. V = Pi * (R ^ 2) * H
6. Mostrar “El volumen del cilindro es de”, V, “metros cúbicos”
7.Fin
SOLUCIÓN EJERCICIO EJEMPLO SEGUNDO
Creamos un formulario donde insertamos dos Labels (Label1(0) yLabel1(1)), dos TextBox (Text1 yText2)y un Label para resultados (Label2), así como un CommandButton al que llamaremos CommandCalcular. Label1(0) mostrará el mensaje de solicitud del diámetro y Label1(1) el correspondiente a la altura. A través de los TextBox el usuario introducirá los datossolicitados y a través del Label2 mostraremos los resultados. El código será algo así:
Option Explicit
Rem Declaración de variables
Const Pi As Single = 3.141592654
Dim R!, H!, V As Single
RemContenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo volumen cilindro"
CommandCalcular.Caption = "Calcular Volumen"
Label1(0).Caption = "Introduzca aquí el diámetro, en metros"Label1(1).Caption = "Introduzca aquí la altura, en metros"
End Sub
Rem Cálculo y muestra resultados
Private Sub CommandCalcular_Click()
R = Val(Text1) / 2
H = Val(Text2)
V = Pi * (R ^ 2) * HLabel2.FontSize = 10
Label2.FontBold = True
Label2.Alignment = 2
Label2 = "El volumen del cilindro es de " & V & " metros cúbicos"
End Sub
Y el resultado gráfico del tipo:



Transformar en códigoel 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 establecimientos distintos.
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úmero 2, en euros” : Pedir Precio2...