Ir ao conteúdo
  • Cadastre-se
matheuszdk

Visual Basic Problema na Logica de um Palíndromo

Posts recomendados

Olá amigos, preciso fazer um algoritmo que que leia um número (1 < número < 10000) e caso ele não seja um número palíndromo, apontar qual o número palíndromo mais próximo antes dele.

 

Sub palindromo()
    Dim num As Integer
    Dim num10 As Integer
    Dim nume As Integer
    Dim cont As Integer
    Dim arm As Integer
    Dim cont100 As Integer
    Dim cont1000 As Integer
    Dim nume100 As Integer
    Dim nume1000 As Integer
    Dim vl100 As Integer
    
        num = InputBox("Insira um número entre 0 e 10000")
        nume = num
        arm = num
        num10 = num
        nume100 = num
        nume1000 = num
        If num >= 1 And num <= 10000 Then
            'MsgBox ("O número inserido é correto")
        Else
            MsgBox ("O número é invalido, insira um número correto")
        End If
        
            If num <= 9 Then
            MsgBox ("O número digitado é palindromo")
            Else
                If num = 10 Then
                    num10 = num10 - 1
                    MsgBox ("O palíndromo mais proximo é : " & nume10)
                End If
            End If
                If nume >= 11 And nume <= 100 Then
                    nume = nume Mod 11
                    'MsgBox ("número: " & nume)
                    If nume = 0 Then
                    MsgBox ("O número digitado é palindromo")
                    Else
                    cont = arm Mod 10
                    arm = num - nume
                    MsgBox ("O palíndromo mais proximo é : " & arm)
                    End If
                End If
                    If nume100 > 100 And nume100 < 1000 Then
                    
                    MsgBox
                    End If
                    
End Sub

 

 

OBS: eu fiz essas outras variáveis para os números entre 100 e 1000 e 1000 e 10000.

OBS2: de 11 a 100 todos os palíndromos que existem podem ser divisíveis por 11 então fica fácil encontrar

OBS3: preciso de ajudar para criar um regra para números entre 100 e 1000 ~~ 10000

OBS4: e sim ainda tenho problemas com a minha lógica 

Agradeço qualquer dica ou caminho que eu devo seguir

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!