有如下VB程序段：

i = 1: j = 9

k= Int(Rnd * 6) * 10 + Int(Rnd * 6)

Do While i <= j

    m = (i + j) \ 2

    If a(m) Mod 10 > k Mod 10 Then

        j = m - 1

    Else

        i = m + 1

    End If

Loop

已知数组a(1) 至a(9)中的值分别是“21,13,23,43,15,45,47,48,48”，运行该程序段后，j的值不可能是（     ）

A、1

B、4

C、6

D、7