vb设计一个程序，统计1000以内能被7整除的正整数的个数。

可以快点吗，有劳了- -

2024-12-20 06:09:45

推荐回答（3个）

回答1：

给你说说思路,程序就自己写,首先能被13整除的数都是13的倍数,因此我们可以不用模运算,直接用循环找出13的倍数就可以了.再一个,要求找奇数,可以把循环步长设为2,即step
2,这样就可以找出这些数,然后用一个循环变量计算他们的和.本人本题用do循环较好,可以减少运行时间.注意结束循环条件应该是:until
m<1000（用do循环的时候,n表示循环变量）

回答2：

Private Sub Form_Load()
Dim totali, i As Integer
total = 0
i = 1
Do While totali <= 1000
totali = 7 * i
i = i + 1
Loop
MsgBox "1000以内有" & i - 2 & "个能被7整除的数"
End Sub

回答3：

private sub form_click()
dim n as integer,i as integer
for i =7 to 1000
if i mod 7 = 0 then n=n+1
next
print n
end sub