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

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