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

来源:互联网 发布:java微信平台视频教程 编辑:程序博客网 时间:2024/05/01 11:49

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

 

原创粉丝点击