Numero M-Alternante

[beinat]

Hola buenas noches:

Mi propuesta seria algo asi, esta probado y funciona(creo) habria que hacer muchos controles pero bueno, mi idea era:

1) lograr el primer digito y saber si es par o inpar para saber la secuencia
2)una vez sabido eso declaramos un control que empieze en 2 y se vaya incrementando
3)si el primer digito es par los siguientes digitos deben de ser inpar, por lo tanto comenzamos otro blucle desde 0 hasta 'control' y que vaya viendo si son inpar
4)al terminar ese segundo blucle, declaramos la variable 'par' a lo contrario que estaba antes, para asi en la proxima vuelta buscar lo contrario, es decir, si el primer digito es par la variable par sera true, por lo tanto los siguiente digitos deben de ser inpar, y al terminar esa busqueda declaramos par=false para asi en la siguiente vuelta buscar los siguintes pares

Código vb:

Private Sub comprobar_Click(sender As Object, e As EventArgs) Handles comprobar.Click
        Dim numeros As Integer = Convert.ToInt64(numero.Text)
        Dim alternante As Boolean
        Dim par As Boolean
        par = False
        Dim cuantos As Integer
        Dim control As Integer
        alternante = True
        Dim primer_digito As Integer = CInt(numero.Text.Substring(0, 1))
        If (primer_digito Mod 2 = 0) Then
            par = True
        End If
        cuantos = 0
        control = 2
        Dim j As Integer = 1
        Dim longitud As Integer = numero.TextLength
        For i = 1 To longitud
            cuantos = 0
            If (par = True) Then
                While (cuantos < control)
                    If (CInt(numero.Text.Substring(j, 1)) Mod 2 <> 0) Then
                    Else
                        alternante = False
                    End If
                    j = j + 1
                    i = i + 1
                    cuantos = cuantos + 1
                End While
                par = False
            Else
                While (cuantos < control)
                    If (CInt(numero.Text.Substring(j, 1)) Mod 2 = 0) Then
                    Else
                        alternante = False
                    End If
                    j = j + 1
                    i = i + 1
                    cuantos = cuantos + 1
                End While
                par = True
            End If
            control = control + 1
        Next
        If (alternante = True) Then
            MessageBox.Show("el numero es m-alternante")
        Else
            MessageBox.Show("El numero no es m-alternante")
        End If
 

faltaria hacer controles de longitudes,es decir si ingresas 122333 te va a dar bien, pero si metes 1223 te va a dar un error porque faltan numero, pero eso ya lo dejo para que le des tu un par de vueltas.

Espero haberte ayudado, igual un poco larga la explicacion, pero creo que el tema lo requeria para explicarme bien.

Espero una respuesta tuya, para poder seguir ayudandote.

Un saludo