[已结束]有奖——淘汰游戏

mumu73

看看

吕?布

<p>答案已经公布了?我做了好长时间也不知对不对,顺便看答案</p><p>=(A2-LOOKUP(A2,(2-ISEVEN(A2))*3^(ROW($1:$5)+ISEVEN(A2))+1))*1.5+2</p><p>Function LastOne(Number As Integer) As Integer<br/>&nbsp;&nbsp;&nbsp; Dim arr() As Boolean<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; Dim iCountFalse As Integer, iCountTrue As Integer<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ReDim arr(1 To Number) As Boolean</p><p>&nbsp;&nbsp;&nbsp; i = 1:&nbsp;&nbsp;&nbsp; LastOne = 1:&nbsp;&nbsp;&nbsp; iCountTrue = 0:&nbsp;&nbsp;&nbsp; iCountFalse = 1<br/>&nbsp;&nbsp;&nbsp; Do While Number &gt;= iCountTrue + iCountFalse<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not arr(i) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iCountFalse = iCountFalse + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If iCountFalse Mod 3 &gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(i) = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LastOne = i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iCountTrue = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iCountFalse = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iCountTrue = iCountTrue + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i = (i Mod Number) + 1<br/>&nbsp;&nbsp;&nbsp; Loop<br/>End Function</p>

zxh273

学习一下

excelxs2009

<p>学习</p><p></p>

土了喀

[em17][em17][em17]

quanwang_lu

学习！！

xyzxyz07

学习