Ejercicio 1:

Prvate Sub cmdagregar_Click () If Len (Text1.Text) = 0 Then MsgBox "Ingrese el nombre del libro Este nos permite en caso de que no se le ingresa el nombr de del libro nos aparezca un mensaje advirtindonos que ingresemos el nombre deseado Else list1.AddItem Text1.Text Text1.Text = "" Este cdigo nos permite que el curso se mantenga en la caja. Text1.SetFocus Label4.Caption = list1.ListCount Este nos permite hacer el conteo de los elementos End If If Label4.Caption >= 10 Then Este cdigo nos permite establecer la cantidad de elementos ingresados cmdagregar.Enabled = False Este lo utilizamos para deshabilitar el botn de agregar. Text1.Enabled = False este es para deshabilitar la caja de texto Else cmdagregar.Enabled = True Este para habilitar el botn de agregar y la caja de texto Text1.Enabled = True End If End Sub Private Sub cmdeliminar_Click () If Label4.Caption >= 11 Then cmdagregar.Enabled = False Text1.Enabled = False Else cmdagregar.Enabled = True Text1.Enabled = True End If On Error GoTo Error Este para que no haya ningn error y nos permita eliminar el elemento. list1.RemoveItem (list1.ListIndex) Este lo utilizamos para remover o borrar algn elemento de la lista

Label4.Caption = list1.ListCount Este nos permite que cuando se elimine algn element tambin eliminan la cantidad del conteo Exit Sub Error: MsgBox "Seleccione el nombre del libro" End Sub Private Sub cmdsalir_Click () End Nos permite finalizar la aplicacin End Sub

Ejercicio 2:
Private Sub Form_Load () Agrega los colores al control lstcolordefondo.AddItem "Azul" lstcolordefondo.AddItem "Blanco" lstcolordefondo.AddItem "Rojo" lstcolordefondo.AddItem "Verde" lstcolordefondo.AddItem "Amarillo" lstcolordefondo.AddItem "Negro" lstcolordeletra.AddItem "Azul" lstcolordeletra.AddItem "Blanco" lstcolordeletra.AddItem "Verde" lstcolordeletra.AddItem "Amarillo" lstcolordeletra.AddItem "Negro" End Sub Private Sub lstcolordefondo_Click () If Len (Text1.Text) = 0 Then MsgBox "Escriba el texto deseado" End If Este nos permite cambiarle el fondo ala caja de texto o ala ventana If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Azul" Then Text1.BackColor = vbBlue End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Blanco" Then Text1.BackColor = vbWhite

End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Rojo" Then Text1.BackColor = vbRed End If If lstcolordefondo.List(lstcolordefondo.ListIndex) = "Verde" Then Text1.BackColor = vbGreen End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Amarillo" Then Text1.BackColor = vbYellow End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Negro" Then Text1.BackColor = vbBlack End If End Sub Private Sub lstcolordeletra_Click () Este nos permite ponerle colores a la letra If lstcolordeletra.List (lstcolordeletra.ListIndex) = "Azul" Then Text1.ForeColor = vbBlue End If If lstcolordeletra.List (lstcolordeletra.ListIndex) = "Blanco" Then Text1.ForeColor = vbWhite End If If lstcolordeletra.List (lstcolordeletra.ListIndex) = "Rojo" Then Text1.ForeColor = vbRed End If If lstcolordeletra.List (lstcolordeletra.ListIndex) = "Verde" Then Text1.ForeColor = vbGreen End If If lstcolordeletra.List (lstcolordeletra.ListIndex) = "Amarillo" Then Text1.ForeColor = vbYellow End If If lstcolordeletra.List (lstcolordeletra.ListIndex) = "Negro" Then Text1.ForeColor = vbBlack End If End Sub Private Sub cmdsalir_Click () End Este nos permite Salir o finalizar la ejecucin del programa End Sub

Ejercicio 3:
Prvate Sub Form_Load () Dim i As Integer Este nos permite declarar una variable para bucle For i = 2 To 40 Step 2 inicia que bucle 2 al 40 pero en 2 en 2 Cbonumeros.AddItem este nos permite agregar el elemento Next I Este lo usamos para bucle repite hasta que no termina End Sub Private Sub cmdeliminar_Click () On Error GoTo Error Este para que no haya ningn erros y nos permita eliminar el elemento. MsgBox cbonumeros.List (cbonumeros.ListIndex) no permite mostrar el mensaje de q numero fue eliminado o sealado. cbonumeros.RemoveItem (cbonumeros.ListIndex) borra el elemento Exit Sub Error: nos indica q lo q este abajo no ocurra un error MsgBox "No existen elementos seleccionados." End Sub Private Sub cmdsalir_Click () End End Sub

Ejercicio 4:
Private Sub cmdagregar_Click () For = 0 to List1.ListCount 7 Este cdigo lo utilizamos para q la caja no se encuentre vaca. Exit Sub Next List1.AddItem Text1.Text Este lo utilizamos para introducir el nombre en caja de listbox. Text1.Text = ""Este es para limpiar la caja de texto. Text1.SetFocus Este cdigo nos permite que el curso se mantenga en la caja. End Sub

Private Sub cmdeliminar_Click () List1.RemoveItem (List1.ListIndex) Este espara remover o eliminar el elemento. End Sub Private Sub cmdsalir_Click () End End Sub Estelo usamos para finalizar la aplicacin.

Ejercicio 5:
Prvate Sub Form_Load () Este cdigo nos permite agregar los colores al control lstcolordefondo.AddItem "Azul" lstcolordefondo.AddItem "Blanco" lstcolordefondo.AddItem "Rojo" lstcolordefondo.AddItem "Verde" lstcolordefondo.AddItem "Amarillo" lstcolordefondo.AddItem "Negro" End Sub Private Sub lstcolordefondo_Click () Cambia el color de fondo If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Azul" Then Form1.BackColor = vbBlue End If If lstcolordefondo.List(lstcolordefondo.ListIndex) = "Blanco" Then Form1.BackColor = vbWhite End If If lstcolordefondo.List(lstcolordefondo.ListIndex) = "Rojo" Then Form1.BackColor = vbRed End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Verde" Then Form1.BackColor = vbGreen End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Amarillo" Then Form1.BackColor = vbYellow End If If lstcolordefondo.List (lstcolordefondo.ListIndex) = "Negro" Then

Form1.BackColor = vbBlack End If End Sub Prvate Sub cmdsalir_Click () End Nos permite finalizar la aplicacin. End Sub