设计一个算法,找出区间[1,1000]内的能被7整除的整数,并画出程序框图

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  i = 1
  Do While i <= 1000
    If i mod 7 = 0 Then
      MsgBox i, vbInformation, "输出"
    End If
    i = i + 1
  Loop
End Sub  '结束