vb,产生100个10000以内不重复的随机素数
1首先将1W以内的素数全部找出来
'1万以内所有的素数数量
count1 = 0
For m = 2 To 10000
Dim n As Integer
n = Sqr(m)
For i = 2 To n
If (m Mod i = 0) Then
GoTo aaa
End If
Next i
'求出的素数m保存在素组a
a(count1) = m
count1 = count1 + 1
c(m) = 1
'Print m
aaa:
Next m
2在所有的素数中抽取100个
count2 = 0
While (count2 < 100)
r = Int((count1 + 1) * Rnd)
If (a(r) <> 0) Then '0代表没用过
b(count2) = a(r)
count2 = count2 + 1
a(r) = 0 '变为0代表用过
End If
Wend
有需要源码的小伙伴可以联系我。也欢迎其他小伙伴留言交流学习
q:2316773638
发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/2870.html原文链接:https://javaforall.cn
【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛
【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...