题目

求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

提问时间：2021-03-31

答案

Dim a As Integer,b As IntegerDim s As Integers = 0For a = 3 To 200 Step 2For b = 3 To a - 1If a Mod b = 0 Then s = s + aNext bNext aDebug.Print s这样写,会好一点