题型：填空题 题类：常考题 难易度：困难
浙江省高一下学期信息技术期末考试试卷
为了实现这一目标，完善下列程序，使之能完成该功能。
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
if j mod i=0 then
End if
Next j
Next i
For j=1 to n
If then list1.additem str(j)
Next j
End Sub
试题篮
图1
