code144a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 23 行

Static Function Print_ReportCard(ByVal Printer As Integer) _
    As Boolean
  Dim Student_Id As Integer

  Debug.Print "Printing report card for student", Student_Id
  Student_Id = Student_Id + 1

  ' Other statements here
  If Student_Id < 10 then
    Print_ReportCard = True
  Else
    Print_ReportCard = False
  End If
End Function

Public Sub Main()
  Dim Success As Boolean

  Do 
    Success = Print_ReportCard(1)
  Loop Until Not Success
End Sub