'3到200之间非偶数 非素数的个数Private Sub Command6_Click()'3到200之间非偶数 非素数的个数For i = 3 To 200 Step 2For j = 2 To i - 1n = 0If i Mod j = 0 Then n = n + 1Next jIf n = 0 Then m = m + 1Next iPrint m为什么错了?
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 08:42:48
'3到200之间非偶数 非素数的个数Private Sub Command6_Click()'3到200之间非偶数 非素数的个数For i = 3 To 200 Step 2For j = 2 To i - 1n = 0If i Mod j = 0 Then n = n + 1Next jIf n = 0 Then m = m + 1Next iPrint m为什么错了?
'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 2For j = 2 To i - 1n = 0If i Mod j = 0 Then n = n + 1Next jIf n = 0 Then m = m + 1Next iPrint m为什么错了?
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 Sub