Bases De Datos

PROGRAMA DE SUMA
~Formulario
Botón Suma:
Private Sub CbSumar_Click()
TxT3.Text = Val(TxT1.Text) + Val(TxT2.Text)
End Sub
Botón salir:
Private Sub Cbsalir_Click()
End
End Sub

~Formulario
Botón Suma:
Private Sub CbSumar_Click()
TxT3.Text = Val(TxT1.Text) + Val(TxT2.Text)
End Sub
Botón salir:
Private Sub Cbsalir_Click()
End
End Sub

>Realizar un programa que sume el contenido de dos cajas detexto y muestre el resultado de una tercera caja de texto.
Objetos | Propiedad | Valor |
Form1 | Name | FrmSuma |
| Caption | Programa de suma |
Label1 | Caption | Valor1 |
Label2 | Caption | Valor2 |
Label3 | Caption | Resultado |
TexBox1 | Name | TxT1 |
| Caption | Vacio |
TexBox2 | Name | TxT2 |
| Caption | Vacio |
TexBox3 | Name | TxT3 |
| Caption | Vacio |
Command Button1 | Name| CbSumar |
| Caption | Sumar |
Command Button1  | Name | CbSalir |
| Caption | Salir |
LISTA DE NUMEROS
Realizar un programa que muestre los números del 1 al 30 en un control ComboBox.
Objetos | Propiedad | Valor |
Form1 | Name | FrmLista |
| Caption | Lista de numeros |
Label1 | Autosize | True |
| Caption | Lista de numeros del 1 al 30 |
ComboBox1 | Texto | CbNumeros |
|Caption | Vacio |
CommandButton1 | Name | CbSalir |
| Caption | Salir |
~Formulario
Boton de numeros :
Private Sub Form_Load()
Dim I As Integer
For I = 1 To 30
cbnumeros.AddItem I
Next I
End Sub
Boton salir:
Private Sub cbsalir_Click()
End
End Sub
~Formulario
Boton de numeros :
Private Sub Form_Load()
Dim I As Integer
For I = 1 To 30
cbnumeros.AddItem I
Next I
End Sub
Boton salir:
Private Subcbsalir_Click()
End
End Sub

MUNICIPIOS
Realizar un programa que muestre los municipios de S.L.P en una caja de listas al darle la función de agregar a un botón de comando y además agregar la función de eliminar los elementos seleccionados dentro de la caja de lista.
Formulario:
Boton Agragar:
Private Sub CbAgregar_Click()
If Len(TxtMunicipios.Text) = 0 Then
MsgBox ("NO PUEDO DEJAR LA CAJA VACIA")
ElseLstMunicipios.AddItem TxtMunicipios.Text
TxtMunicipios.Text = ""
TxtMunicipios.SetFocus
TxtCantidadMunicipios.Text = LstMunicipios.ListCount
End If
End Sub

Boton Eliminar:
Private Sub CbEliminar_Click()
On Error GoTo Error
LstMunicipios.RemoveItem (LstMunicipios.ListIndex)
TxtCantidadMunicipios.Text = LstMunicipios.ListCount
Exit Sub
Error:
MsgBox ("NO EXISTEN ELEMENTOS SELECCIONADOS")
End SubBoton Salir:
Private Sub CbSalir_Click()
End
End Sub
Formulario:
Boton Agragar:
Private Sub CbAgregar_Click()
If Len(TxtMunicipios.Text) = 0 Then
MsgBox ("NO PUEDO DEJAR LA CAJA VACIA")
Else
LstMunicipios.AddItem TxtMunicipios.Text
TxtMunicipios.Text = ""
TxtMunicipios.SetFocus
TxtCantidadMunicipios.Text = LstMunicipios.ListCount
End If
End Sub

Boton Eliminar:
Private Sub CbEliminar_Click()
OnError GoTo Error
LstMunicipios.RemoveItem (LstMunicipios.ListIndex)
TxtCantidadMunicipios.Text = LstMunicipios.ListCount
Exit Sub
Error:
MsgBox ("NO EXISTEN ELEMENTOS SELECCIONADOS")
End Sub

Boton Salir:
Private Sub CbSalir_Click()
End
End Sub

Objetos | Propiedades | Valores |
Form1 | Name | Frm Municipios |
| Caption | Municipios de San Luin Potosi |
Label1 | Caption | Municipio |
Label2 |Caption | Lista de Muncipios |
Label3 | Caption | Municipios agregados |
TextBox1 | Name | TxTMunicipios |
| Text | Vacio |
TextBox2 | Name | TxTCantidadMunicipios |
| Text | Vacio |
ListBox1 | Name | LstMunicipios |
Command Button1 | Name | CbEliminar |
| Caption | Eliminar |
Command Button2 | Name | CbSalir |
| Caption | Salir |
|

JUEGO DE AZAR
Realizar un programa de un juego deazar. En el que se calculen tres números aleatorios.

Objeto | Propiedades | Valor |
Form | Name | FrmSiete |
| Caption | El siete de la suerte |
| StarUpPosition | 1-CenterOwner |
Label1 | Caption | Vacío |
| Name | lbnumero1 |
| Font | Arial 72 |
Label2 | Caption | Vacío |
| Name | lbnumero2 |
| Font | Arial 72 |
Label3 | Caption | Vacío |
| Name | lbnumero3 |
| Font |...