达尔顿中士:用VB怎么编输入一个整数中的所有素数

来源:百度文库 编辑:高考问答 时间:2024/04/29 03:30:26

给你简单列一个,还有很多可以优化的地方:
Dim I As Long, J As Long, Yes As Boolean
Text1 = "2"
For I = 3 To 9999 Step 2
DoEvents
Y = 0
Y = True
For J = 3 To Sqr(I) Step 2
If I Mod J = 0 Then Y = False: Exit For
Next
If Y Then Text1 = Text1 & "," & I
Next

什么叫“输入一个整数中的所有素数”?是指一个范围吗?用FOR循环不就行了吗?

先设一个变量为a下限为1上限为1000,再设一个变量b下限为2上限为a/2,用a对每个b=b+1循环取余如果不为0则这个a就是素数,然后a=a+1再进行循环直到找到所有素数。