VB編程20個小孩圍成壹圈,從1號開始1-3報數,凡報到"3" 的小孩就離開圈子,那麽離開這個圈子的順序是怎樣的?

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 iii

End Sub

上一篇:集成電路專業排名大學

下一篇:mac 系統 可以進行VB編程嗎