帮忙解释一下这个VB程序的意思！还有就是FOR循环的用法

Private Sub Form_click()
Dim i As Integer
Dim m As Integer '计数变量
m = 0 '初始化变量
For i = i To 1000 '变量从默认值0开始到1000循环
'当 i 的值被3和7同时整除时,输出i,没输出一个m的值就多1
If i Mod 3 = 0 And i Mod 7 = 0 Then
Print i;
m = m + 1
If m Mod 10 = 0 Then Print '当m满10时输出一行(所以每行输出10个)
End If
Next i
Print
Print "1000以内一共有" & m & "个数可以同被3和7整除"
End Sub

for i=i to 1000 这个的意思是 取1000内的可以同被3和7整除的数

i从=1循环到1000来计算可以同被3和7整除的数。

private sub form_click()
dim i as integer
dim m as integer
m=0
for i=i to 1000
//进入整个循环从1到1000
if i mod 3=0 and i mod 7=0 then
｛ print i;
／／检测是不是能同时被3和7整除，若是则打印这个数。同时下面的是将m加1。
m=m+1

if m mod 10=0 then print
／／这是若m是10的倍数则打印回车。即10个一行。
｝（｛｝内的是最外层的if所包含的。）
end if
next i
print
print "