编写输出1000-2000之间所有能同时被17和37整除的数

来源:互联网 发布:淘宝小米手机专卖店 编辑:程序博客网 时间:2024/05/01 05:05

本周的计算机课,老师给我们留了课后2道题,其一即为此。下面是我编写的程序。

首先在通用中写:

Function Judge(N As Integer)As Boolean
Judge=N Mod 17 * 37=0End Function
然后编写代码:
Private Sub Command1_Click()Dim i As IntegerFor i = 1000 to 2000If Judge(i) ThenPrint iEnd IfNext End Sub 
最后运行程序。


心得:这次的作业是经过查资料才完成的,本以为挺难,做完以后才发现代码就这么点,,,

还是不行呃。。

原创粉丝点击