1. (2019·上海模拟) 设有n盏灯，放在一排。从1到n依次顺序编号。有n个人也从1 到n依次编号。第1 个人（1号）将灯全部关闭，第2 个人（2号）将2 的倍数的灯打开，第3个人（3号）将编号为3 的倍数的灯做相反处理（该灯如果已打开，则将它关闭；如为关闭则将它打开），以后的人和3号一样，将编号为自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的（亮灯为0，关闭为1）。程序代码如下：

Private Sub Command1_Click()

    Const n = 20

    Dim i As Integer, j As Integer

    Dim a(1 To n) As Integer

    For j = 1 To n

        a(j) = 0

    Next j

    For i = 1 To n

        For j = 1 To n

            Ifthen

               

            End If

        Next j

    Next i

    For j = 1 To n

        If a(j) = 0 Then list1.AddItem Str(j)

    Next j

End Sub

为了实现程序该功能，在画线处填写正确代码。