VB程序 求100内所有素数的和.将下面求100内所有素数的VB语言改一下,改成求100内所有素数的和.For m=2 to100Do While m mod i0i=i+1LoopIf i=m then print mnext i
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/28 17:26:16
VB程序 求100内所有素数的和.将下面求100内所有素数的VB语言改一下,改成求100内所有素数的和.For m=2 to100Do While m mod i0i=i+1LoopIf i=m then print mnext i
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
VB程序 求100内所有素数的和.将下面求100内所有素数的VB语言改一下,改成求100内所有素数的和.For m=2 to100Do While m mod i0i=i+1LoopIf i=m then print mnext 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