Programación con lápiz

Const MoneyPen As Integer = 30

Const MoneyPencil es un número entero = 5

Const MoneyWpen As Integer = 20

Función pública Proc(ByVal Money es un número entero, ByVal Numpens es un número entero) es una cadena

Ajusta el lápiz a un número entero

Dinero = dinero * 10

Para i = 0 A Dinero/MoneyPen

Para j = 0 A Dinero/MoneyPencil

Para k = 0 A Dinero/MoneyWpen

Si i j k = Numpens, entonces

Si I * Bolígrafo de dinero j * Lápiz de dinero k * Dinero wpen = Dinero entonces

proc = "Pluma:" i & "Lápiz:" Johnson & Johnson . "ink pen:" ;k

Salir de la función

Terminará si...

Siguiente k

Siguiente j

Siguiente yo

Proc = "Sin solución"

Finalizar función

Private Subform_Load()

Procesador MsgBox (100, 100)

Conector final