Question

【程序代码vb】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和

Answer 1

Private Sub Command1_Click()
Dim s&, i&
i = 2
While i Mod 11 <> 5 Or i Mod 17 <> 3 ‘先找到符合条件的第一个i
i = i + 2
Wend
For i = i To 5000 Step 374 ’步长值是11与17及2的积1（11*17*2=374）
s = s + i * i '加入i的平方
Next i
Print s
End Sub

输出答案是：

106837484

Answer 2

你用穷举的蛮力算法直接写个条件不就得了吗？
循环你会控制吧