Const n = 8

Dim a(1 To n) As Integer

For i = 1 To n

    a(i) = Int(Rnd * 20)

Next i

x = n \ 2

For i = x To 2 Step -1

    For j = 1 To i - 1

      If a(j) < a(i) Then

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

      End If

    Next j

Next i

i = n

Do While i > x + 1

    k = i

    For j = i - 1 To x + 1 Step -1

      If a(j) > a(k) Then k = j

    Next j

    If k <> i Then

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

    End If

    i = i - 1

Loop

执行完这段代码后，数组 a 中各个元素的值可能的是（  ）

 Dim a(1 To 10) As Integer

 Dim s(1 To 10) As Integer

 Private Sub Form_Load()

  a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9

  a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5

 End Sub

 Private Sub Command1_Click()

 Dim i As Integer, t As Integer

 s(1) = a(1)

 For i = 2 To 10

  s(i) = s(i - 1) + a(i)

 Next i

 t = s(8) - s(4)

 Text1.Text = Str(t)

End Sub

程序运行后，文本框Text1显示的内容是（  ）

n = Len(Text1.Text)

For i = 1 To n

 a(i) = Mid(Text1.Text, i, 1)

Next i

Do While n > 1

 If Asc(a(n)) >= Asc(a(n - 1)) Then

    m = 1

 Else

    m = 2

 End If

 b(m) = b(m) + 1

 n = n-1

Loop

数组b各元素的初始值都为0，文本框Text1的内容为“2018Python”。执行程序后，变量b(1)的值为（  ）