Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim S As Integer
S = 2 （循环无法找出2 因为2是唯一一个能被自己整除的偶数）
For a = 1 To 100 （穷举法的范围：1 -100）
For b = 2 To a - 1 （因子）
If (a Mod b) = 0 Then Exit For
If b = a - 1 Then S = S + a（素数的累加）
Next b
Next a
Print S
End Su