能同时被17和37整除的数

Private Sub Command1_Click()

 

 Dim index As Integer

 

 For index = 1000 To 2000 Step 1

 

  If Is17and37ZhengChu(index) = True Then

 

  Print Str(index)

 

 

 

End If

 

 

  Next index

 

 

End Sub

Function Is17and37ZhengChu(N As Integer) As Boolean

    If N Mod 17 = 0 And N Mod 37 = 0 Then

       Is17and37ZhengChu = True

    Else

       Is17and37ZhengChu = False

    End If

      

End Function