Const n As Integer = 10      'n为品牌数

Dim a(1 To n) As String      '数组a用于存储品牌名称

Dim b(1 To n) As Integer     '数组b用于存储销售量

Private Sub Form_Load()

    '此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

Dim n As Integer

n = 1

For i = 1 To 9

    k = i

    For j = i+1 To 10

If Then k = j

n=n+1

    Next j

    If     ①     Then

x = a(i): a(i) = a(k): a(k) = x  

y = b(i): b(i) = b(k): b(k) = y 

    End If

Next i

For i = 1 To 10

List2.AddItem Str(a(i)) + "      " + b(i)

Next i

Label3.Caption = "比较次数为：" + + "次"

End Sub

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean          'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While                           '（1）  

   flag = False

   For j = n To i + 1 Step -1

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

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

         flag = True

      End If

    Next j

    i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+          "    '（2）

For i = 1 To n

   List2.AddItem Str(a(i))

Next i

End Sub

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

实现上述功能的VB 代码如下，其中加框处代码有错，请改正。

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String n = Val(Text1.Text)

For i = 1 To n ^ 3 Step 2

    sum = 0: t = i: flag = False

    Do While sum <= n ^ 3 And flag = False

       sum = sum + t

            ⑴

       If sum = n ^ 3 Then flag = True

    Loop

    If flag = True Then Exit For

Next i

s = Str(n) + "^" + Str(3) + "="

Do While sum > 0

         ⑵

    If sum = 0 Then

        s = s + Str(i)

    Else

        s = s + Str(i) + "+"

    End If

    i = i + 2

Loop

Text2.Text = s

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