Question

【程序代码】求在1000~2000中满足能被3整除,且至少有一位数字是9的所有整数之和

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