Question

我有一个功课要使用excel中的VBA（使用命令按钮（ActiveX控件）来编写程序。我需要编写代码以显示其中有多少个因数以及整数的因数。

我是一个初学者。我只知道几个小时前如何使用“ For ... to ...”和“ If ... then ...”。我知道是否要搜索因子，然后将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

搜索整数因数以及其中有多少

1 个答案: