你的题目有些问题,应该是2到100之间,应为质数应该是从2开始的用FOR做就行了,只要mod 2 ,3,5,7得到的都是0,就是质数了
Me.Cls
Dim x, i, j, k As Single
x = 100For i = 2 To x
k = 0
For j = 2 To sqrt(i)
If i Mod j = 0 Then k = k + 1 :exit for
Next j
If k = 1 Then Print i
Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024