100到200之间的质数，急！！！ 谢谢了，
101 103 107 109 113
127 131 137 139 149 151 157 163 167 173
179 181 191 193 197 199
供参考。
42
分享评论
踩
每日一思背诵100以内质数表小窍门
值得一看的质数表相关信息推荐
一百以内的质数表?立即下载拼多多APP，迅速了解一百以内的质数表你想知道的，这里全都有!更多精彩内容，尽在拼多多
深圳前海新之江信息技术有限公司广告
质数表详细步骤教程_下载快手
关注质数表的人也在看
质数表的正确方法，5个步骤教会你，不再求人
北京快手科技有限公司广告
更多专家
100到200之间的质数，急！！！ 谢谢了，
专家1对1在线解答问题
5分钟内响应 | 万名专业答主
马上提问
最美的花火 咨询一个教育问题，并发表了好评
lanqiuwangzi 咨询一个教育问题，并发表了好评
garlic 咨询一个教育问题，并发表了好评
188****8493 咨询一个教育问题，并发表了好评
篮球大图 咨询一个教育问题，并发表了好评
动物乐园 咨询一个教育问题，并发表了好评
AKA 咨询一个教育问题，并发表了好评
— 你看完啦，以下内容更有趣 —
Vb利用判素数函数，完成100到200之间所有素数平均值的输出。急急急！！！
Function PrimeAvg() As Double Dim sum As Integer Dim count As Integer Dim i As Integer sum = 0 count = 0 For i = 100 To 200 If IsPrime(i) Then sum = sum + i count = count + 1 End If Next PrimeAvg = sum / count End Function Function IsPrime(num As Integer) As Boolean Dim n As Integer, i As Integer For i = 2 To num - 1 If num Mod i = 0 Then IsPrime = False: Exit Function End If Next If i > num - 1 Then IsPrime = True End If End Function
100到200之间的质数，有：
101 103 107 109 113
127 131 137 139 149 151 157 163 167 173
179 181 191 193 197 199
供参考。
Vb利用判素数函数，完成100到200之间所有素数平均值的输出。急急急！！！~
Function PrimeAvg() As Double
Dim sum As Integer
Dim count As Integer
Dim i As Integer
sum = 0
count = 0
For i = 100 To 200
If IsPrime(i) Then
sum = sum + i
count = count + 1
End If
Next
PrimeAvg = sum / count
End Function
Function IsPrime(num As Integer) As Boolean
Dim n As Integer, i As Integer
For i = 2 To num - 1
If num Mod i = 0 Then
IsPrime = False:
Exit Function
End If
Next
If i > num - 1 Then
IsPrime = True
End If
End Function
declare @i int
set @i=101
declare @j int
declare @k int
while(@i<200)
begin
set @j=2
set @k=0
while(@j<@i)
begin
if(@i%@j=0)
begin
set @k=@k+1
break
end
set @j=@j+1
end
if @k=0
print @i
set @i=@i+1
end
结果为：
101
103
107
109
113
127
131
137
139
149
151
157
163
167
173
179
181
191
193
197
199
©