实现1000到2000内所有能同时被17和37整除的数

一 实验目的

实现1000到2000内所有能同时被17和37整除的数。

二 实验内容

打开vb6.0正式版之后，直接在代码窗口输入以下语言：

 

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

 

点击运行即可

三·心得体会

       学习了几节课的vb，突然感觉她也不是想象中的那么困难。虽然这个程序部分开始是按老师所说做的，但也有我自己调试的结果，所以，很开心，希望以后我自己也能独立的完成一份vb程序语言的设计