Определить, является ли введенное число четным - VBA

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

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

Создать форму и разместить в ней 2 текстовых поля. При вводе в 1-е поле нечетного число, во 2-м поле должно появляться слово "Нечетное", при вводе четного числа - слово "Четное", если введено не число, то отобразить во 2-м поле "Неверный код"

Решение задачи: «Определить, является ли введенное число четным»

textual
Листинг программы 
Private Sub CommandButton1_Click()
 Dim s
 s = TextBox1.Text
 Select Case s
 Case Val(s) Mod 2 = 0
 d = "Четное"
 Case Val(s) Mod 2 = 1
 d = "Нечетное"
Case Else
  d = "Код неверный"
 End Select
 TextBox2.Text = d
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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