Practica 4

Tecnológico De Estudios Superiores De Ecatepec  Licenciatura De Informática  Programación II  M. en c. Ma. Dolores Sabido Montejo  Practica 4. Matrices  Introducción  Objetivo:  El alumno aprenderá a desarrollar matrices de controles así como realizará  operaciones con matrices matemáticas.  Instrucciones:  1.  Accese VB 6.0  2.  Cree un formulario.  3.  Agregue una caja de texto y modifique sus propiedades.  4.  seleccione la caja de texto y de clic en el icono de copiar o de ctrl. + C.  5.  Pegue con Ctrl + v la caja de control, aparecerá un cuadro de mensaje  que le dirá que si desea una matriz de controles. De clic en si y aceptar.  6.  Realice está operación 7 veces más acomodando sus cuadros de textos  deforma que semeje una matriz de 3* 3.  7.  Inserte un objeto command button y modifique la propiedad caption =  Calcular

8.  Verifique que su formulario sea igual al mostrado en la siguiente figura. 

9.  Introduzca el siguiente código en el procedimiento del commandbutton.  Private Sub Command1_Click()  Dim i As Integer  for i = 0 To 8  Text1 (i).Text = i + 1  Next  End Sub

10.­ Inserte otro command button y en la propiedad Caption= Letras, su  formulario debe quedar de la siguiente forma: 

11.­ Inserte el siguiente còdigo:  Private Sub Command2_Click()  Dim caracter As String  Dim i As Integer  for i = 0 To 8  Text1(i).Text = "b"  Next  End Sub

12.­ Agregue un tercer command button y copie la siguiente código: 

Private Sub Command3_Click()  If MsgBox("¿Desea salir de la aplicaciòn?", vbYesNo) = vbYes Then  End  Else  Form1.Show  End If

Uso del MsFlexGrid  1.­ Cree un formulario.  2. Añada un MsFlexGrid y modifique las propiedades siguientes:  Propiedad  Cols  Rows 

Valor  5  5 

Ademàs añada un command Button y modifique el Caption por Calcular  Su formulario debe quedar de la siguiente forma  3.­Inserte el siguiente código  Private Sub Command1_Click()  Dim i, j As Integer  For i = 0 To 4  MSFlexGrid1.TextMatrix(i, j) = "Ana"  Next  End Sub  4.­ Compile y ejecute.  5.­ ¿Cuál fue el resultado obtenido? Anotelo a continuación.  6.­ Ahora modifique su codigo de tal forma que debe quedar de la siguiente  forma:  Private Sub Command1_Click()  Dim i, j As Integer  For i = 0 To 4  For j = 0 To 4  MSFlexGrid1.TextMatrix(i, j) = "Ana"  Next  Next  7.­ Compile y ejecute.  8.­ Anote o dibuje el resultado obtenido.  9.­ ¿Por qué se dio el resultado de ambas formas? Explique su respuesta.

Ejercicios  a.  Realice la suma de dos matrices de 3 * 3.  b.  Realice  mediante  una  matriz  la  comparación  si  una  palabra  es  palíndromo.  c.  Realice la comparación de dos arreglos de caracteres.  d.  Realice  una  interfaz  que  mediante  una  matriz  bidimensional  almacene  las ventas por día de la semana y de un total de ellas utilice una matriz  de controles de label.  e.  Mediante el uso de un MsFlexGrid realice el ejercicio anterior.  f.  Con  un  MsFlexGrid  inserte  una serie  de  números  aleatorios  a  partir  de  un número dado por el usuario.