本周的计算机课,老师给我们留了课后2道题,其一即为此。下面是我编写的程序。
首先在通用中写:
Function Judge(N As Integer)As BooleanJudge=N Mod 17 * 37=0
End Function然后编写代码:Private Sub Command1_Click()
Dim i As Integer
For i = 1000 to 2000
If Judge(i) Then
Print i
End If
Next
End Sub
最后运行程序。
心得:这次的作业是经过查资料才完成的,本以为挺难,做完以后才发现代码就这么点,,,
还是不行呃。。
本文分享了一个使用VBA编写的程序,该程序能够筛选出1000到2000之间能被17乘以37整除的整数。通过定义一个判断函数并在循环中调用它来实现这一目标。
1835

被折叠的 条评论
为什么被折叠?



