Page 76 - 4588

Допускаються вкладені блоки інструкцій If; тобто
блоки If, що містяться в інших блоках.
Приклад 1: Вибрати максимальне з двох введених
чисел. Розглянемо два приклади программи - в першій
використовується рядкова форма запису умовного оператора,
в другій – блокова
Рядкова форма запису Блокова форма запису
Sub pr1() Sub pr1()
Dim x As Integer, у As Integer Dim x As Integer, у As Integer
у = Range("A1") у = Range("A1")
x = Range("A2") x = Range("A2")
If у > x Then Range("A3")= у If у > x Then
Else Range("a3")= x Range("A3")= у Else
Range("a3")= x
End Sub End If
End Sub
Примітка. У наведеній вище програмі дані зчитуються
з аркуша Excel і виводяться на аркуш Excel. Будь-яка комірка
або група комірок є об'єктом Range, який у свою чергу, є
похідним від об'єкту Worksheet. Наприклад, для звернення до
значення комірки А1 на другому аркуші Excel, необхідно
використовувати такі конструкції: Worksheets(2). Range(“A1”).
Приклад 2: Обчислити площу трикутника, якщо такий
існує.
Sub pr1()
Dim x As Integer, у As Integer, z As Integer
x = Range("A1")
у = Range("A2")
z = Range("A3")
If (x + у) > z And (x + z) > у And (у + z) > x Then
p = (x + у + z) / 2
s = Sqr((p - а) * (p - b) * (p - z))
Range("a4")= s
Else
Range("a4")= "Трикутник з такими сторонами не
існує"
End If
End Sub

75