调试如下VB程序段，出现如图所示的错误信息。

For i = 1 To 10

  If a(i) >= 0 Then

    n=n+1

    List1.AddItem Str(a(i))

  Else

    m=m+1

    List2.AddItem Str(a(i))

Next

则该程序段出错的原因是缺少了（   ） 

 

A：Next

B：i

C：End If

D：For