用BV求出100～200之间的第一个能被17整除的整数。

Private Sub Form_Click()
Cls
For i = 100 To 200
If i Mod 17 = 0 Then Print i
Next
End Sub

Private Sub Form_Click()
Cls
For i = 100 To 200
If i Mod 17 = 0 Then
Print i
Exit For
End If
Next
End Sub

要加上Exit For即时退出，不然把17的倍数全打印出来了