本周的计算机课,老师给我们留了课后2道题,其一即为此。下面是我编写的程序。
首先在通用中写:
Function Judge(N As Integer)As Boolean
Judge=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
心得:这次的作业是经过查资料才完成的,本以为挺难,做完以后才发现代码就这么点,,,还是不行呃。。