可以用C语言代码解决,10到2000的循环,依次对7取模,模为0则将数累加。也可以用等差数列求和公式求(14+1995)*((1995-14)/7+1)/2=285278首项加末项乘项数除以二
Private Sub Command1_Click() s = 0 For i = 14 To 2000 Step 7 s = s + i Next i Print sEnd Sub运行结果是285278