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
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...
Terminará si...
Siguiente k
Siguiente j
Siguiente yo
Proc = "Sin solución"
Finalizar función
Private Subform_Load()
Procesador MsgBox (100, 100)
Conector final