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

Название: Создание функции для вычисления простых чисел в VBA

Разъяснение:

Чтобы решить данную задачу, нужно создать VBA функцию с именем "run6" в модуле 1 книги Excel "Данные к тесту VBA". Функция должна вычислить количество простых чисел в интервале от 1 до указанного числа "n".

Вот пример тела функции "run6":

vba

Function run6(n As Integer) As Integer

    Dim count As Integer

    Dim i As Integer

    Dim j As Integer

    count = 0

    

    If n < 2 Then

        run6 = 0

    Else

        For i = 2 To n

            j = 2

            While j <= i / 2

                If i Mod j = 0 Then

                    Exit While

                End If

                j = j + 1

            Wend

            If j > i / 2 Then

                count = count + 1

            End If

        Next i

        run6 = count

    End If

End Function

После создания функции, выполните ее на листе 1 книги Excel "Данные к тесту VBA". Введите значение, полученное в ячейку B9.

Совет:

- Убедитесь, что в книге Excel имеется модуль 1, и в нем создана функция "run6".
- При вызове функции в ячейке B9 укажите нужное значение для "n".

Дополнительное задание:

Вычислите количество простых чисел в интервале [1:20] с помощью созданной функции "run6" и введите полученное значение в ячейку B9.