某对分査找算法的VB程序段如下：

i= 1 :  j =9  :  n =0

key=Val( Textl.Text)

Do While i <= j

m=(i + j) \ 2

If  key = d(m)  Then

Exit Do

j= m - 1

Else

i=m+1

End If

Loop

方框中的正确代码应为（   ）

A、End If

B、If key < d(m) Then

C、ElseIf key < d(m) Then

D、If key > d(m) Then