趣味题目 想用vba试试

akendy

′pENg.☆╮ 发表于 2013-1-10 10:53
昨晚又想了很久，总算在早上编了一个for循环的版本，不知道结果对不对，各位给看看。
另，谢谢两位大侠的帮 ...

把代码复制过去就行了啊，不用附件也是一样的

你这个没加步进的标记，可以把结果和我的进行对比一下就知道对不地了。

我那个是步进检查过的，肯定没错。

akendy

lee1892 发表于 2013-1-10 11:43
用Collection省事不少,也没必要递归，循环就OK，回头弄个附件玩：

LEE老师这个思路很好，两个FOR循环嵌套就搞定了，呵呵

我之前把问题想的太复杂了，呵呵

′pENg.☆╮

还有很多不知道的要学习啊，谢谢两位的帮助！{:soso_e183:}

lee1892

给你个好玩的动画^_^
见图~~

′pENg.☆╮

lee1892 发表于 2013-1-10 13:37
给你个好玩的动画^_^
见图~~

谢谢lee1892老师！

aoe1981

lee1892 发表于 2013-1-10 13:37
给你个好玩的动画^_^
见图~~

时过境迁，原来在这。我居然又开一帖。

maukiu

Sub 报数()
'13个小朋友围成一圈，从1开始报数（顺时针），报到13的就出圈，然后从下一个小朋友接着从1开始报，如此循环，直到只剩下一个小朋友。问：如果从1号小朋友从1开始报数，则每个小朋友出圈的顺序？
a = 0
b = 1
For m = 1 To 1000

           For i = 1 To 13
               If Cells(i, 4).Value = "" Then
                   a = a + 1
                  End If
                  If a = 13 Then
                     Cells(i, 4).Value = b
                     b = b + 1
                     a = 0
                   End If
                  
               
               Next
     
  Next
         

   

End Sub