vb程序求出100以内素数的和

一·实验目的

实现100以内所有素数的和。

二·实验内容

打开vb6.0正式版之后，在窗体上画出一个command按钮，点击command按钮，输入以下程序语言：

Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim m As Integer

Dim x As Integer

Dim flag As Boolean

s = 0: n = 2

Do While n <= 100

s = s + n

n = x

m = Int(Val(Text1.Text))

x = m - 1

flag = False

 

While n >= 2

    If m Mod x = 0 Then

    flag = True

    End If

    x = x - 1

    Wend

    If flog = True Then

End If

Loop

Print "2+3+...+97="; s

 

End Sub

点击运行，出现问题，出现了一个错误，由于时间有限，未能改正。

三·心得体会

写这个程序的时候虽然说是依葫芦画瓢，但是画的还不像，最终结果还是失败，我就想尝试以下是这个程序成功，最后也是未果。希望老师能够提点一下。谢谢

四·遇到的问题及解决方法

在编写这个程序中，遇到了一问题就是怎么判断100以内的素数有哪些，我的解决方法就采用了，以前一个判断是否是素数的程序，但是结果是失败的。

五·没有解决的问题

最终也没能使vb计算出100以内素数的和。