Ingresos de datos y Condicionales.

Desarrolle el siguiente programa:

Permite capturar: Nombre, Tipo Bolsas (G= Grande, M= Mediana, P=Pequeña), Cantidad de Bolsas.

Calcular al dar CLic en el botón Aceptar:

Valor de la Bolsa: Grade = 500, Mediana=300 y Pequeña=100.

Valor Producción = multiplicar Valor Bolsa por la cantidad de Bolsas.

Diseño del Programa:

Botón Aceptar

Private Sub CommandButton1_Click()

  Dim TipoB As String, CBolsas As Currency, _

      ValorB As Currency, VProduccion As Currency

  TipoB = TextBox2

  Select Case TipoB

    Case "G", "g"

      ValorB = 500

    Case "M", "m"

      ValorB = 300

    Case "P", "p"

      ValorB = 100

    Case Else

      MsgBox "Error, escriba G, M,P", vbCritical, "Mi Programa"

      TextBox2.SetFocus

      Exit Sub

  End Select

  CBolsas = Val(TextBox3)

  VProduccion = CBolsas * ValorB

  

  TextBox4 = ValorB

  TextBox5 = VProduccion

End Sub

Botón Continuar

Private Sub CommandButton2_Click()

  TextBox1 = ""

  TextBox2 = ""

  TextBox3 = ""

  TextBox4 = ""

  TextBox5 = ""

  TextBox1.SetFocus

End Sub

Botón Cerrar

Private Sub CommandButton3_Click()

  If MsgBox("Desea Cerrar el programa", vbYesNo, "Mi Programa") = vbYes Then

    End

  End If

End Sub