能被17和37整除的数

PrivateSub Command1_Click()

 

 Dimindex As Integer

 Forindex = 1000 To 2000 Step 1

  IfIs17and37ZhengChu(index) = True Then

 

 Print Str(index)

End If

 

 Next index

 

End Sub

Function Is17and37ZhengChu(N As Integer) AsBoolean

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

      Is17and37ZhengChu = True

   Else

      Is17and37ZhengChu = False

   End If