Ejercicios

Ejercicio de la Unidad 5

1. Ejemplifique varias diagonales sucesivas a través de la acumulación de texto, con datos introducidos por teclado.

     Private Sub CommandButton1_Click ()

     Dim i As Integer

     Dim j As Integer

     Hoja1.Cells (1, 1) = "BIENVENIDO"

             For i = 2 to 8

                   For j = 1 to i

                         If ( (i + j) Mod 2) = 0 Then

                              Hoja1.Cells (i, j) = Hoja1.Cells (1, 1)

                        End If

                   Next j

             Next i

     End Sub

     2.  Graficar