VB编制函数,判断一个数是否同时被17与37整除,输出并统计1000到2000之间的所有能同时被17与37整除的数

Function Judge(N As Integer) As Boolean
Judge = N Mod 17 * 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 Su