① 新人急求。。（考试题目）（1百元买笔。假定铅笔每支5角，水笔每支2元，钢笔每支3元，编程求解买笔方案。
Const MoneyPen As Integer = 30
Const MoneyPencil As Integer = 5
Const MoneyWpen As Integer = 20
Public Function Proc(ByVal Money As Integer, ByVal Numpens As Integer) As String
Dim Pen As Integer
Dim Pencil As Integer
Money = Money * 10
For i = 0 To Money / MoneyPen
For j = 0 To Money / MoneyPencil
For k = 0 To Money / MoneyWpen
If i + j + k = Numpens Then
If i * MoneyPen + j * MoneyPencil + k * MoneyWpen = Money Then
Proc = "钢笔：" & i & "铅笔：" & j & "水笔：" & k
Exit Function
End If
End If
Next k
Next j
Next i
Proc = "无解决方案"
End Function
Private Sub Form_Load()
MsgBox Proc(100, 100)
End Sub
② 3元一个钢笔,5元一个笔记本,共用35元，问有几种方案
3a+4b=35,a为钢笔，b为笔记本，a=1,2...,求对应b，整数便符合情况
③ 我要买一枝8元的钢笔,可以怎样付钱呢。 请你写出4种付钱方案。
一个10快找两块 8个一块 一个五块三个一块给20找12
④ 小兰准备用30元买钢笔和笔记本，已知一支钢笔4.5元，一本笔记本3元。
设 小兰买了x支钢笔。
（1）3×5+4.5x≤30
即 4.5x≤15， 所以 x≤10／3
因为 x为正整数，所以 x=3，2，1
故 她最多还可以版买3支钢笔.
（2）因权为她买了x支钢笔，而钢笔和笔记本共8件，所以 笔记本买了 （8-x）本。
3（8-x）+4.5x≤30
即 1.5x≤6
解得 x≤4
故 她最多可以买4支钢笔.
（3）由（2）知，x≤4
又 x是正整数，所以 x=4，3，2，1；
故她有四种购买方案：
方案一：购钢笔 4支，笔记本4本；
方案二：购钢笔 3支，笔记本5本；
方案三：购钢笔 2支，笔记本6本；
方案四：购钢笔 1支，笔记本7本.
⑤ "六一"节到了,三(2)班准备用72元钱买学习用品,作为奖品奖励一批优秀队员.钢笔每支8元,圆珠笔每支2元，
方案一：钢笔3支、圆珠笔9支、笔记本3本 总价72元
方案二：钢笔2支、圆珠专笔15支、笔记本属4本 总价70元
方案三：钢笔3支、圆珠笔15支、笔记本2本 总价66元
方案四：钢笔4支、圆珠笔10支、笔记本3本 总价70元
方案五：钢笔3支、圆珠笔20支、笔记本1本 总价70元
方案六：钢笔3支、圆珠笔17支、笔记本2本 总价70元
方案七：钢笔5支、圆珠笔5支、笔记本3本 总价68元
方案八：钢笔4支、圆珠笔10支、笔记本2本 总价64元
方案（八）最合理
⑥ 刘老师准备为六一班购买二十四支钢笔每支钢笔五元多多超市提供了两种促销方案
买5送1，也就是每复买5只钢笔就制送一只钢笔，那么用24÷5，也就是送了4支钢笔，那么也就买了24-4支钢笔的钱，所以也就用20×5=100元，这也就是算的a方案钱。再用24×5已经大于100，所以也就再乘以8/10算出B方案要花96元，100>96，那么选b方案合算 24÷5=4(组)……4(元) (24-4)×5=100元 24×5×8/10=96元 100>96 选b方案合算
⑦ 某班购买了单价3元的笔记本与单价为5元的钢笔,共花费了38元,问有几种购买方案试确定.
3x+5y=38
y=0,x是小数,不合题意
y=1,x=11,符合题意
y=2,x是小数内容,不合题意
y=3,x是小数,不合题意
y=4,x=6,符合题意
y=5,x是小数,不合题意
y=6,x是小数,不合题意
y=7,x=1,符合题意
y=8,5*8>38不合题意,
所以有3种方案