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

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

中间的算法如下：

Dim sum As Integer

n = 99 '你输入的最大数

i = 1

sum = 0

Do Until i > n

sum = sum + i

i = i + 1

Loop

'求和到此为止，下面的是求素数

k = 1

Do Until k > n

For j = 1 To k / 2

If k Mod j = 0 And j <> 1 Then

Exit For

End If

Next j

If j > k / 2 And k <> 2 Then

MsgBox k

End If

k = k + 1

Loop

Private Sub Command1_Click()

Dim i As Integer

Text1Text = ""

For i = 1 To 1000

s = sum(i)

If i = s Then

Print i;

m = m + i

End If

Next i

Text1Text = m

End Sub

Private Function sum(n As Integer) As Integer

'===============考生编写程序开始======================

s = 0

For a = 1 To n - 1

If n Mod a = 0 Then s = s + a

Next a

If s = n Then sum = s

'===============考生编写程序结束======================

End Function

Sub putdata(t_FileName As String, T_Str As Variant)

Dim sFile As String

sFile = "\" & t_FileName

Open AppPath & sFile For Output As #1

Print #1, Text1Text

Close #1

End Sub

Private Sub Command2_Click()

putdata "\out54txt", Text1Text

End Sub

以上就是关于VB程序 求100内所有素数的和。全部的内容，包括:VB程序 求100内所有素数的和。、如何用VB求和、VB中求完数之和的程序怎样编写急用~等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！