为毛loop 语句缺少do?

为毛loop 语句缺少do?

Dim d(1 To 15) As Double
Dim i As Double
Dim flag As Double
Dim key As Double
Dim m As Double
d(1) = 0
d(2) = 2
d(3) = 3
d(4) = 6
d(5) = 7
d(6) = 9
d(7) = 11
d(8) = 12
d(9) = 13
d(10) = 15
d(11) = 18
d(12) = 19
d(13) = 20
d(14) = 24
d(15) = 25
key = InputBox("请输入一个数呦~")
i = 1
j = 15
flag = 0
Do While i <= j And flag = 0
m = Int(i + j) / 2
 If d(m) = key Then
 flag = m
Else
  If d(m) < key Then
  i = m + 1
  Else
  j = m - 1
  End If
  i = i + 1
  Loop
If flag = 0 Then
  Print "没有找到呦~"
  Else
  Print flag
End If
为什么就是不对啊~要哭了~