do loop出错

Do
jc = 1
Dim a As New ClsAPIMD5
If (a.HashFile(File1.List(jc))) Then
jc = jc + 1
If Dir(App.Path + "\bin\" + Text2) <> "" Then
List1.AddItem "路径:" + Text1 + ",md5:" + Text2
End If
Loop Until jc = File1.ListCount
总是提示没有"Do"

do loop循环 do...loop循环语句 错误 : loop 缺少 do VB 圆周率 DO LOOP do loop 一个问题vbscript 用do loop until语句编写 ASP：do while loop 循环问题 关于do......loop语句的疑问 VB中的Do while Loop循环 关于vb 解释Do...Loop 语句