问题：
啤酒 2元钱1瓶
4个瓶盖换1瓶
2个空瓶换1瓶
问 10元钱可以喝几瓶？

Function pjp(je) As Long
Dim 能购买瓶 As Integer
Dim 瓶盖可替换 As Integer
Dim 空瓶可替换 As Integer
Dim 剩余瓶盖 As Integer
Dim 剩余空瓶 As Integer
Dim 余瓶盖 As Integer
Dim 余空瓶 As Integer
能购买瓶 = Int(je / 2)
瓶盖可替换 = Int(能购买瓶 / 4)
空瓶可替换 = Int(能购买瓶 / 2)
剩余瓶盖 = 能购买瓶 - 瓶盖可替换 * 4
剩余空瓶 = 能购买瓶 - 空瓶可替换 * 2
余瓶盖 = 剩余瓶盖 + 瓶盖可替换 + 空瓶可替换
余空瓶 = 剩余空瓶 + 瓶盖可替换 + 空瓶可替换
pjp = 能购买瓶 + 瓶盖可替换 + 空瓶可替换
Do While 瓶盖可替换 > 0 Or 空瓶可替换 > 0
瓶盖可替换 = Int(余瓶盖 / 4)
空瓶可替换 = Int(余空瓶 / 2)
剩余瓶盖 = 余瓶盖 - 瓶盖可替换 * 4
剩余空瓶 = 余空瓶 - 空瓶可替换 * 2
余瓶盖 = 剩余瓶盖 + 瓶盖可替换 + 空瓶可替换
余空瓶 = 剩余空瓶 + 瓶盖可替换 + 空瓶可替换
pjp = pjp + 瓶盖可替换 + 空瓶可替换
Loop
End Function