作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 06:09:51
VB程序 求100内所有素数的和.
将下面求100内所有素数的VB语言改一下,改成求100内所有素数的和.
For m=2 to100
Do While m mod i0
i=i+1
Loop
If i=m then print m
next i
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