VB编程20个小孩围成一圈，从1号开始1-3报数，凡报到"3" 的小孩就离开圈子，那么离开这个圈子的顺序是怎样的？

匿名用户    2013-05-16 10:12    

推荐回答

楼上卜近宝导了好像是错满抗的 For i = 1 To 20 temp = temp & Format(i, "00") & "," Next Do Until UBound(Split(temp, ",")) = 2 t = Split(temp, ",") For ii = 0 To UBound(t) - 1 If (ii + 1) Mod 3 = 0 Then Print t(ii) temp = Replace(temp, t(ii) & ",", "") End If Next Loop

匿名用户   2013-05-17 14:28
宝宝知道提示您：回答为网友贡献，仅供参考。

为您推荐：

其他回答

Private Sub Command1_Click(); Dim a(20) As Integer, i As Integer, ii As Integer, iii As Integer, s As Integer, h As Integer; For i = 1 To 20;;; a(i) =... i; Next i; For iii = 1 To 20;;; For i = 1 To 20;;;;; If a(i) 0 And a(i) Mod 3 = 0 Then;;;;;;; Print "a(" & i & ")";;;;;;; a(i) = 0;;;;; End If;;; Next i;;; For i = 20 To 1 Step -1;;;;; If a(i) 0 Then;;;;;;; s = a(i);;;;;;; Exit For;;;;; End If;;; Next i;;; For i = 1 To 20;;;;; If a(i) 0 Then;;;;;;; a(i) = s + 1;;;;;;; h = i;;;;;;; Exit For;;;;; End If;;; Next i;;; For i = h + 1 To 20;;;;; If a(i) 0 Then;;;;;;; For ii = i - 1 To 1 Step -1;;;;;;;;; If a(ii) 0 Then;;;;;;;;;;; a(i) = a(ii) + 1;;;;;;;;;;; Exit For;;;;;;;;; End If;;;;;;; Next ii;;;;; End If;;; Next i; Next iiiEnd Sub

全部展开 收起
匿名用户    2013-05-16 12:13

相关问题