8 lines
148 B
VB.net
8 lines
148 B
VB.net
|
Sub Main()
|
||
|
|
'testing the above functions
|
||
|
|
Dim i As Integer
|
||
|
|
For i = 1750 To 2150
|
||
|
|
Debug.Assert IsLeapYear1(i) Eqv IsLeapYear2(i)
|
||
|
|
Next i
|
||
|
|
End Sub
|