Ordenar Valores Em Vb

[Guest --Marcelo --]

Boa Noite,

Estou com uma certa dificuldade para manipular alguns valores em VB. Tenho 4 valores inteiros e preciso classificá-los em ordem decrescente de alguma forma. Basicamente tenho 4 notas de prova, preciso comparar as 4 notas e classificar os 4 alunos como 1º, 2º, 3º e 4º colocado de acordo com a nota de cada um e jogar o nome dos alunos na ordem de classificação na tela.

Se alguém puder me ajudar eu agradeço.

Muito Obrigado,

Marcelo

[BrunoVeríssimo]

essas notas estao em bd ou são apenas variaveis comuns???

[Graymalkin]

Coloque os valores em um vetor e ordene-o usando algum método de ordenação (como são só 4 valores, eu aconselho o método bolha).

Abraços,

Graymalkin

[Guest --Rafael --]

Coloque os valores em um vetor e ordene-o usando algum método de ordenação (como são só 4 valores, eu aconselho o método bolha).

Abraços,

Graymalkin

São variáveis comuns mesmo, consigo jogar os valores num vetor, mas o que é este método bolha??

[Graymalkin]

Coloque os valores em um vetor e ordene-o usando algum método de ordenação (como são só 4 valores, eu aconselho o método bolha).

Abraços,

Graymalkin

São variáveis comuns mesmo, consigo jogar os valores num vetor, mas o que é este método bolha??

O método bolha consiste em iterar sobre o vetor trocando os valores de posição ao compará-los com os outros. Exemplo:

valores = Array(2, 4, 1, 3)

s = ""
For Each valor In valores
    s = s & valor & ", "
Next valor

MsgBox "Não-Ordenados: " & s

For i = LBound(valores) To UBound(valores)
    For j = LBound(valores) To UBound(valores)
        If valores(i) < valores(j) Then
            temp = valores(i)
            valores(i) = valores(j)
            valores(j) = temp
        End If
    Next j
Next i

s = ""
For Each valor In valores
    s = s & valor & ", "
Next valor

MsgBox "Ordenados: " & s

Certo? ;)

Graymalkin

[acn89]

Bom dia Graymalkin,

Muito bom seu método, testei e funcionou.

Mas entretanto, gostaria de ordenar de maneira decrescente.

Abraços

[raphael_suporte]

é só inverter o sinal de "<" por maior

ficando assim:

If valores(i) > valores(j) Then
    temp = valores(i)
    valores(i) = valores(j)
    valores(j) = temp
End If

[Jorge4288]

Ola pessoal ... sou novo por aqui e também estou aprendendo agora a lidar com algumas linguagens .. mas na questao de ordenar ... percebir q em toda a sintaxe do laço tenho q colocar TEMP ... Mas como vou coloca sendo q nem o declarei antes em nenhum tipo de variável?

[Vinicius Reis Bastos]

Boa tarde, 
tenho uma duvida parecida com a do assunto do tópico.

Tenho as seguintes variáveis calculadas em uma macro: qcd, qpb, qcr, qni, qhg, qpfthm

Preciso ordenar as mesmas e acessar os dois menores valores para realizar uma multiplicação entre os mesmos.
Ex : so = primeiro-minimo * segundo mínimo.

Vocês podem me ajudar nisso?

Editado Setembro 19, 2018 por Vinicius Reis Bastos