VB程序 求100内所有素数的和。

Question

将下面求100内所有素数的VB语言改一下，改成求100内所有素数的和。
For m=2 to100
Do While m mod i<>0
i=i+1
Loop
If i=m then print m
next i
力求简单。谢谢。。

Answer 1

Dim m As Integer
Dim i As Integer
Dim sum As Integer
sum = 0
For m = 2 To 100
For i = 2 To m - 1 '判断是否是素数
If m Mod i = 0 Then
Exit For
End If
Next i
If i = m Then '如果是，相加
sum = sum + m
End If
Next m
Print sum

另外楼主的代码有误，按你那个思路，代码如下
Dim sum As Integer
For m = 2 To 100
i = 2
Do While m Mod i <> 0
i = i + 1
Loop
If i = m Then sum = sum + m
Next m
Print s

Answer 2

Dim s As Integer
For m=2 to100
Do While m mod i<>0
i=i+1
Loop
If i=m then s=s+m
next i
print s
大概不需要解释吧。

Answer 3

if i =m 那里的i 是2 to m-1。因此语句是错误的

Answer 4

Private Sub Command1_Click()
For m = 2 To 100
i = 2
Do While m Mod i <> 0
i = i + 1
Loop
If i = m Then s = s + m
Next m
Print s
End Sub