vb编写程序,统计从10到2000中是7的倍数的数字之和是多少

2025-03-29 21:52:31
推荐回答(2个)
回答1:

可以用C语言代码解决,10到2000的循环,依次对7取模,模为0则将数累加。
也可以用等差数列求和公式求
(14+1995)*((1995-14)/7+1)/2=285278
首项加末项乘项数除以二

回答2:

Private Sub Command1_Click()
s = 0
For i = 14 To 2000 Step 7
s = s + i
Next i
Print s
End Sub
运行结果是285278