Red de conocimiento informático - Problemas con los teléfonos móviles - Ayuda de programación VB, ocupado, urgente

Ayuda de programación VB, ocupado, urgente

Dim Kg#

Kg = Val(InputBox("Ingrese el peso de los plátanos/kg"))

Si Kg < 10 Entonces

MsgBox "No hay descuento en plátano, el precio es: " & Kg * 28, vbInformation, "Precio del plátano"

Else

MsgBox "Hay un 20 % de descuento en plátano, el precio es: " & Kg * 28 * 0.8, vbInformation, "Precio del plátano"

End If