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

For i=1 to n

j = 1

a(j)=a(j)+1

Do While a(j)>7

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

Loop

Next i

当n=102时，执行程序结束后数组a中各元素相加的和为（  ）

Dim a(1 To 100)As Integer, b(1 To 10) As Intege

Dim i As Integer, s As Integer, c As Integer

For i=1 To 100

    a(i)=0

Next i

For i=1 To 9 Step 2

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

Next i

c=0

For i=1 To 100

    c=c+a(i)

    If c=0 Then s=s+ 1

Next i

Text1. Text= Str(s)

若数组b中的值依次为“5，10，7，20，30，40，40，60，55，70”，则程序运行后Text中的内容是（  ）

a(I)=68: a(2)=88: a(3)=76: a(4)= 60: a(5)=98: a(6)=100: a(7)= 64: a(8)=85: a(9)=99: a(10)=59

  For i=1 To 9

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

    c(b(i)\10)= c(b(i)\10) + 1

  Next i

  For i=0 To 10

    If c(i)> 0 Then Label1.Caption = Label1.Caption + "" + Str(c(i))

Next i

数组c各元素初值为0，执行该程序段，标签Label 1上显示的内容是（  ）

For k = 100 To 500

    x = k

    z = 0

    Do while x > 0

    Loop

    If z= k Then

        List1．AddItem Str(k)

    End lf

Next k

上述程序段中方框处可选语句为：（   ）

①x =x\ 10    ②y = x Mod 10    ③z = z+10* y    ④z= 10* z + y

则（1）（2）（3）处语句依次为