Определить, является ли введенное число четным - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д