Dim a(1 To 5) As Integer

Dim f As Boolean

a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10

i = 1: f = True

Do While i <= 5 And f = True

  If a(i) = 56 Then f = False

  i = i + 1

Loop

Label1.Caption = i

 Dim b(4) As Integer     ‘数组b按位存储二进制数

Private Sub pprint(m As Integer)

‘本过程打印输出十进制数m和对应的二进制数

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

List1.Clear

List1.AddItem “十进制数 二进制数”

For i = 0 To 4

 b(i)=0

Next i

For i = 0 To 15

 Call pprint(i)     ‘打印输出一行

 j=       ‘①

 b(j)=b(j)+1

 Do While      ‘②

   b(j)=0

  j=j-1

  b(j)=b(j)+1

  Loop

Next i

End Sub

第①处修改为{#blank#}1{#/blank#}; 第②处修改为{#blank#}2{#/blank#}。

Dim a(1 To 5) As Integer

For i = 1 To 5

    a(i) = Int(Rnd * 30 + 10)

    t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

    If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）

L = 0: R = 7: i = 1

Do While i < R

    If a(i) = 0 Then

        L = L + 1

        t = a(i): a(i) = a(L): a(L) = t i = i + 1

    ElseIf a(i) = 2 Then

        R = R - 1

        t = a(i): a(i) = a(R): a(R) = t

    Else

        i = i + 1

    End If

Loop

数组元素 a(1)到 a(6)的值依次为“2，0，2，1，1，0”。执行该程序段后，下列说法不正确的是（  ）