VB Design Hundred Money Hundred Chickens ¿Por qué el código que creé no es válido?
Primero la siguiente b, luego la siguiente a. Accidentalmente escribiste el incorrecto:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
n = InputBox(" Por favor ingrese la cantidad de dinero")
Para a = 0 a 20
Para b = 0 a 33
c = 100 - a - b
Si (a + b + c = 100) y (5 * a + 3 * a + (100 - a - b) / 3 = n) Entonces
Imprimir "Pollo Weng:"; a, "Pollo Weng:"; b, "Pollo Weng:"; c
Finalizar si
Siguiente b
Siguiente a
Fin del subtítulo