Matriz visual

Solo disponible en BuenasTareas
  • Páginas : 4 (798 palabras )
  • Descarga(s) : 0
  • Publicado : 8 de marzo de 2011
Leer documento completo
Vista previa del texto
EJERCICIOS
Dada una matriz:
1. Generar la matriz identidad.
Sub main()
Dim mat(3, 3) As Integer
Dim fil, col As Integer
MsgBox " Este programa genera LA MATRIZ IDENTIDAD"
For fil = 0 To 2For col = 0 To 2
If (fil = col) Then
mat(fil, col) = 1
Else
mat(fil, col) = 0
End If
Next col
Next fil
For fil = 0 To 2
For col =0 To 2
MsgBox " los numeros de la matriz Identidad son " & mat(fil, col)
Next col
Next fil
End Sub
2. Encontrar el mayor valor de cada columna y su posición.

Sub main()
Dimmat(3, 3) As Integer
Dim fil As Integer
Dim col As Integer
Dim mayoruno As Integer
Dim mayordos As Integer
Dim mayortres As Integer
Dim contuno As Integer
Dim contdos As Integer
Dim conttresAs Integer
contuno = 0
contdos = 0
conttres = 0
mayoruno = -1000
mayordos = -1000
mayortres = -1000
msgbox “ Este programa permite encontrar el mayor valor de cada columna y su posición.”For fil = 0 To 2
For col = 0 To 2
mat(fil, col) = InputBox("Digite un Número")
Next col
Next fil
For fil = 0 To 2
For col = 0 To 0If (mat(fil, col) >= mayoruno) Then
mayoruno = mat(fil, 0)
contuno = contuno + 1
End If
Next col
Next filFor fil = 0 To 2
For col = 1 To 1
If (mat(fil, col) >= mayordos) Then
mayordos = mat(fil, 1)
contdos = contdos + 1End If
Next col
Next fil
For fil = 0 To 2
For col = 2 To 2
If (mat(fil, col) >= mayortres) Then
mayortres= mat(fil, 2)
conttres = conttres + 1
End If
Next col
Next fil
MsgBox "El mayor numero de la primera columna es es" &...
tracking img