有如下VB程序段：

key = Val(Text1.Text)

i = 1: j = 9

Do While i < j

    m = (i + j) \ 2

    If      Then

        i = m + 1

    Else

       

    End If

Loop

Label1.Caption = Str(i)

已知数组a存储一组升序数“2，5，9，11，13，15，18，23”。要查找第一个大于key的元素的下标并输出，则下列选项中正确的是（    ）

A、①a(m) <= key     ②j = m

B、①a(m) < key      ②j = m - 1

C、①a(m) <= key     ②j = m - 1

D、①a(m) < key      ②j = m