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
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru

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

Формула для вычислений For...Next Do...Loop
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru
Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru Sub CommandButton1_Click() - student2.ru

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

Наши рекомендации