Problema de transporte de equipaje facturado en tren VB
Subcomando privado1_Click()
a = int(InputBox(""))
si un mod 50 lt;=0 entonces
print "El peso de su equipaje es" amp; a amp; "Kg, y la tarifa de envío requerida es" amp; 1,5 * csng(a)
else
print; "Tu El peso del equipaje es "& a&"Kg, y el flete requerido es "amp; 1.5 * 50 2.5 * csng(a mod 50)
Fin
Fin Sub