[已解决]VBA用FOR循环输出500以内所有能被17整除的自然数

vbyou127

VBA用FOR循环输出500以内所有能被17整除的自然数

最佳答案

月排行榜 / 总排行榜

橘子红

2016-2-29 17:48

1. Sub x()
   
2. Dim x
   
3. For x = 17 To 500
   
4.     If x Mod 17 = 0 Then
   
5.           s = s + 1
   
6.           Cells(s, 1) = x
   
7.     End If
   
8. Next
   
9. End Sub
   
10. Sub t()
    
11. Dim x
    
12. Do
    
13.      x = x + 1
    
14.      Cells(x, 2) = x * 17
    
15. Loop While (x + 1) * 17 < 500
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. Dim x
   
3. For x = 17 To 500
   
4.     If x Mod 17 = 0 Then
   
5.           s = s + 1
   
6.           Cells(s, 1) = x
   
7.     End If
   
8. Next
   
9. End Sub
   
10. Sub t()
    
11. Dim x
    
12. Do
    
13.      x = x + 1
    
14.      Cells(x, 2) = x * 17
    
15. Loop While (x + 1) * 17 < 500
    
16. End Sub
    

复制代码