设计一个算法,找出区间[1,1000]内的能被7整除的整数,并画出程序框图
问题描述：
设计一个算法,找出区间[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 '结束