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
前面回答的感觉有点问题,重新写了一个
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
前面回答的感觉有点问题,重新写了一个