有如下VB 程序段：

For p = 1 To 6

    i = 1: j = 6: q = 0

    Do While i <= j

        m = (i + j) \ 2

        q = q + 1

        If p = m Then

            f(p) = q: Exit Do       ' Exit Do 表示退出循环

        End If

        If p > m Then i = m + 1 Else j = m - 1

    Loop

Next p

数组元素f(1)到f(6)初始为0，执行该程序段后，其值依次是（     ）

A、2，3，1，3，2，3

B、3，2，3，1，2，3

C、2，3，1，3，3，2

D、3，2，1，3，2，3