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