有如下VB程序段：

Key=Val(Text 1．Text)

i=1：j=10

Do While i<=j

  m=(i+j)＼2

  If Key<a(m) Then

    j=m-1

  Else

    i=m+1

  End If

Loop

Text 2.Text=Str(i-1)

数组a(1)~a(10)的值分别是2，2，3，5，5，5，7，7，7，9，若从Text 1中输入5，则Text 2显示的内容是（  ）

A、4

B、6

C、7

D、10