Приклади виконання завдання №3

End Sub

Оператори циклу з умовою.

End Sub

Такі цикли використовується, якщо невідома заздалегідь кіль­кість повторень. Існують такі різновиди операторів:

Синтаксис:

Do While умова інструкції тіла циклу Loop

Do інструкції тіла циклу Loop While умова

Оператори з умовою While забезпечують виконання операторів тіла циклу доти, доки умова виконується.

Do Until умова інструкції тіла циклу Loop

Do інструкції тіла циклу Loop Until умова

Оператори з умовою Until закінчують роботу операторів тіла циклу тоді, коли умова виконається. Тобто цикл повторюється, якщо умова має значення False (хибність).

Достроковий вихід з таких операторів циклу відбувається за допомогою оператору Exit Do.

Задача 5.2 З клітині А1 починається список. Написати програ­му, яка підраховує кількість заповнених рядків і записує результат в першому вільному рядку.

Sub Кількість ()

Dim k As Integer

k = 1 ' k – номер рядка

Do

k = k + 1

Loop While Cells(k, 1). Value <> ""

Cells(k, 1). Value = " Номер першого вільного рядка – " & Str(k)

Деякі задачі можна розв’язувати як з використанням операторів циклу, так і за допомогою методів та вла­стивостей об’єктів Excel.

Приклад 5.3 Протабулювати функціїю

y=,

Для значень х, що змінюються від -2 до 2 із кроком h=0.2. Таблицю розмістити на робочому листі.

Sub Таблиця()

Dim x as Single, z as Single, i as Integer

Dim xn as Single, xk as Single, h as Single

xn=InputBox(“Введіть початкове значення аргументу x”)

xk= InputBox(“Введіть кінцеве значення аргументу x”)

h= InputBox(“Введіть крок для аргументу x”)

Worksheets(“Лист1”). Activate

Range(“A1”). Value=”x”

Range(“B1”). Value=”y” ‘ Записуємо заголовки колонок таблиці

i=2 ‘ Номер рядка, починаючи з якого записуємо значення

For x=xn To xk Step h

If x<=0 Then

y = 3*sin(x)-cos(x)^2

Else

y = 3*sqr(1+x^2)

End if

Cells(i,1). Value = x ‘ Записуємо обчислені значення

Cells(i,2). Value = y

i = i + 1 ‘ збільшуємо номер рядка на 1

Next x

End sub

Дата добавления: 2014-10-31