Текст процедури

Sub Приклад_2()

Dim a As Integer, suma As Integer, d As Integer, e As Integer

Dim st As String

a = Worksheets("Лист1").Cells(1, 1).Value

e = a Mod 10 ‘ остання цифра числа

d = a \ 10 ‘ передостання цифра числа

suma = d + e

If suma Mod 2 = 0 Then

st = "– ПАРНЕ"

Else

st = "– НЕПАРНЕ"

End If

MsgBox ("СУМА ЦИФР =" & Str(suma) & st)

End Sub

Результати роботи програми

Рисунок 1.4 – Приклад роботи програми