n盏灯排成一排,从1到n按顺序编号。有n个人也从1到n依次编号。第一个人(1号)将

第一个空填写：
a(j) = Not a(j)
第二个空填写：
a(i) = 0

这段代码中，当a(i)=0，灯亮，当a(i)=not 0即a(i)=-1(0的Not运算后是-1，-1的Not运算后是0)时，灯灭

所以
第一个空填写a(j) = Not a(j)是做开关，当碰到人的编号倍数时，把亮的熄灭，把灭的打开
第二个空填写a(i)=0，表示灯亮，则向列表框List1添加灯亮的编号

结果应该是在1到n内，除了属于完全平方数的序号外，其他序号的灯都是亮的

另外，这段代码抄得有问题哈，有些地方打错啦，完整且正确的代码如下：
Private Sub Command1_Click()
Const n = 20
Dim i, j As Integer
Dim a(1 To n) As Integer
For i = 1 To n
a(i) = 0
Next i
For i = 1 To n
For j = 1 To n
If j Mod i = 0 Then
a(j) = Not a(j)
End If
Next j
Next i
For i = 1 To n
If a(i) = 0 Then List1.AddItem Str(i)
Next i
End Sub

第二空填a(i)

x

写清楚点行么？