编写VB程序，将500到1000之间的所有素数输出到列表框

Answer 1

private sub command1_click()
for i = 500 to 1000
for j = 2 to fix(sqr(i))
if i mod j = 0 then
exit for
elseif i mod j <> 0 and j = fix(sqr(i)) then
list1.additem i
end if
next
next
end sub