UC知道能告诉我 求素数 为什么这样得出的结果是空白吗？
来源：百度知道 编辑：UC知道 时间：2024/06/08 14:40:31
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
k = 0
For i = 10 To 100
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
If j = i Then
k = k + 1
Print i;
If k Mod 5 = 0 Then
Print
End If
End If
Next j
Next i
End Sub
我已经知道了 应该把 next j移到上面
但是我现在想知道 为什么这样运行的结果是 什么都没有？
给我解释一下 为什么会有这种结果
我不要复制粘贴正确答案 我已经有答案了
Dim i As Integer, j As Integer, k As Integer
k = 0
For i = 10 To 100
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
If j = i Then
k = k + 1
Print i;
If k Mod 5 = 0 Then
End If
End If
Next j
Next i
End Sub
我已经知道了 应该把 next j移到上面
但是我现在想知道 为什么这样运行的结果是 什么都没有？
给我解释一下 为什么会有这种结果
我不要复制粘贴正确答案 我已经有答案了
因为按照你现在的代码i>10 ,j=2 to i-1 所以，i，啥时候都不等于j,所以print不出任何东西。把next j 放上面，当j＝i-1时，再执行next后j=i-1+1＝i,这时候i＝j ，然后才会print i ，说明i是素数