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

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

Private Sub Command1_Click()

 Dim i As Integer, n As Integer, s As String

 n = Val(Text1.Text)

 s = “”

 For i = 1 To     ‘①

  If i<= n Then

   s = s + Str(n - i + 1)

  Else

         ‘②

  End If

 Next i

 Text2.Text = s

End Sub

程序中①处应改为{#blank#}1{#/blank#};

程序中②处应改为{#blank#}2{#/blank#}。

⑴将该字符串内码分成3个字节一组，顺次连接后得到24位二进制数；

⑵将得到的24位二进制数字按每6位一组分成4组，每组6个位；

⑶在每组数字前补上两个0，得到4个字节的二进制数；

⑷将⑶中得到的四个二进制数分别转换为十进制数；

⑸将每个十进制数转换为1个加密字符，对应的“密码表”按数值由小到大依次为“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmn

opqrstuvwxyz0123456789+/”。

小明按照上述方法，设计了一个字符串(仅包含ASCII字符)加密的VB程序，功能如下:单击“加密”按钮Command1，程序依次将文本框Text1中每3个字符的ASCII码值作为4个字节转换为四个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。程序运行效果如下图所示。

实现上述功能的VB程序如下:

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF {#blank#}1{#/blank#}

                A（I，J）=1

              {#blank#}2{#/blank#}

               A（I，J）=0

              END IF

              PRINT A（I，j）;

              {#blank#}3{#/blank#}

            PRINT

              {#blank#}4{#/blank#}

        END SUB

Dim a(1 To 5) As Integer Randomize

s = 0

Do While s<5

t = Int(Rnd * 5 + 1) a(t) = a(t) + 1

If a(t) = 1 Then s = s + a(t)

Loop

已知数组a(1)到 a(5)的初值均为0，该段程序运行后，下列说法正确的是（  ）