Dim a(1 To 1 000)As String

  Dim b(1 To 2)As Integer

  N=Len(Text1．Text)

  For i=1 To n

    a(i)=Mid(Text1．Text，i，1)

  Next i

  DO While n>l

    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)的值为（  ）

   s = ""

   For i = 1 To 5

      a(i) = 0

   Next i

   For i = 2 To 5

      For j = i To 5

         If j Mod i = 0 Then a(j) = 1 - a(j)

      Next j

   Next i

   For i = 1 To 5

      If a(i) = 1 Then s = s + Str(i)

   Next i

   Text1.Text = s

运行该程序段后，Text1中显示的内容为（  ）

       a(i)=i+1

    Next i

程序运行后，变量i的值是：（   ）

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

        m = Asc(ch) - Asc("0") + 1

        a(m) = a(m) + 1

    End If

 Next i

 For i = 1 To 10

    If a(i) > 1 Then n = n + i

 Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（  ）

Dim a (1 To 6) As Integer

Randomize

a(1) = Int (Rnd*2) + 1

For i = 2 To 6

  a(j) = Int (Rnd*i) *2 + 1

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

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

  End If

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（  ）