1000-2000内能被17和37整除的数
2012-05-30 19:37
253 查看
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
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整除的数
- 0到2000内能同时被 4000 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之间的闰年
- SQL Server 2000 安装包1/17----分成17个压缩包,这里只纪录1个包的地址
- 输出1000 ——2000的闰年
- PSP 1000, PSP 2000, PSP 3000, PSP Go 相关
- (c++)求出10至1000之内能同时被2、3、7整除的数,并输出。 每行一个。
- 能同时被17和37整除的整数
- 编写程序输出1000~2000之间的闰年
- 要求输出从1到1000范围内所有与7相关数字的个数,与7相关的数字定义为,是7的倍数或者数字中含有7,比如17和71均含有‘7’。
- 输出1000到2000的闰年年份及个数
- hdu 5975 Aninteresting game Time Limit: 2000/1000 MS (Java/Others) Memory LimiAninteresting game