作业帮 > 数学 > 作业

求3到200之间所有非偶数且非素数的数之和,不知道哪里编错了

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/04/28 01:45:58
求3到200之间所有非偶数且非素数的数之和,不知道哪里编错了
Private Sub Command1_Click()
s = 0
For a = 3 To 200 Step 2
For b = 2 To a - 1
If a Mod b = 0 Then s = s + a
Next b
Next a
Print s
end sub
Dim a As Integer,b As Integer
Dim s As Integer
s = 0
For a = 3 To 200 Step 2
For b = 3 To a - 1
If a Mod b = 0 Then s = s + a
Next b
Next a
Debug.Print s
这样写,会好一点