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