如何用VBA生成指定范围的质数？

作者：绿色风分类：时间：2022-08-17 浏览：140

楼主
zlxtl

Q:如何用VBA生成指定范围的质数？
A：ALT+F11→插入模块→在模块中输入以下代码：

Sub 质数()
Dim MaxNum As Long
Dim i, j, count, oNum, ArrTemp() As Integer
On Error GoTo A
A:
MaxNum = InputBox("请输入最大数:")
ReDim ArrTemp(1 To MaxNum)
count = 1
oNum = Int(Sqr(MaxNum))
[a1] = 2
For i = 2 To oNum - 1 Step 2
If ArrTemp(i) = 0 Then
j = i
Do While i * j <= MaxNum
ArrTemp(i * j) = 1
j = j + 2
Loop
End If
Next i
On Error Resume Next
For i = 3 To MaxNum Step 2
If ArrTemp(i) = 0 Then
count = count + 1
Cells(count, 1) = i
End If
Next i
End Sub

2楼
xyh9999

这程序大概有点问题吧，输入1000后象921、999明显不是质数，咋还在里面呐！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表