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

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1  Click()

For i=1 To n

               ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2  Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

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

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

    Do While i <= 9 And p p= False

    For j = 10 To i + 1 Step -1

        If  Then    '①

            k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True

        End If

    Next j

    i = i + 1

Loop

For i = 1 To 10

    List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize         '初始化随机函数 Rnd

For i = 1 To 10

    a(i) =     '②

List1.AddItem

Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

For i=1 To 6

 j=7

 Do While j > i

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

   a(j)=a(j)+a(j-1)

   a(j-1)=a(j)-a(j–1)

   a(j)=a(j)-a(j-1)

  End If

  j=j-1

 Loop

Next i

For i=3 To 6

 s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（  ）

p = 1: q = 10

Do While p < q

  iMin = p: iMax = p

  For i = p + 1 To q

    If a(i) < a(iMin) Then iMin = i

    If a(i) > a(iMax) Then iMax = i

  Next i

t = a(iMin): a(iMin) = a(p): a(p) = t

  t = a(iMax): a(iMax) = a(q): a(q) = t

  p = p + 1

  q = q - 1

Loop