ayuda en visual

[cosmo001]

hola amigos porfavor espero me ayuden en el siguiente ejercicio de visual que no logro realizarlo correctamente.

El problema dice:
Introducir un numero mayor a 100, a) si el numero introducido es invertir la mitad de los digitos . Ejm: 7894 = numero par, numero transformado 7849; b)si es impar formar un nuevo numero con el primer y ultimo digito. Ejm: 45612= numero impar, numero transformado 42.

Hice el insiso a pero el segundo es dondo no me sale nada! ayuda porfa

[Insomnia]

Hola

Mira en la ayuda las funciones Left y Right, con eso creo que lo sacaras fácilmente.

--Saludos--

[cosmo001]

Hola Insomnia gracias por la sugerencia pero una mala, tampoco se puede, tengo el siguiente codigo:


Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer

a = Val(Text1.Text)
b = a
c = 0
g = 0
l = 0
Do While a <> 0
a = a \ 10
c = c + 1
Loop

If c Mod 2 = 0 Then
Text2.Text = "par"
d = c
c = c / 2

For f = 1 To c
e = b Mod 10
g = g * 10 + e
b = b \ 10
Next f

Text3.Text = b & g//esta parte esta bien
Else
Text2.Text = "impar"
d = b Mod 10
b = b \ 10

Do
b = b \ 10
Loop While c < 1


e = b Mod 10
d = d * 10 + e

Text3.Text = Str(d)

End If

A partir de Else es donde no me sale nada del numero, la condicion Do es la que me falla, hice con Do While, con While Went y por ultimo con Do loop while, cuando la condicion cambio de "1< c" se bloquea mi maquina y no se donde esta el error...ayuda porfavor.