SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: paolaam en Viernes 27 de Abril de 2007, 01:15
-
hola, bueno despues de mucho intentos no he podido hacer este pequeño programa, me han pedido realizar una funcion para saber si un numero es palindromo por ejemplo el 121 que si se voltea es lo mismo esdecir si es palindromo.
solia usar visual basic pero no recuerdo muy bien, en este programa yo trato de hacer la comparacion de 2 numeros "n" ademas usando la funcion do while pero me apaecen muchos errores, agradeceria si me dijeran si voy por el camino correcto o que puedo hacer
gracias de antemano
-
pone el codigo que hiciste hasta ahora, nadie aqui te va a realizar la tarea.
-
Function cadinvertida(cadena As String) As String
Dim invertida() As String
Dim i As Integer
Dim j As Integer
n = Len(cadena)
ReDim invertida(n)
For i = 1 To n
invertida(i - 1) = Mid(cadena, i, 1)
Next i
For j = (n - 1) To 0 Step -1
cadinvertida = cadinvertida & invertida(j)
End Function
-
Buenas.
Si solo lo usas para probar numeros o cadenas sin espacios puedes hacer asi
Private Function Palindromo(Cadena as String) as Boolean
Dim Invertida as string
Invertida = StrReverse(Cadena)
If Cadena = Invertida then
Palindromo = True
Else
Palindromo = False
End If
End Function
Saludos :hola:
-
vale gracias, eso lo puedo probar con la ventana de inmediato, me podrias decir de que forma gracias
-
<_<
q es lo que quieres provar con la ventana inmediato? sabes lo q es?
Saludos
-
el programa, osea al meter un valor.. en vez de con un msgbox para q me diga si es palindromo...
disculpa tendrasun email al que te pueda escribir en vez del foro?
-
Cambias
Msgbox Resultado
por
Debug.Print Resultado
Saludos.
Si tienes dudas, postealas aqui, asi le pueden ayudar a alguien mas, para eso esta el foro. Saludos :hola: