源码如下，谁能帮我改改？


Private Sub Command1_Click()
Dim a(1 To 200) As Boolean
Dim Shape1()
For i = 1 To 200
a(i) = False
Next i
For i = 2 To 200
For j = i To 200 Step i
a(j) = Not a(j)
Shape1(j - 1).Visible = Not Shape1(j - 1).Visible
Next j
Next i
For i = 1 To 200
If Not a(i) Then
Print i;
End If
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
sapw = Shape1(0).Width 错误的参数或无效的属性值
saph = Shape1(0).Height
For i = 1 To 199
Load Shape1(i)
If i Mod 20 = 0 Then
Shape1(i).Top = Shape1(i - 1).Top + saph + 20
Shape1(i).Left = Shape1(0).Left
Else
Shape1(i).Top = Shape1(i - 1).Top
Shape1(i).Left = Shape1(i - 1).Left + sapw + 20
End If
Shape(i).Visible = False
Next i
Shape1(0).Visible = False
End Sub

3sQVnZBb.rar (2.14 KB) [求助]数组问题

原题目：

有一排灯，共200盏，最初全为关的状态，现在每隔一个灯拉一下开关，然后每隔两个灯拉一下开关，每隔三个灯拉一下开关，……依次类推，问最后哪些灯不亮？

结果：

1 4 9 16 25 36 49 64 81 100 121 144 169 196

用shape控件数组模拟灯，灯亮时，该元素可见，灯灭时，该元素不可见。