Red de conocimiento informático - Problemas con los teléfonos móviles - VB Design Hundred Money Hundred Chickens ¿Por qué el código que creé no es válido?

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