1. (2017高三上·温州期末) 某对分査找算法的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

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