Visual Basic - suma de texos

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

suma de texos

Publicado por Hecmil (1 intervención) el 17/06/2003 16:28:16
tengo 5 texbox necesio buscar el mayor, el menor eliminarlos y sumar el resto de los extbox que mequedan, con urgencia necesio esa informacion gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:suma de texos

Publicado por Malcom (51 intervenciones) el 17/06/2003 16:41:54
Puedes hacerlo de muchas maneras, pero a mí se me ocurre esta:

*******************************************************************************
Dim i As Integer
Dim mayor As Long
Dim menor As Long
Dim suma As Long

mayor = 0
menor = 0
suma = 0
'Con esta estructura obtienes el mayor y el menor (teniendo las casillas en array)
For i = 0 To 5
If CajaTexto(i) > mayor Then
mayor = CajaTexto(i)
ElseIf CajaTexto(i) < menor Then
menor = CajaTexto(i)
End If
Next

'Así sumas los restantes
For i = 0 To 5
If CajaTexto(i) <> mayor And CajaTexto(i) <> menor Then
suma = suma + CajaTexto(i)
End If
Next
********************************************************************************

Un Saludo :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar