题型：填空题 题类：常考题 难易度：困难
浙江省信息技术名师预测冲刺卷（一）
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n=10
Dim a(1 To n)As Integer
Private Sub Form_Load()
‘获取排序前数据，并依次存储在数组a中，并在文本框Text1中显示。代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer，j As Integer，t As Integer
Dim top As Integer
top=1
For i=1 To n-1
For j= 
To n-1 ‘⑴
If a(i)>a(j+1)Then
t=a(j)：a(j)=a(j+1)：a(j+1)=t
ElseIf a(j)=a(j+1)Then ‘相邻两个数据相等，由前面数据对进行覆盖处理
‘⑵
top=top+1
End If
Next j
Next i
Text2．Text=“ ”
For i=top To n
Text2．Text=Text2．Text+Str(a(i))
Next i
End Sub
原始数据：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
2 |
3 |
4 |
方法一：
①向右旋转1步：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
4 |
1 |
2 |
3 |
②向右旋转2步：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
3 |
4 |
1 |
2 |
③向右旋转3步：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
2 |
3 |
4 |
1 |
方法二：
①将a(1)值放至旋转3个位置后位置a(4)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
2 |
3 |
1 |
②将原a(4)值放至旋转3个位置后位置a(3)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
2 |
4 |
1 |
③将原a(3)值放至旋转3个位置后位置a(2)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
3 |
4 |
1 |
④将原a(2)值放至旋转3个位置后位置a(1)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
2 |
3 |
4 |
1 |
有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如图1所示，请回答下列问题：
图1
试题篮
'改错
Then '①
'②
