作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/09 09:31:21
【程序代码】求在1000~2000中满足能被3整除,且至少有一位数字是9的所有整数之和
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