VB编程：计算从1到1000中的能被1整除的数,并输出计算从1到1000中的能被1整除的数,并输出如题计算从1到1000中的能被7整除的数,并输出 \写出来的最多可以追加分数至150分

VB编程：计算从1到1000中的能被1整除的数,并输出计算从1到1000中的能被1整除的数,并输出如题计算从1到1000中的能被7整除的数,并输出 \写出来的最多可以追加分数至150分
VB编程：计算从1到1000中的能被1整除的数,并输出
计算从1到1000中的能被1整除的数,并输出
如题
计算从1到1000中的能被7整除的数,并输出
\
写出来的最多可以追加分数至150分

VB编程：计算从1到1000中的能被1整除的数,并输出计算从1到1000中的能被1整除的数,并输出如题计算从1到1000中的能被7整除的数,并输出 \写出来的最多可以追加分数至150分
Private Sub Form_Load()
For I = 1 To 1000
If I Mod 7 = 0 Then
X = X + 1
If X Mod 10 = 0 Then
Label1.Caption = Label1.Caption & vbNewLine
End If
Label1.Caption = Label1.Caption & " " & I
End If
Next I
End Sub