Se solicita novato urgentemente. . (Pregunta del examen) (100 yuanes para comprar un bolígrafo. Supongamos que los lápices cuestan 5 centavos cada uno, los bolígrafos de tinta cuestan 2 yuanes cada uno y las plumas estilográficas cuestan 3 yuanes cada uno. Programa para resolver el plan de compra de bolígrafos.

Const MoneyPen como entero = 30

Const MoneyPencil como entero = 5

Const MoneyWpen como entero = 20

Proc de función pública ( ByVal Dinero como entero, ByVal Numpens como entero) Como cadena

Dim Pen como entero

Dim Pencil como 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 * MoneyPen + j * MoneyPencil + k * MoneyWpen = Dinero Entonces

Proc = "Pen:" & i & "Pencil:" & j & "ink:" & k

Salir de la función

Finalizar si

Finalizar si

Siguiente k

Siguiente j

Siguiente i

Proc = "Sin solución"

Función final

Sub privada Form_Load()

MsgBox Proc(100, 100)

Fin Sub