使用VB编程解决以下问题 1.编程计算200以内所有质数的和
答案:1 悬赏:20 手机版
解决时间 2021-03-23 16:34
- 提问者网友：感性作祟
- 2021-03-22 21:25
使用VB编程解决以下问题 1.编程计算200以内所有质数的和
最佳答案
- 五星知识达人网友：患得患失的劫
- 2021-03-22 23:04
Private Sub Command1_Click()
Dim sum As Long
sum = 0
For i = 2 To 200
For j = 2 To i
If i Mod j = 0 Then Exit For
Next j
If j = i Then sum = sum + i
Next i
MsgBox "质数和为:" & sum
End Sub
Dim sum As Long
sum = 0
For i = 2 To 200
For j = 2 To i
If i Mod j = 0 Then Exit For
Next j
If j = i Then sum = sum + i
Next i
MsgBox "质数和为:" & sum
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯