MAX E MIN EM VARIAVEIS

VINICIUSVB 08/08/2011 13:38:26
#381064
Pessoal boa tarde

Como faço para pegar o menor ou maior valor de 3 ou mais variáveis, exemplo:

Dim Menor valor as interger

menor valor = min(var1, var2, var3)

Algo assim! hshshs

Valeu!
ASHKATCHUP 08/08/2011 13:45:13
#381065 Resposta escolhida
Sinceramente, nao sei se o VB.NET tem uma função nativa assim.

Mas á facinho você fazer uma :)
ASHKATCHUP 08/08/2011 14:07:24
#381069
Fiz uma função pra ti no notepad.
Não sei se a sintaxe ta correta, mas a idéia sim.



Private Sub MenorValor(ByVal ParamArray valores() As Integer)
   Dim menor as Integer
   [ô]
   menor = Integer.MaxValue
   [ô]
   For i as integer = lbound(valores) to ubound(valores)
      if valores(i) < menor then
         menor = valores(i)
      endif
   next
   [ô]
   MenorValor = menor
   [ô]
End Sub
RODRIGOFERRO 08/08/2011 14:57:24
#381078
Aqui ficou assim olha !

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim intValores As Integer() = {TXT1.Text, TXT2.Text, TXT3.Text, TXT4.Text, TXT5.Text}
        Dim intMaior As Integer = Integer.MinValue
        Dim intMenor As Integer = Integer.MaxValue

        For Each Elemento As Integer In intValores
            intMaior = Math.Max(intMaior, Elemento)
            intMenor = Math.Min(intMenor, Elemento)
        Next

        MessageBox.Show([Ô]O Valor Maior é: [Ô] + intMaior.ToString())
        MessageBox.Show([Ô]O Valor Menor é: [Ô] + intMenor.ToString())

    End Sub


Abraços
VINICIUSVB 08/08/2011 15:57:20
#381086
Valeu galera vou usar ambos códigos aqui. Obrigado e boa tarde para vocês.
Tópico encerrado , respostas não são mais permitidas
Voltar