For i=1 To 3

    For j=6 To i+1 Step-1

        If a(i)<a(j) Then

          T=a(i)：a(i)=a(i)：a(i)=t

        End If

    Next j

  Next i

数组元素a(1)到a(6)的值依次为“28，3，15，1，35，7”，执行该程序段，下列说法正确的是 （  ）

实现上述功能的VB程序如下，但加框处代码有误，请改正。

Const n = 10

Dim d(1 To n) As Integer

Private Sub Command1_Click()

  Dim i As Integer, j As Integer, t As Integer

  '读取一组正整数，存储在数组d中，代码略

  i = 1

  Do While i <= n - 1

    For j = n To i + 1 Step -1

      If d(j) Mod 2 = d(j - 1) Mod 2 Then

        If  Then              '(1)

          t = d(j): d(j) = d(j - 1): d(j - 1) = t

        End If

                                    '(2)

          t = d(j): d(j) = d(j - 1): d(j - 1) = t

      End If

    Next j

    i=i+1

  Loop

  '依次输出排序后的数据，代码略

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

原始数据：

方法一：

①向右旋转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

实现上述功能的VB程序如下：

For i=1 To 2

  k=i

 For j=i+1 To 5

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

 Next j

 If k <> i Then t=d(k): d(k)=d(i) :d(i)=t

Next i

经过该程序段“加工”后，数组元素d(1)到d(5)的值依次为“44, 35, 30, 11,7”，则数组元素d(1)到d(5)的原始数据依次为（  ）