VBA输出1至100之内的所有素数，每5个输出一行

laoau138

VBA输出1至100之内的所有素数，每5个输出一行

素数就是除了能被1和其自身整除外，不能被其他数整除的数

1不是素数，令此数为a,让a被2到根号a这间的数整除,

如果a能被其中一个数整除，则a就不是素数;

如果a不能被整除，则a就是一个素数

grf1973

1. Sub tt()
   
2.     Dim arr(1 To 20, 1 To 5)
   
3.     For i = 2 To 100
   
4.         If zs(i) = True Then
   
5.             n = n + 1
   
6.             r = Int((n - 0.1) / 5) + 1
   
7.             c = n Mod 5
   
8.             If c = 0 Then c = 5
   
9.             arr(r, c) = i
   
10.         End If
    
11.     Next
    
12.     [a1].Resize(r, 5) = arr
    
13. End Sub
    
14. 
    
15. Function zs(x) As Boolean  '判断是否质数
    
16.     For i = 2 To Sqr(x)
    
17.         If Int(x / i) = x / i Then Exit Function
    
18.     Next
    
19.     zs = True
    
20. End Function
    

复制代码

grf1973

判断条件也可写成   If x Mod i = 0 Then Exit Function

laoau138

grf1973 发表于 2016-11-16 13:19
判断条件也可写成   If x Mod i = 0 Then Exit Function

http://www.excelpx.com/thread-425697-1-1.html

如何改