Microsoft Word, Excel u otro programa que contiene el IDE de Visual Basic ( entorno de desarrollo integrado)
Ver Más instrucciones
1
abren Microsoft Word y crear un documento denominado " LeapYear.doc . " Introduzca la Palabra IDE MS Visual Basic presionando Alt- F11.
Seleccione el módulo correcto en el que introducir el código del programa. En el panel Proyecto a la izquierda de la ventana del IDE, haga clic en el signo más ( +) a la izquierda de la entrada " Project ( LeapYear ) . " Haga clic en el signo más de la carpeta de " objetos de Microsoft Word ", que aparece inmediatamente debajo de " Project ( LeapYear ) . " Haga doble clic en " ThisDocument ".
2
Introduzca el código del programa. En la ventana de código en blanco, escriba o copie y pegue el siguiente código de programa :
Public Function IsLeapYear ( sYear As Variant ) IsLeapYear = IsDate ( sYear ) End Function
Pública NextLeapYear Sub ( ) Dim sYear , sDATE , msgDim año , startYear , nIterDim miDate
a pie más que el año dado hasta que nos encontramos con un año bisiesto
startYear = 1,981 yr =
startYearnIter = 0myDate = "2 /29 /" & año
Do While ( ( IsLeapYear ( miDate ) = False ) y Niter < 10 ) Niter = Niter + 1 año = año + 1myDate = "2 /29 /" & año
Loop
Si salitre ( < 10 ) Thenmsg = " El próximo año bisiesto después " y startYear y "es" y yrMsgBox (msg ) End If End Sub
3
Cambiar la variable " startYear " para contener el año que desea calcular el próximo año bisiesto para . Coloque el cursor en cualquier lugar dentro de la función NextLeapYear y presione F5. El programa se ejecuta , revelando el próximo salto en o antes del año que ha introducido.
4
Crear la interfaz de usuario . Seleccione el código completo programa que ha escrito y lo corta en el portapapeles (Ctrl -X). Haga clic en el tema "Proyecto ( LeapYear ) " en el panel de proyecto nuevo , y luego ir al menú "Insertar " y seleccione " formulario de usuario . " . Arrastre y suelte un cuadro de texto y un botón de comando al formulario con el botón situado debajo del cuadro de texto
Haga doble clic en el botón y tipo ( no copie y pegue ) el siguiente código: función CommandButton1_Click : MsgBox ( NextLeapYear ( TextBox1.Text ))
Coloque el cursor en cualquier espacio de código abierto fuera de la función CommandButton1_Click . Pega el código que previamente enviados al portapapeles .
5
Cambio NextLeapYear sea una función. Cambie la línea de apertura de NextLeapYear de la siguiente manera : . NextLeapYear Función Pública ( startyear )
Eliminar la variable startYear entre las varias instrucciones Dim , y eliminar la startyear línea = 1981
Sustituya el variables msj con el nombre de la función ( NextLeapYear ) en el MSG sentencia = "El siguiente salto ... "
elimine la instrucción MsgBox que se deduce que " NextLeapYear =" instrucción . Verifique que las tres últimas líneas de código en función NextLeapYear leen de la siguiente manera .
Si ( salitre < 10 ) ThenNextLeapYear = "El próximo año bisiesto después de" y startyear y "es" y yrEnd Si
6
Use su programa de año bisiesto. Mientras que dentro de la ventana de código UserForm1 , presione F5 , introduzca un año en el cuadro de texto y pulse el botón.