有如下VB程序段：

For i= 1 To 18

     a(i) =True

Next i

For i= 2 To 18

     For j= 1 To 18＼i

         a(i*j) =Not a(i*j)

     Next j

Next i

For i= 1 To 18

    If a(i) Then c=c+1

Next i

Text 1.Text=Str(c)

该程序段运行后，文本框Text 1中显示的内容是 （  ）

A、2

B、3

C、4

D、5