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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

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

                       '改错

a(j - 1) = a(j)

a(j) = k      

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

        elseif        ②           then

pos = j

s = s + "→" + Str(pos)

End If

End If

Next j

Next i

Label1.Caption = "位置变化情况：" + s

List2.Clear

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

For i = 1 To

For j =  To i + 1 Step -1

If d(j) <d(j - 1) Then

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

End If

Next j

For j = i + 1 To

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

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

End If

Next j

Next i

方框中的代码由以下三部分组成：

①n - i + 1   ②n \ 2   ③n - i

代码顺序正确的选项是（   ）

a(1) = "20": a(2) = "18": a(3) = "06": a(4) = "o": a(5) = "k"

For i = 1 To 4

   For j = 2 To 6-i

        If a(j) > a(j-1) Then t = a(j): a(j) = a(j-1): a(j-1) = t

       Next j

       List1.Additem a(j-1)

Next i

For i = 1 To 3

   For j = 1 To 6 - i

      If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j

Next i

数组元素 a(1)到 a(6)的数据依次为“55,31,19,42,37,23”，则此程序运行完成后数组元素的数据依次是 （  ）

tail=6: i=1: r=2

Do While i<r

    For j= tail To i+1 Step-1

        If a (j)> a(j-1) Then

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

        End If

    Next j

    i=i+1

    For j=i To tail-1

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

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

        End If

    Next j

    tail=tail-1

Loop

数组元素值“73、56、28、61、44、92”，运行程序，数组元素a(1)到a(6)的值依次为（   ）

s =" shenzhen"

For i=1 To Len(s)

    a(i) = Mid(s，i，1)

    b(i) = i

Next i

For i=Len(s) To 2 Step-1

    If a(b(i)) >= a(b(i - 1)) Then

        t=b(i)：b(i)=b(i-1)：b(i-1)=t

    End If

Next i

Text1.Text = b(1)

文本框Text1中显示的内容是（    ）