Составьте функцию VBA в модуле 1 с именем run6, которая будет вычислять

Question

Информатика: Составьте функцию VBA в модуле 1 с именем run6, которая будет вычислять количество простых чисел в заданном интервале [1 : n]. Необходимо только заполнить тело функции. Выполните функцию на листе

Zagadochnyy_Pesok_8833 · Accepted Answer

Конечно! Вот решение для вас:

vba

Function run6(n As Integer) As Integer

    Dim count As Integer

    Dim i As Integer

    Dim j As Integer

    Dim prime As Boolean

    

    count = 0 " Инициализация счетчика простых чисел

    

    For i = 2 To n " Проверка каждого числа в интервале от 2 до n

        prime = True " Предполагаем, что i - простое число

        

        For j = 2 To i - 1 " Проверка делимости i на числа от 2 до i-1

            

            If i Mod j = 0 Then " Если искомое число делится на j без остатка, то оно не является простым

                prime = False

                Exit For " Прерываем цикл, чтобы не проверять больше чисел

            End If

            

        Next j

        

        If prime = True Then " Если после проверки числа i оказалось, что оно простое

            count = count + 1 " Увеличиваем счетчик простых чисел на 1

        End If

        

    Next i

    

    run6 = count " Возвращаем значение счетчика простых чисел

    

End Function

Эта функция VBA вычисляет количество простых чисел в заданном интервале [1 : n]. Запустите эту функцию на Листе 1 книги и введите полученное значение в ячейку B9.

Составьте функцию VBA в модуле 1 с именем run6, которая будет вычислять количество простых чисел в заданном интервале

Zagadochnyy_Pesok_8833

О проекте

Предметы

Задать вопрос

Привет!