DESARROLLO DE APLICACIONES

Considerando cada uno de los siguientes códigos, desarrolle sus respectivas aplicaciones en diferentes formularios. Debe crear un menú de opciones a través del Editor de Menú para acceder a los formularios.

1-Un programa en el que al darte un año te diga si es bisiesto o no:

Private Sub cmdcomprobar_Click()
If Val(txtaño.Text) Mod 4 = 0 Then
txtrespuesta.Text = "Sí es Bisiesto"
Else
txtrespuesta.Text = "No es Bisiesto"
End If
End Sub

2.Un programa en el que tu al darle tu fecha de nacimiento ( día, mes, año ) y al luego introducir la fecha actual, te diga cuantos días llevas vivo:

Private Sub cmdpulsar_Click()
txtdia3.Text = (Val(txtdia6.Text) - Val(txtdia3.Text)) * 365
If Val(txtdia5.Text) < Val(txtdia2.Text) Then
txtdia2.Text = Val(txtdia5.Text) - (-Val(txtdia2.Text))
Else
txtdia2.Text = Val(txtdia5.Text) - Val(txtdia2.Text)
End If
If Val(txtdia4.Text) < Val(txtdia1.Text) Then
txtdia1.Text = Val(txtdia4.Text) - (-Val(txtdia1.Text))
Else
txtdia1.Text = Val(txtdia4.Text) - Val(txtdia1.Text)
End If
txtdia4.Text = (Val(txtdia2.Text) * 30) - Val(txtdia1.Text)
txttotal.Text = Val(txtdia3.Text) - Val(txtdia4.Text)
txtdia1.Text = " "
txtdia2.Text = " "
txtdia3.Text = " "
txtdia4.Text = " "
txtdia5.Text = " "
txtdia6.Text = " "
End Sub

3-Un programa en el que al darte un número, te diga su tabla de multiplicar:

Private Sub cmdtabla_Click()
txt1.Text = Val(txtnum.Text) * 1
txt2.Text = Val(txtnum.Text) * 2
txt3.Text = Val(txtnum.Text) * 3
txt4.Text = Val(txtnum.Text) * 4
txt5.Text = Val(txtnum.Text) * 5
txt6.Text = Val(txtnum.Text) * 6
txt7.Text = Val(txtnum.Text) * 7
txt8.Text = Val(txtnum.Text) * 8
txt9.Text = Val(txtnum.Text) * 9
txt10.Text = Val(txtnum.Text) * 10
End Sub

4-Con barras, un programa en el que al mover la barra en temperaturas en grados, pues te salga en cuadro su equivalente en grados Kelvin ( ºK = ºC + 273 ):

Private Sub vsbbarra_Change()
txtcelsius.Text = vsbbarra.Value
txtkelvin.Text = (Val(txtcelsius.Text) + 273)
End Sub


Guarde y cree un ejecutable para el proyecto con el nombre de APLICACIONES