小天使舞蹈队编排一个舞蹈。该舞蹈要求人数为偶数,其中 1 位同学领舞,其站位始终不变,舞蹈队形
变化时,其余同学按逆时针顺序移动站位。我们把所有跳舞的同学从领舞开始依次编为数字 1~n(n 为偶 数),然后把队伍编号按 U 形走向分成两列,即得到第一次队形。从第二次队形开始,固定编号 1(领舞),
其余编号均按逆时针方向移动一个位置,即为该次队形;以后各次队形以此类推,直到除领舞外的所有同学
按逆时针转完一圈为止。
例如,节目人数为 6 时队形变化情况如下:
小嘉为此编写了一个 VB 程序,功能如下:在文本框 Text1 中输入跳舞的同学 n(n 为偶数),单击“队形
变化”按钮 Command1,在列表框 list1 中输出每次变化后的队形。程序代码如下,运行效果如图所示。
Private Sub Command1_Click() Dim a(1 To 20) As String
Dim result As String, t As String
Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)
For i = 1 To n
①
Next i
For i = 1 To
result = " "
List1.AddItem "第" & Str(i) & "次:" For j = 1 To n \ 2
result = a(j) + " " + a(n – j + 1 ) List1.AddItem result
Next j
②
For j = n To 3 Step -1 a(j) = a(j - 1)
Next j
a(2) = temp
Next i End Sub
请回答下列问题: