若采用冒泡排序算法对这组数据进行升序排列，那么在完成第一遍排序时，数组元素a(1)到a(6)的数据依次是（   ）

实现上述功能的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              ‘⑴{#blank#}1{#/blank#}

       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     ‘相邻两个数据相等，由前面数据对进行覆盖处理

                        ‘⑵{#blank#}2{#/blank#}

       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

s=″72186345945″:c=0

For i=1 To 6

a(i)=Mid(s,i,i)

Next i

For i=1 To 4 Step 2

k=i

For j=i+2 To 6 Step 2

If a(j)<a(k) Then k=j

Next j

If k<>i Then

t=a(i):a(i)=a(k):a(k)=t:c=c+1

End If

Next i

Text1.Text=Str(c)

该程序段运行后,Text1中显示的内容是（  ）

原始数据：

方法一：

①向右旋转1步：

②向右旋转2步：

③向右旋转3步：

方法二：

①将a(1)值放至旋转3个位置后位置a(4)：

②将原a(4)值放至旋转3个位置后位置a(3)：

③将原a(3)值放至旋转3个位置后位置a(2)：

④将原a(2)值放至旋转3个位置后位置a(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

程序说明：

⑴其中n由文本框Text1中数据得到，x由文本框Text2中数据得到，插入位置显示在文本框Text3中。

⑵其中n个有序数据将通过随机函数Rnd产生，并对n个数进行降序排序后存入数组a中，同时显示在列表框List1中。

为了实现这一目标，完善下面的VB程序，在横线处填入合适的语句或表达式，完成程序设计。

Private Sub Command1_Click()

 Dim a(1 To 50)As Integer

 Dim n As Integer, i As Integer

 Dim x As Integer, temp As Integer

 Randomize

 List1.Clear

 n=Val(Text1.Text)

 x=Val(Text2.Text)

‘随机产生n个数,并存放至a数组中

 For i=1 To n

  a(i)=Rnd*200+1

Next i

‘将数组a中的数按降序排序

For i=2 To n

  For j=n To i Step-1

  If ①{#blank#}1{#/blank#} Then

temp=a(j):a(j)=a(j-1):a(j-1)=temp

Next j

Next i

‘将排序后的数组元素显示在列表框List1中

For i=1 To n

 List1.AddItem Str(a(i))

Next i

‘插入操作

If ②{#blank#}2{#/blank#} Then

  i=n+1

Else

  ③{#blank#}3{#/blank#}

  Do While x<a(i)

   i=i+1

  Loop

End if

‘在文本框Text3中显示插入位置

Text3 Text=Str(i)

End Sub

For i=1 To 2

 For j=1 To 6-i

  If a(j)<a(j+1) Then

   k=a(j):a(j)=a(j+1):a(j+1)=k

  End If

 Next j

Next i

数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段处理后，数组元素a(1)到a(6)的值依次为（  ）