Excel VBA L oop простое число - PullRequest
Новая
       6

Excel VBA L oop простое число

0 голосов
/ 31 марта 2020

Я создал функцию VBA с именем prime(n), которая выводит TRUE или FALSE, если n - простое число или нет. Работает нормально. Вот код: 

Function prime(n As Integer) As Boolean
    'Place your code here
    Dim i As Integer
    prime = True

    If n = 1 Then
        prime = False
    ElseIf n > 2 Then
        For i = 2 To n - 1
            If n Mod i = 0 Then
                prime = False
                Exit Function
            End If
        Next i
    End If
End Function

Теперь у меня есть задача создать функцию VBA с именем counterprime(n1,n2), которая подсчитывает количество простых чисел между целыми числами n1 и n2 (включительно). , Эта функция основана на первой функции, и в соответствии с задачей я могу просто реализовать al oop и переменную счетчика следующим образом: 

For i = n1 to n2

    If prime(i) Then c = c + 1

Next i

Но я не совсем понимаю, где и как я должен включить это в моей prime(n) функции для создания coutnerprime(n1,n2).

...