Сохранение программы в файле Word.

Не закрывая VBA, создайте страницу Word, напечатайте на ней название, сохраните в нужном вам разделе и скрпируйте в него текст программы на Бейсике. Активизируйте страницу VBA.

10. Закрытие проекта выполняется щелчками на красных крестиках в верхних углах окон.

 

Полагаю, что вам понятен порядок создания программы на VBA.

Поэтому в дальнейшем ограничусь созданием алгоритма и текста программы.

 

ЗАДАЧИ С ЦИКЛАМИ

Задача 5 «CikL1» Сумма квадратов

Оператор if

 Требуется организовать вычисление суммы квадратов натурального ряда чисел. Математическая формулировка задачи имеет вид: 

R = 1² + 2² + 3² + … + N². Более строгий вид формулировки:

   

Сначала подготовим схему вычислений

                                                                                                  k=n

1)r=0, k=0.              2) k = k + 1, r = r + k².   3)                           4)Конец

 

                                                                                         да, <

 

 

Здесь выражение k = k + 1 расшифровывается так: к прежнему значению k добавляется 1 и результат заносится в ячейку памяти по имени k.

Теперь запишем программу CikL1вычислений на алгоритмическом языке Бейсик

Private Sub Command1_Click()

n = 300000

1 r = 0: k = 0:

2 k = k + 1: r = r + k ^ 2:

3 If k < n Then GoTo 2:

Text1 = r

End Sub

 

Правила : 1. Метка всегда находится в начале строки

2. Оператор условного перехода в строке с меткой 3 читается так:

Если k < n, тогда перейти к строке с меткой 2; в противном случае (когда k > n или k = n) пропустить строку 3 и перейти к следующей строке.

----------------------------------------------------------------

 

Задача 6 «CikL2» Сумма квадратов

Оператор for

Усложним предыдущую задачу: пусть необходимо вычислить сумму квадратов некоторого интервала натурального ряда чисел:

   

Таким образом, должно быть задано два числа: k₁, n.

    Сначала подготовим схему вычислений

 

1)r=0, k= k1-1. 2) k = k + 1, r = r + k².        3)                        4)Конец

 

                                                                                         да, ≤

 

 

Private Sub Command1_Click()

 k1 = 2: n = 5:

1 r = 0:

2 For k = k1 To n Step 1

 r = r + k ^ 2

Next k

Text1 = r

End Sub

Задача 7 «CikL3»

Площадь между прямой и осью х

Заданными считаются: xn, xk, n,. y=x . Площадь вычисляется как сумма

                                                             площадей трапеций.

Программа вычислений

Private Sub Command1_Click()

1 xn = 2: xk = 5: n = 3:     Rem Данные

2 dx = ( xk - xn ) / n :             Rem Величина шага вдоль оси х

k = 1: x = xn + dx / 2: s = 0: Rem Начальные значения переменных

параметров

3 y = x : s = s + dx * y :       Rem Вычисление значения функции

и текущего значения площади

4 k = k + 1: x = x + dx :   Rem Шаг вдоль оси Х

5 If k <= n Then GoTo 3:   Rem Проверка условия продолжения

 вычислений

Text 1 = s                Rem Занесение результата в окно

End Sub

 

Выполнив вычисления для различных значений xn, xk, n, убеждаемся в правильности работы программы. Теперь, заменив функцию ,. y=x на другую, можно использовать эту программу для вычисления площади между кривой и осью Х.

ОПЕРАТОР IF

Первый вариант оператора: простой оператор if.

              If    k <= n Then GoTo 3

    Если условие k <= n выполнено, тонеобходимо перейти кстроке с меткой 3. В противном случае (когда k>n) оператор if  и перейти к следующей строке программы.

Второй вариант оператора if  -- блочный с двумя блоками.

    if условие Then       Если условие выполнено

           Команды 1       То выполняются Команды 1

    Else                           Иначе (условие не выполнено)

           Команды 2       Выполняются Команды 2

   End if                         Конец оператора if

Третий вариант оператора if  -- блочный с одним блоком.