某查找算法的部分VB程序代码如下：

i=1：j=8：k=0

key=15

Do While i<=j

  k=k+1

  m=Int（（i+j）/2）

  If key<a（m）Then j=m-1 Else i=m+1

Loop

数组元素a（1）到a（8）的数据依次是“14，15，15，17，28，30，37，40”，该程序执行完毕后，下列各变量的值不正确的是（    ）

A、i=4

B、m=2

C、j=3

D、k=3