Dim a(1 To 6) As Integer  

Dim b(1 To 6) As Integer

Private Sub Command1_Click()     '对数组a中的数据进行排序

Dim i As Integer, j As Integer ，k as integer

a(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25

s = ""

For i = 1 To 5

    k = i

    For j = i + 1 To 6

        If a(k) > a(j) Then {#blank#}1{#/blank#}

    Next j

    If i <> k Then

        t = a(k): a(k) = a(i): a(i) = t

    End If

Next i

For i = 1 To 6

    s = s + Str(a(i))

Next i

Label1.Caption = s

End Sub

Private Sub Command2_Click() 

b(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49

'此处部分代码省略

End Sub

Private Sub Command3_Click()  

'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示

i = 1: j = 1: s = ""

Do While i <= 6 {#blank#}2{#/blank#}j <= 6           '如果两数组都还有数据未合并

    If  {#blank#}3{#/blank#}Then

        s = s + Str(a(i)) : i = i + 1

    Else

        s = s + Str(b(j)) : j = j + 1

    End If

Loop

Do While i <= 6                            '只有数组a还有数据未合并

    s = s + Str(a(i)) : i = i + 1

Loop

Do While j <= 6                            '只有数组b还有数据未合并

    s = s + Str(b(j)) : j = j + 1

Loop

Label3.Caption = s

End Sub

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

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub  

Private Sub Command2_Click()

    Dim i As Integer  

    n=Val(Text1．Text)   

    For i=0 To n-2    

      For j=i+1 To n-1  

        If     Then            ‘(1)

          temp=a(i)：a(i)=a(j)：a(j)=temp

        End If

     Next j

Next i 

If n Mod 2<>0 Then  d(n＼2)=a(n-1)  ‘个数为奇数，最小值放中间位置

    For i=0 To n＼2—1

    d(i)=a(i*2)

=a(2*i+1)               ‘(2)

Next i

  ‘在列表框List2中输出数组d，代码略

  End Sub

i = 0: j = 1

Do While j <= 5

  If a(j) <> 0 Then i = i + 1: a(i) = a(j)

  j = j + 1

Loop

For j = i + 1 To 5

  a(j) = 0

Next j

数组元素a(1)到a(5)的值依次为“0,20,0,4,31”，执行该程序段后，a(1)~a(6)各元素的值依次为（  ）

为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(10) As Integer    '数组a表示桶的编号，如a(0)表示第0号桶

Private Sub Command1_Click()

    Dim i As Integer, j As Integer

    For i = 0 To 10

        For j = 1 To       ①{#blank#}1{#/blank#}

List2.AddItem  CStr(i)

        Next j

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    For i = 0 To 10             '将数组初始化为0

        a(i) = 0

    Next i

    For i = 1 To 6            '产生6个[0,9]的随机数

        t = Int(Rnd * 10)  

        a(t) =   '第t桶中小旗子数量加1    ② {#blank#}2{#/blank#}

        List1.AddItem  CStr(t)

    Next i

End Sub

result=[]

i=0#用于遍历1st1

j=0#用于遍历1st2

while i<len(lst1) and j<len(lst2) :#①

    if lst1[i]<lst2[j]:

        result.append(lst1[i])

        i+=1

    else:

        result.append(lst2[j])

        j+=1

while i<len(lst1):

    result.append(lst1[i])  #②

    i+=1

while j<len(lst2):

    result.append(lst2[j]) #③

    j+=1

下列说法不正确的是（   ）