搜索整数的因子及其数量

Question

我有一个家庭作业，在excel中使用VBA(使用命令按钮(ActiveX控件((制作程序。我需要制作一个代码来显示有多少个因子以及整数的因子是什么。

我是一个完全的初学者。我只知道如何使用"对于...到..."和"如果...然后..."就在几个小时前。我知道如果我想搜索因子，那么 n 作为我们输入的整数，i 作为从 1 到 n 的数字。

If n mod i = 0 then 
  //all the i are the factors.

我不知道如何在 VBA 中编写它。

Answer 1

你走对了方向

Sub factors()
N = Range("A1").Value ' number in cell A1
r = 1
For i = 1 To N - 1
  If N Mod i = 0 Then
    Cells(r, 2) = i
    r = r + 1
  End If
Next
End Sub