11问答网
所有问题
求1到100以内的素数,并且按照奇数和偶数分开(VB)在线等速度!!!
在线等速度
要的是VB编程,小孩子一边去
举报该问题
推荐答案 2009-11-08
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
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://11.wendadaohang.com/zd/FPS4FM7q2.html
其他回答
第1个回答 2009-11-08
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个回答 2009-11-08
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
相似回答
vb求1到100的素数,
并
按照
奇偶
分开
答:
1到100的素数的素数
没有偶数的。Private Sub Command1_Click()For i = 1 To 100 If zs(Int(i)) = True Then Print i Next i End Sub Private Function zs(x As Integer) As Boolean '素数判断子过程 Dim d For d = 2 To Int(Sqr(x))If x Mod d = 0 Then Exit For: zs = ...
大家正在搜
求1到100的素数和
怎么求1到100内的素数
求0到100内的素数
求3到100的所有素数之和
如何求1到1000的素数
求1到100之间所有素数之和
求3到100之间的素数
求1到n的素数个数
求2到100间的所有素数