1000~2000内能被17和37整除的数
2012-05-29 20:55
323 查看
Private Function judge(N As Integer) AsBoolean
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
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
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- vb输出1000到2000内能同时被17和37整除的数
- 1000-2000内能被17和37整除的数
- 1000~2000内能被17与37同时整除的数
- 1000~2000之间能同时被17和37整除的数的编程
- 编写输出1000-2000之间所有能同时被17和37整除的数
- 1000—2000能同时被17和37整除的数
- 判断并输出1000到2000之间能同被17和37整除的的数
- 实现1000到2000内所有能同时被17和37整除的数
- 编写1000~2000之间能同时被17和37整除的数的程序
- 0到2000内能同时被 4000 17和37整除的数
- hdu 5975 Aninteresting game Time Limit: 2000/1000 MS (Java/Others) Memory LimiAninteresting game
- delphi 随机函数的利用random 取10个介于1000与2000之间的随机数，并计算它们的最大，最小值及总和
- 【C】判断1000-2000之间的闰年
- 输出1000-2000之间的润年
- 输出1000-2000的闰年
- 【9210】找礼物（char* num[2000]的使用 get char num[i] = new char[1000]）
- 【C语言】1000~2000之间的闰年
- 文件中例如1饭钱1000 2房租2000 这样的数据怎么把后面的花费相加输出？
- 寻找1000-2000的闰年
- c语言 求1000到2000之间的闰年