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