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

用VB做,设置一个command 按钮。代码如下 Private Sub Command1_Click() Dim k As Integer For k = 0 To 142 '1000内7的倍数最多为142倍 Print k * 7 '输出倍数在乘以7就可以得到1000内能整除7的数 Next k End Sub 希望对你有帮助，O(∩_∩)O哈哈~