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 = 10max = 90ReDim A(1 To f, 1 To c)
ReDim num(1 To c)
Randomize
For i = 1 To ftfila = ""
For j = 1 To cA(i, j) = Int((max - min + 1) * Rnd + min)
tfila = tfila & Format(A(i, j), "00") & " "
Next
List1.AddItem tfilaNext
For i = 1 To f mayor = 0 For j = 1 To cIf num(j) > mayor Then
mayor = num(j)
End If
Next
List2.AddItem mayorNext
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
0