Sub CommandButton1_Click()

For I = 1 To 5

z= Val(InputBox("Введите значение z"))

q=Sqr(z^2+5*z)*Log(z+0.33)

Worksheets(“Лист1”).Cells (i, 1) =q

Next i

End Sub

Пример 2. Вычислить значения t:

t = sin²(x)+e ^3-x, x=3(0,1)4 (х меняется от 3 до 4 с шагом 0,1)

Sub CommandButton1_Click()

x=3: n=1

Do While x<=4

t=Sin(x)^2+Exp(3-x)

Worksheets(“Лист1”).Cells (1, n) =t

x=x+0.1

n=n+1

Loop

End Sub

В этой программе результаты размещаются в первой строке на рабочем листе Excel.

Практикум

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

 

Таблица 6.1

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

 

 

Продолжение таблицы 6.1

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

РАЗВЕТВЛЯЮЩИЕСЯ ПРОГРАММЫ