【推荐1】有如下VB程序段: Const n=7 Dim a(1 To n)As Integer For i=1 To n a(i)=i Mod n+1 Next i k=Val(Text1.Text) c=1:cur=n Do While c<5 For i=1 To k-1 cur=a(cur) Next i a(cur)=a(a(cur)) c=c+1