Open up Microsoft Word en maak een document met de naam " LeapYear.doc . " Voer de MS Word Visual Basic winde door op Alt - F11 .

Selecteer de juiste module waarin te programmeren code in te voeren . In het deelvenster Project aan de linkerkant van het venster IDE , klikt u op het plus ( + ) teken aan de linkerkant van het item "Project ( schrikkeljaar ) . " Klik op het plus-teken van de map " Microsoft Word- objecten , " die onmiddellijk onder verschijnt " Project ( schrikkeljaar ) . " Dubbelklik op " ThisDocument . " Kopen van 2

Voer de programmacode . In de lege code -venster , typ of kopieer en plak de volgende programmacode :

Overheidsfunctie ISSCHRIKKELJAAR
( sYear als Variant ) ISSCHRIKKELJAAR = IsDate ( sYear ) End Function

Public Sub NextLeapYear ( ) op Dim sYear , sdate , msgDim jr , startYear , nIterDim myDate

' Loop vanaf het opgegeven jaar totdat we een schrikkeljaar

startYear
= 1981

jr
= startYearnIter = 0myDate = " 29/2 /" & yr

doen terwijl ( ( ISSCHRIKKELJAAR ( myDate ) = False ) en Niter < 10 ) Niter = Niter + 1 jaar = yr + 1myDate = " 29/2 /" & yr

Loop

Als ( Niter < 10 ) Thenmsg = "De volgende schrikkeljaar na " & startYear & " is " & yrMsgBox ( msg ) End If End Sub

3

Verander de variabele " startYear " om het jaar dat u wilt de volgende schrikkeljaar berekenen bevatten . Plaats de cursor ergens in de NextLeapYear functie en druk op F5 . Het programma wordt uitgevoerd , waaruit de volgende sprong op of vóór het jaar die u hebt ingevoerd .
4

Maak de user interface . Selecteer het volledige programma -code die u hebt getypt en snijd het naar het Klembord ( Ctrl - X ) . Klik op de "Project ( schrikkeljaar ) " in het deelvenster Project weer , ga dan naar het menu " Invoegen" en kies "User Form . " . Sleept u een tekstvak en een opdracht knop op het formulier , met de knop staat onder het tekstvak

Dubbelklik op de knop en het type ( niet kopiëren en plakken ) de volgende code : CommandButton1_Click functie : MsgBox ( NextLeapYear ( TextBox1.Text ) )

Position of the cursor in alle open code de ruimte buiten de CommandButton1_Click functie . Plak de code in die u knippen naar het Klembord .
5

Change NextLeapYear om een ​​functie te zijn . Wijzig de openingszin van NextLeapYear te luiden als volgt : . Overheidsfunctie NextLeapYear ( startyear ) op

Verwijder de startYear variabele uit de verschillende Dim verklaringen , en verwijder de lijn startyear = 1981

Vervang de msg variabele met de naam van de functie ( NextLeapYear ) in de verklaring msg = " de volgende stap ... "

Verwijder de MsgBox verklaring dat dat " NextLeapYear = " verklaring volgt . Controleer of de laatste drie regels code in de functie NextLeapYear luiden als volgt .

Als ( Niter < 10 ) ThenNextLeapYear = "De volgende schrikkeljaar na " & startyear & " is " & yrEnd Als
< br > 6

Gebruik je schrikkeljaar programma. Terwijl binnen het raam UserForm1 code , druk op F5 , voer een jaar in het tekstvak en druk op de knop .