某商店规定：三个空汽水瓶可以换一瓶汽水。小张手上有十个空汽水瓶，她最多可以换多少瓶汽水喝？”答案是5瓶，方法如下：先用9个空瓶子换3瓶汽水，喝掉3瓶满的，喝完以后4个空瓶子，用3个再换一瓶，喝掉这瓶满的，这时候剩2个空瓶子。然后你让老板先借给你一瓶汽水，喝掉这瓶满的，喝完以后用3个空瓶子换一瓶满的还给老板。如果小张手上有n个空汽水瓶，最多可以换多少瓶汽水喝？
输出一行，表示最多可以喝的汽水瓶数。如果一瓶也喝不到，输出0。

Dim n As Double
Dim Temp As Double
Dim Temp1 As Double
Dim res As Double
res = 0
Temp1 = 0
n = 10
Do Until n < 1
Temp1 = Temp1 + n Mod 3
If Temp1 >= 2 Then
res = res + 1
Temp1 = Temp - 2
End If
Temp = n / 3
If InStr(Temp, ".") > 0 Then
Temp = Split(Temp, ".")(0)
End If
res = res + Temp
n = Temp
Loop
MsgBox res
前面回答的感觉有点问题，重新写了一个

我之前看到的题目是最后跟老板借一个空瓶，3个空瓶换到一瓶饮料之后喝完把空瓶还回去

顺便给个简单点的代码：
Dim n As Double
Dim Temp As Double
Dim res As Double
n = 10
Do Until n < 3
Temp = n \ 3
res = res + Temp
n = n Mod 3 + Temp
Loop
If n = 2 Then res = res + 1
MsgBox res

思路有问题，
1瓶汽水=1瓶+1水，
3瓶=1瓶汽水，
得出:2瓶=1水，
所以，10瓶可得5水。

我的回答怎么没了？