Private Function judge(N As Integer) As Boolean
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
Private Function judge(N As Integer) As Boolean
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