En esta aplicación vamos a leer la venta de un producto(NomProd), la cantidad(Cantidad), su precio unitario(PrUnit), tipo de descuento (TipoDesc) y Promoción (Prom).

Se aplicará el 18% de IGV a las ventas
Si TipoDesc = 0, no se aplicará decuento al Monto de las ventas
Si TipoDesc = 1, se aplicará un decuento del 5% al Monto de las ventas
Si TipoDesc = 2, se aplicará un decuento del 8% al Monto de las ventas
Si TipoDesc = 3, se aplicará un decuento del 15% al Monto de las ventas

Si Prom = "S" o "s" se aplicará el 25% de descuento a las ventas
en caso contrario, no.

Sólo vamos a procesar un sólo producto

Empecemos definiendo las variables
Dim NomProd, cProm As String ' Serán de tipo String;es decir, cadena de caracteres
Dim Cantidad, PrUnit, MontoVenta, MontoNeto as Double ' Serán reales pues pueden ser muy grandes y pueden tener decimales
Dim TipoDesc As Integer ' Se ingresará un valor: 0, 1, 2, 3. En caso contrario se emitirá un mensaje
'
NomProd = InputBox("Ingrese el nombre del producto:") ' Leemos el nombre del producto
Cantidad = Val(InputBox("Cantidad de producto: ")) ' Ingresamos la cantidad de producto comprado
PrUnit = Val(InputBx("Precio unitario: ")) ' Se leerá el precio unitario del producto
TipoDesc = Val(InputBox("Tipo de descuento: "))

cProm = InputBox("¿Está en promoción? (S/n)") ' Se leerá una letra S, s ó N, n

' Procedemos a calcular MontoVenta = Cantidad*prUnit + Cantidad*PrUnit*0.18

Usaremos If para deerminar el tipo de descuento a aplicar al monto de la venta

If TipoDesc = 0 Then
MontoNeto = MontoVenta
Else
If TipoDesc = 1 Then
MontoNeto = MontoVenta-MontoVenta*0.05
Else
If TipoDesc = 2 Then
MontoNeto = MontoVenta - MontoVenta*0.08
Else
MontoNeto = MontoVenta - MontoVenta*0.12
End If
End If
End If
' Se imprime resultados
MsgBox("Producto: " & NomProd & " Cantidad: " & Cantidad & " Precio: " & PrUnit & " Monto: " & MontoVenta & " Monto neto: " & MontoNeto)
'
End Sub

La siguiente imagen muestra el procedimiento.

En la siguiente sesión veremos otra aplicación del uso de otra declaración codicional, para ello haga clic aquí