COMPARAR VARIAVEIS

ELOILIMAS 21/04/2015 19:00:16
#446041
Boa noite!
Estou com o seguinte problema:
eu tenho 6 variaveis numericas , eu comprarar o conteudo de cada uma e quantas destas seis tem o valor igual, ex: 2,2,3,4,5,6.neste caso são duas variaveis com o mesmo valor. alguem tem alguma ideia?
JABA 02/05/2015 15:13:31
#446292 Resposta escolhida
Jogue o conteúdo de cada variável dentro de um vetor, e faça conforme abaixo:

Dim vetor(5) As Integer
        Dim tmp(5) As Integer
        Dim c As Integer

        vetor(0) = 2
        vetor(1) = 2
        vetor(2) = 3
        vetor(3) = 4
        vetor(4) = 5
        vetor(5) = 6

        For x As Integer = 0 To 5
            For y As Integer = 0 To 5
                If vetor(x) = vetor(y) Then
                    c = c + 1
                    tmp(x) = c
                End If
            Next
            c = 0
        Next


Cada valor no indice do vetor tmp representa a quantidade de vezes que o numero - do vetor principal - se repetiu. Seguindo a tua sequencia ficaria assim: tmp = { 2,2,1,1,1,1}. Ou seja, a primeira e a segunda variável repetiu duas vezes, as demais somente uma vez.
ELOILIMAS 05/05/2015 20:51:39
#446393
Valeu Jaba, deu certo era o que eu precisava.
Tópico encerrado , respostas não são mais permitidas
Voltar