Если среди трех чисел А, В, С имеется хотя бы одно четное, вычислить максимальное, инач - VB
Формулировка задачи:
Помогите пожалуйста решить задачу: Если среди трех чисел А, В, С имеется хотя бы одно четное, вычислить максимальное, иначе – минимальное.
Решение задачи: «Если среди трех чисел А, В, С имеется хотя бы одно четное, вычислить максимальное, инач»
textual
Листинг программы
Private Sub Command1_Click() Dim A As Integer, B As Integer, C As Integer A = Val(InputBox("A =", "Ввод данных", 5)) B = Val(InputBox("B =", "Ввод данных", 8)) C = Val(InputBox("C =", "Ввод данных", 11)) If (A Mod 2 = 0) Or (B Mod 2 = 0) Or (C Mod 2 = 0) Then MsgBox "A = " & A & " B = " & B & " C = " & C & vbCrLf & _ "Среди А В С четные есть!" & vbCrLf & _ "Мaксимальное " & Max(Max(A, B), C) Else MsgBox "A = " & A & " B = " & B & " C = " & C & vbCrLf & _ "Среди А В С четных нет!" & vbCrLf & _ "Минимальное " & Min(Min(A, B), C) End If End Sub Function Min(ByVal A As Integer, ByVal B As Integer) As Integer If A < B Then Min = A Else Min = B End Function Function Max(ByVal A As Integer, ByVal B As Integer) As Integer If A > B Then Max = A Else Max = B End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д