Ejemplos de programas codificado en Visual Basic

1. Código  para darle color a un texto

Private Sub AMARILLO_Click()

TEXTO.BackColor = vbYellow

End Sub

2. Código para el formato de texto

Private Sub CASTELLAR_Click()

TEXTO.FontName = "CASTELLAR"

End Sub

3.  Código para el tamaño de letra

Private Sub PEQUEÑO_Click()

TEXTO.FontSize = 8

End Sub

4. Código para cancelar

Private Sub cancelar_Click()

Adodc1.Recordset.CancelUpdate

ver.Visible = False

Calendario.Visible = False

fecha_nac.Visible = True

sex.Visible = False

sexo.Visible = True

 5. Código para la suma de n números

Private Sub Form_Load()

'DECLARACION DE VARIABLES

Dim INGRESADO As Integer

Dim NUMERO As Integer

Dim CONTADOR As Integer

Dim SUMA As Integer

SUMA = 0

INGRESADOS = InputBox("CUANTAS VECES SE VA A REPETIR:")

For CONTADOR = 1 To INGRESADOS

NUMERO = InputBox("ESCRIBA UN NUMERO:")

SUMA = SUMA + NUMERO

Next CONTADOR

PROMEDIO = SUMA / INGRESADOS

TOTAL = SUMA

LIEDOS = INGRESADOS

End Sub