For i = 500 To n这一句，n是多少
我根据你的意思这改一下，你看看：
i = 500
Do While i
flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then flag = False
Next j
If flag Then a = a + 1: Sum = Sum + i
If a > 100 Then Exit Do
i = i + 1
Loop
Print Sum
将n改成10000即可
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024