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

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

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

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

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

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

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


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

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

8   голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы