![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
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 – Приклад роботи програми
Дата публикования: 2015-01-10; Прочитано: 230 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!