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

ai宝de_缃2022-10-04 11:39:541条回答

求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

已提交，审核后显示！提交回复

zengxiangxiu 共回答了13个问题 | 采纳率100%: 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
这样写,会好一点; 1年前

'3到200之间非偶数非素数的个数 '3到200之间非偶数非素数的个数 Private Sub Command6_Click() '3到200之间非偶数非素数的个数 For i = 3 To 200 Step 2 For j = 2 To i - 1 n = 0 If i Mod j = 0 Then n = n + 1 Next j If n = 0 Then m = m + 1 Next i Print m 为什么错了? 何理198411101年前1: PPPGGG9969 共回答了17个问题 | 采纳率82.4%

Private Sub Command6_Click()
'3到200之间非偶数非素数的个数
For i = 3 To 200 Step 2
n = 0
For j = 2 To i - 1
If i Mod j = 0 Then n = 1
Next j
If n = 1 Then m = m + 1
Next i
Print m
End Su

1年前查看全部

求出3到200之间的所有非偶数非素数的数的个数.(用VFP编写) 求出3到200之间的所有非偶数非素数的数的个数.(用VFP编写) 答对了再加30分 运行结果为5774,1楼的程序有问题吧. mirrorchan761年前1: 秋风扫树皮共回答了19个问题 | 采纳率89.5%

看错了,我以为你说求和.
set talk off
clear
s=0
for i = 3 to 200
if mod(i,2) 0 and notsu(i)
s = s + 1
endif
endfor
set talk on
return
function notsu(x)
for j=2 to sqrt(x)
if x%j=0
return(.t.)
endif
endfor
if j>sqrt(x)
return(.f.)
endif
endfunc

1年前查看全部

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

共1条回复

相关推荐

大家在问