100以内素数的和

100以内素数的和

Private Sub Form_Load()

  Dims As Integer, n As Integer

Show

 s =0: n = 2

Do While n <= 100

 s =s + n

 n =m

 

 

 Dimx As Integer

 Dimflag As Boolean

 x =m - 1

 flag= False

While x >= 2

 If mMod x = 0 Then

 flag= True

 EndIf

 x =x - 1

 Wend

 If flag= True Then

 Form1.Caption = m

Loop

 

Print "100以内素数的和是"; s

s = Int(Val(text1.Text))

  

End Sub