作业帮 > 数学 > 作业

'3到200之间非偶数 非素数的个数

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/29 16:14:44
'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
为什么错了?
'3到200之间非偶数 非素数的个数
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