Я хочу написать числа в окне сообщения между 2 числами, которые я выберу. При проверке, являются ли они четными числами, и они должны быть от наименьшего числа к наибольшему. 2 числа должны быть положительными и меньше 100.
Я использую Visual Basic в Excel, но я никогда не использовал его раньше.
Private Sub CommandButton1_Click()
Dim a, b, P, i As Integer
a = InputBox("Write number from 1 to 100 ")
If a <= 0 Or a >= 100 Then
MsgBox "Wrong input"
Exit Sub
End If
b = InputBox("Write number from 1 to 100 ")
If b <= 0 Or b >= 100 Then
MsgBox "Wrong input"
Exit Sub
End If
For i = a To b
If a <> 0 & a <= b Then
a = a + 1
Else
P = a
a = a + 1
Exit For
End If
Next i
MsgBox P
End Sub