1000以内素数之和是多少
答案:2 悬赏:60 手机版
解决时间 2021-01-28 14:50
- 提问者网友：雾里闻花香
- 2021-01-27 20:22
1000以内素数之和是多少
最佳答案
- 五星知识达人网友：执傲
- 2021-01-27 20:39
Private Sub command1_click()Dim i,j,f,c,sumi = 2While i f = Truej = 2Do While j If i Mod j = 0 Then f = False:Exit Doj = j + 1LoopIf f Thendebug.Print i & vbTab;c = c + 1sum=sum+iIf c Mod 5 = 0 Then debug.PrintEnd Ifi = i + 1Wendprint vbcrlf & 1000之内所有素数之和= & sumEnd Sub
全部回答
- 1楼网友：神的生死簿
- 2021-01-27 21:18
谢谢解答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯