作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/26 02:14:04
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 Su