能同时被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