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
If a(i) Then c=c+1
Text 1.Text=Str(c)
该程序段运行后,文本框Text 1中显示的内容是 ( )