Поиск факторов целых чисел и сколько их

Question

У меня есть домашнее задание, чтобы создать программу, использующую VBA в Excel (используя командную кнопку (элемент управления 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