Последовательность четных и не четных чисел - VB
Формулировка задачи:
Дана последовательность чисел. Нужно определить, соблюдается ли последовательность чередования четных и не четных цифр (то есть, если это 123456, то соблюдается, а если 12356 то не соблюдается)
Решение задачи: «Последовательность четных и не четных чисел»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
MsgBox IIf(f(InputBox("Введите последовательность", "", "12356")), "", "не ") & "соблюдается"
End Sub
Function f(s) As Boolean
Dim a As Integer, i As Integer
f = True: a = Mid(s, 1, 1) Mod 2
For i = 2 To Len(s)
a = a Xor 1
If Mid(s, i, 1) Mod 2 <> a Then f = False: Exit Function
Next i
End Function