Visual Basic - como resolver este problema vb 6.0

Life is soft - evento anual de software empresarial
   
Vista:

como resolver este problema vb 6.0

Publicado por jorge (1 intervención) el 28/11/2012 21:54:29
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Command1_Click()
Dim min As Integer
Dim max As Integer
Dim num() As Integer
Dim mayor As Integer
Dim i As Integer, j As Integer, f As Integer, c As Integer
Dim A() As Integer, tfila As String
f = Val(Text1.Text)
c = Val(Text2.Text)
min = 10
max = 90
ReDim A(1 To f, 1 To c)
ReDim num(1 To c)
Randomize
For i = 1 To f
    tfila = ""
    For j = 1 To c
    A(i, j) = Int((max - min + 1) * Rnd + min)
    tfila = tfila & Format(A(i, j), "00") & " "
    Next
    List1.AddItem tfila
Next
 
For i = 1 To f
    mayor = 0
    For j = 1 To c
    If num(j) > mayor Then
        mayor = num(j)
    End If
     Next
   List2.AddItem mayor
Next
end sub__


en este programa, el problema dice hallar el maximo de cada columna de una matriz donde f es fila, c es columna. por ejemplo
si f=3 c=3
9 8 10 el mayor 9 de c1
4 11 6 el mayor 15 de c2
7 15 4 el mayor 10 de c3

y luego esos 3 numeros almacenarlos en un array para en un msgbox ponerlo el minimo es. pero mi duda esta en como escojer primero el mayor de cada columna ???
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

como resolver este problema vb 6.0

Publicado por cmgcharli (128 intervenciones) el 29/11/2012 07:58:57
Por lo que veo en A(i,j) almacenas los valores pero luego en el siguiente For utilizas una matriz num(j) que no tiene nada puesto que la defines al inicio del procedimiento y no le asignas nada
Por lo que entiendo tu quieres estraes el mayor valor de cada Columna

Una vez cargada con los valores la matriz A(i,j) para determinar el valor mayor de cada columna cambia el recorrido empieza por la columna y ves comparando el valor de esa columna en cada fila y alacenalo en el array num(j), tu ademas lo almacenas e List2

1
2
3
4
5
6
7
8
9
10
For j = 1 To f
mayor = 0
For i = 1 To c
If A(i,j) > mayor Then
mayor = A(i,j)
End If
Next
num(j)=mayor
List2.AddItem mayor
Next
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

como resolver este problema vb 6.0

Publicado por abraham mera (1 intervención) el 01/07/2013 16:43:31
en una granja se requiere saber alguna información para determinar el precio de venta por cada kilo de huevo es importante determinar el promedio de calidad de las gallinas que hay en la granja la calidad de cada gallina se obtiene con la siguiente tabla


calidad = peso de la gallina *altura de la gallina / numero de huevos que pone

finalmente para fijar el precio del kilo de huevo se toma como base la siguiente tabla

precio total de calidad:
mayor o igual que 15
mayor que 8 y menor que 15
menor o igual que 8
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