Private Sub CommandButton1_Click(). j = 18' j − это номер строки, в которую введено первое значение z

a = 3

j = 18 ' j − это номер строки, в которую введено первое значение z

For i = 1 To 5 ‘ счетчик количества значений переменной z

z = Worksheets("Лист4").Cells(j, 2)

q = Sqr(z ^ 2 + 8 * a) * Log(z + 0.5)

Worksheets("Лист4").Cells(j, 3) = q

j = j + 1

Next i

End Sub

Для кнопки «Расчет Do...Loop» процедура может иметь вид:

Private Sub CommandButton2_Click()

a = 3: j = 18: z = 1

Do While z <= 5

q = Sqr(z ^ 2 + 8 * a) * Log(z + 0.5)

Worksheets("Лист4").Cells(j, 8) = q

z = z + 0.5

j = j + 1

Loop

End Sub

Для проверки результатов вычислений с помощью формул Excel в ячейку D15 можно поместить формулу:

=КОРЕНЬ(B15^2+8*$J$7)*LN(B15+0,5).

Её надо скопировать в ячейки D16:D19 и в ячейки I15:I23. Результат расчета с помощью VBA и Excel должен совпасть.

Содержание заданий

1. Выполнить приведенные выше примеры циклических программ.

2. В табл. 5.1 приведены формулы и два варианта исходных данных, по которым надо составить две программы с одними и теми же расчетными формулами. Предусмотреть вывод результатов в ячейки таблицы на рабочем листе Excel.

Таблица 5.1

№	Формула для вычислений	For...Next	Do...Loop

Date: 2015-08-24; view: 376; Нарушение авторских прав