Find a piece of VB source code, use call to call, find the year of 2010 to 2050

lzcmaomao

Find a piece of VB source code, use call to call, find the year of 2010 to 2050

zzclark

Function a ()
    Dim i&, j&, k
    ReDim k ((2050-2012)\4)
    
    For i = 2012 To 2050 Step 4
        k (j) = i
        j = j + 1
    Next
    
    a = k
End Function

zzclark

Has been debugged

lzcmaomao

I want to use the form of a subroutine call

zzclark

Impossible to call with CALL -_-
The function called with call cannot get the return value -_-

lzcmaomao

Public Sub FindLeap ()
n = 0
Y = 2010
Do Until (Y> 2050)
If Y Mod 4 = 0 Then
    If (Y Mod 100) <> 0 Then
    leap = 1
    ElseIf (Y Mod 400) = 0 Then
    leap = 1
        Else
        leap = 0
    End If
Else
leap = 0
End If
If leap = 1 Then
   Print Y;
   n = n + 1
If n Mod 5 = 0 Then
Print
End If
Y = Y + 1
Loop
End Sub

Private Sub cmdleap_click ()
Print "Leap years between 2010 and 2050:"
Call FindLeap
End Sub


When running, prompt Loop is missing do ????

snowmanzf

Private Sub FindLeap ()
    Dim i As Long
    
    For i = 2010 To 2050
        If IsDate (CStr (i)&"-2-29") Then
            Debug.Print i
        End If
    Next
End Sub

rockyoung

Public Sub FindLeap ()
n = 0
Y = 2010
Do Until (Y> 2050)
    If Y Mod 4 = 0 Then
        If (Y Mod 100) <> 0 Then
            leap = 1
        ElseIf (Y Mod 400) = 0 Then
            leap = 1
        Else
            leap = 0
        End If
    Else
        leap = 0
    End If
    If leap = 1 Then
       Print Y;
       n = n + 1
        If n Mod 5 = 0 Then Print 'There is a problem here, if end if does not match
    End If
    Y = Y + 1
Loop
End Sub

Private Sub cmdleap_click ()
Print "Leap years between 2010 and 2050:"
Call FindLeap
End Sub

rockyoung

Public Sub FindLeap ()
n = 0
Y = 2010
Do Until (Y> 2050)
    If Y Mod 4 = 0 Then
        If (Y Mod 100) <> 0 Then
            leap = 1
        ElseIf (Y Mod 400) = 0 Then
            leap = 1
        Else
            leap = 0
        End If
    Else
        leap = 0
    End If
    If leap = 1 Then
       Print Y;
       n = n + 1
        If n Mod 5 = 0 Then Print 'change it here
    End If
    Y = Y + 1
Loop
End Sub

Private Sub cmdleap_click ()
Print "Leap years between 2010 and 2050:"
Call FindLeap
End Sub

深渊的尽头

'TO is running, it prompts Loop is missing do ????

If leap = 1 Then
   Print Y;
   n = n + 1
If n Mod 5 = 0 Then
Print
End If


'Change to
    If leap = 1 Then
      Print Y;
      n = n + 1
    End If
    If n Mod 5 = 0 Then
      Print
    End If