① 新人急求。。（考試題目）（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種方案