有如下 VB 程序段: n = 10: m = 0 For i = 1 To Int(Sqr(n)) If Not d(i) Then j = 3 * i Do While j <= n d(j) = True j = j + i Loop End If Next i For i = 5 To n If d(i) Then m = m + 1 Next i 数组元素d(1)到d(10)的初值均为False,执行该程序段后,变量m的值为( )
A . 5
B . 6
C . 7
D . 8
答案:B