1000~2000内能被17和37整除的数

Private Function judge(N As Integer) AsBoolean

judge = (N Mod 17 = 0 And N Mod 37 = 0)

 

End Function

 

Private Sub Form_Click()

Dim i As Integer

For i = 1000 To 2000

If judge(i) Then

Print i

End If

Next

End Sub