• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

blackice856

Gerador de Strings

1 mensagem neste tópico

Boas, ora isto vem de um tópico da área Algoritmia e Lógica.

A ideia é fazer algo do tipo:

Defino quantas letras quero (ex:3)

aaa

aab

aac

...

aaz

aba

abb

abc

abd

...

azz

baa

bab

bac

...

zzz

Até agora consegui isto:

Dim matriz As String = "abcdefghijlmnopqrstuvxz"
        Dim lenght As Integer = 3
        Dim a(3) As String

        a(0) = "a"
        a(1) = "a"
        a(2) = "a"
        a(3) = "a"

        Dim x As Integer = 0
        Dim i As Integer
        Dim password As String
        Do While x < 4
                For i = 97 To 122
                    password = Chr(i)
                a(lenght) = password
                    MsgBox(a(0) & a(1) & a(2) & a(3))
            Next i
            MsgBox(a(lenght))
            If a(lenght) = "z" Then
                lenght = lenght - 1
                x = x + 1
            Else
                MsgBox("****-se")
            End If
        Loop

Só que isto só me dá:

aaa

aab

aac

...

abz

acz

adz

...

abz

acz

adz

...

bzz

czz

dzz

...

zzz

Não tou memo a perceber isto...

Precisava de um empurrãozinho...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora