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

Const n  As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    For i = 1 To n

       a(i) = Int(Rnd * 100)

       List1.AddItem Str(a(i))

    Next

End Sub

Private Sub Command1_Click()

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

    For i = 1 To n - 1

        k = 0

        For j = n To i + 1 Step -1

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

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

               k = k + 1

            End If

        Next j

        If   k > 0   Then i = n

    Next i

    For i = 1 To n

        List2.AddItem Str(a(i))

    Next i

    End Sub

End Sub

i = 1

   Do While i<= 5

      If i = 0 Or a(i - 1) <= a(i) Then

         i = i + 1

      Else

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

         i = i - 1

      End If

   Loop

数组元素a(0)到a(5)依次为：“0，61，22，43，89，27”，经过该程序段处理后，数组元素a(4)的值为（  ）

For i=1 To 3

 For j=8 To i+1 Step-1

  If a(j) < a(i) Then

   t=a(j): a(j)=a(i): a(i)=t

  End If

 Next j

Next i

数组元素a(1)到a(8)的值依次为“35， 18， 14， 20， 30， 15， 28， 26”，运行该程序段后，a(5)到a(8)的值依次是（  ）

For i=1 To 3

 For j=i To 5

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

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

  End If

 Next j

 List1.AdcIItem Str(a(i))

Next i

a(1)到a(6)的初始值依次为“8 6 5 7 9 3 ”，经过该程序段“加工”后，列表框List1中显示的是（  ）

Private Sub Command1_ Click ( )

  Dim a(1 To 5) As Integer, i As Integer, 3 As Integer, c As Integer

  a(1) = 22: a(2) = 44: a(3) = 11: a(4) =33: a(5) = 55: c = 0

  For i = 1 To 4

m = i

For j = i + 1 To 5

  If a(i) > a(m) Then m = j

    Next j

    If m <> i Then

      t=a(1) : a(i)=a(m) : a(m)=t

      c=c+1

    End If

  Next i

  Label1.Caption= Str (c)

End sub

该程序运行后，标签Label1中显示的内容是（  ）

s = input()

head = 0; tail = 0; ans = 0; tmp = '' q = ['']*100

flag = True

for i in range(len(s)):

    if s[i] == ',':

        while head!=tail:

            tmp += q[head]

            head += 1

            if flag and head < tail:

                head += 1

            flag = not flag

        ans += int(tmp)

        tmp = ''; flag = True

    elif '0'<=s[i]<='9':

        q[tail] = s[i]

        tail += 1

 若输入 s 为“1-500,2023900-,”，执行该程序段，变量 ans 的值为 （   ）