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 = sin2(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 |
| 
| 
| |
| 
| 
| |
| 
| 
| |
| 
| 
| |
| 
| 
| |
| 
| 
|
РАЗВЕТВЛЯЮЩИЕСЯ ПРОГРАММЫ