下列程序的功能是找出被5、7除，余数为1的最小5个正整数。

Private Sub Form_Click()

    Dim Ncount%, n%

    Ncount =

    n = 1

    Do

        If  Then

            Print n

            Ncount = Ncount + 1

        End If

        n = n + 1

    Loop Until =5

End Sub