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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 02:29:28
VB编制函数,判断一个数是否同时被17与37整除,输出并统计1000到2000之间的所有能同时被17与37整除的数感激不尽
x) szgӎmO>Aiǒg>d* ٌO',{:m/64-/g.yo]Own{{u vl0ROvvg thދ %-Zt^"&;P_`g38˭4/$3?O4%=UOX3$5=HvIM+QUSOQ04WR06 y) 0Ee% I nE9`I\L$ / *X3 LMTy% p=LԊn<;Pf

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