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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/22 06:15:40
VB编制函数,判断一个数是否同时被17与37整除,输出并统计1000到2000之间的所有能同时被17与37整除的数感激不尽VB编制函数,判断一个数是否同时被17与37整除,输出并统计1000到2000

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

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 Sub