[已解决]用VBA输出100到200所有素数，每行输出10数，最后用msgbox计算一共有多少个素数

laoau138

用VBA输出100到200所有素数，每行输出10数，最后用msgbox计算一共有多少个素数

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-25 10:08

1. Sub aaa()
   
2. Dim i&, j&, b As Boolean, arr(1 To 10, 1 To 10), r&, c&, n&
   
3. r = 1
   
4. For i = 101 To 199 Step 2
   
5.   For j = 3 To i ^ (1 / 2)
   
6.     If i Mod j = 0 Then: b = True: Exit For
   
7.   Next j
   
8.   If b = False Then
   
9.     c = c + 1
   
10.     If c = 11 Then r = r + 1: c = 1
    
11.     arr(r, c) = i
    
12.     n = n + 1
    
13.   End If
    
14.   b = False
    
15. Next i
    
16. [a1].Resize(r, 10) = arr
    
17. MsgBox n
    
18. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, j&, b As Boolean, arr(1 To 10, 1 To 10), r&, c&, n&
   
3. r = 1
   
4. For i = 101 To 199 Step 2
   
5.   For j = 3 To i ^ (1 / 2)
   
6.     If i Mod j = 0 Then: b = True: Exit For
   
7.   Next j
   
8.   If b = False Then
   
9.     c = c + 1
   
10.     If c = 11 Then r = r + 1: c = 1
    
11.     arr(r, c) = i
    
12.     n = n + 1
    
13.   End If
    
14.   b = False
    
15. Next i
    
16. [a1].Resize(r, 10) = arr
    
17. MsgBox n
    
18. End Sub

复制代码