Private Function judge(N As Integer) AsBoolean
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
本博客展示了如何利用VBScript编写函数来判断给定数值是否能被17和37整除,并在满足条件时打印该数值。代码实现简单明了,适合初学者理解和实践。
Private Function judge(N As Integer) AsBoolean
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

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