求1到100以内的素数，并且按照奇数和偶数分开（VB)在线等速度！！！

来源：百度知道编辑：UC知道时间：2024/05/25 15:08:08

在线等速度
要的是VB编程，小孩子一边去

For i = 2 To 100
For l = 1 To i
If i Mod l = 0 Then
k = k + 1
End If

Next l
if i mod 2=0 then text1=i
else text2=i
end if
print text1 text2
end

2 3 5 7 11 13 17 19 23 29 31 37 41 43 47
53 61 67 71 73 79 83 89 91 97

2,
3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,91,97