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以内素数的和。