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

Key = Val(Text1．Text)

i= l：j= Key

Do While i<= j

     m=(i+j)\2          '①

     If Key=m*m Then Exit Do 'Exit Do表示退出循环

     If Key>m* m Then i=m+ 1 Else j=m- 1

Loop

If i> j Then

     Label1．Caption= Key & "不是完全平方数"

Else

     Label1．Caption= Key & "是完全平方数"

End If

运行该程序段，在文本框Text1中输入15，运行后①处语句的执行次数是（    ）

A、3

B、4

C、5

D、6