一 实验目的
实现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程序语言的设计