1. (2021·湖州模拟) 有如下 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的值为(        )