Определить четность двух чисел - VB

Узнай цену своей работы

Формулировка задачи:

Заданы два целых числа. Определить, являются ли они оба четными или оба нечетными, или определить, какое из них четное, а какое нечетное. Помогите плизз, очень надо.

Решение задачи: «Определить четность двух чисел»

textual
Листинг программы 
Private Sub Command1_Click()
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
MsgBox IIf(a = b Or a = c Or b = c, "yes", "no")
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы