赞 futurehuman 幼苗
共回答了11个问题采纳率：90.9% 举报
Private Sub Command1_Click()
For i = 2 To 1000
For j = 2 To i
If i Mod j = 0 Then Exit For
Next j
If j = i Then Print i;
Next i
End Su
For i = 2 To 1000
For j = 2 To i
If i Mod j = 0 Then Exit For
Next j
If j = i Then Print i;
Next i
End Su
1年前
8
可能相似的问题
-
1年前1个回答
-
1年前2个回答
-
1年前3个回答
-
1年前2个回答
-
1年前1个回答
你能帮帮他们吗