MENOR E MAIOR VALOR??

MESTRE 23/01/2014 11:55:03
#433446
Galera tenho 6 textbox que fazem insert no banco e preciso de uma estrutura que mostre qual o menor e o valor encontrado .. ex:

1,2,3,4
Menor valor: 1
Maior valor: 4

3,6,2,1,10,16
Maior valor: 16
Menor valor: 1

Qual a melhor maneira de fazer isso?
FILMAN 23/01/2014 12:32:26
#433448 Resposta escolhida
Cara me desculpe, mas existe vários exemplos na NET que é só adaptar ao seu projeto. Não precisava ter aberto um tópico para isso! Mas vou te ajudar!

http://www.vbweb.com.br/forum_resp.asp?Codigo=217747

http://br.answers.yahoo.com/question/index?qid=20090731081845AAiMpGT

http://forum.imasters.com.br/topic/425027-funcao-para-pegar-maior-numero-de-vetor/



Crie os 6 TextBox indexados para facilitar sua vida e utilize a rotina abaixo
Para indexar os TextBox use a propriedade Index = 0,1,2,... e dê o mesmo NOME para eles

[ô]-------------------------------------------------
[ô]General Declarations

Dim vetNum(6) as Long
Dim menor as Long
Dim maior as Long
[ô]------------------------------------------------

public sub maiormenor()
	Dim i as long
	
	menor=0
	maior=0
	
	for i = 0 to Ubound(vetNum) -1
		vetNum(i) = TextBox(i).Text
	Next i
	
	for i = 0 to Ubound(vetNum) -1
		if i = 0 then
			menor = vetNum(i)
			maior = vetNum(i)
		else
			if menor > vetNum(i) then
				menor = vetNum(i)
			end if
			if maior < vetNum(i) then
				maior = vetNum(i)
			end if
		end if
	next i
	
	MsgBox [Ô]Menor Valor: [Ô] & menor & vbcrlf & [Ô]Maior Valor: [Ô] & maior
end sub
MESTRE 23/01/2014 13:16:11
#433452
Valeu cara era isso mesmo que eu precisava.. Obrigado :)
Tópico encerrado , respostas não são mais permitidas
Voltar