求1到100的素数，并按照奇偶分开

private sub comamnd1_click()
dim i as integer
dim j as integer
dim k as integer
dim b as boolean
for i=1 to 100
b=ture
k=2
j=int(sqr(i))
do while k<=j and b
if i mod k=o then
b=false
end if
k=k+1
loop
if b then
if i mod 2 =0 then
label1.capital=labal1.capital & "" & i
else
label2.capital=label2.capital & "" & i
end if
end if
next i
end sub
可能有点错误，因为是自己写的，你去运行下试试

偶素数只有一个：2。