UC知道VB求100-1000所有素数，每10个换一行
来源：百度知道 编辑：UC知道 时间：2024/06/04 02:30:19
Private Sub Command1_Click()
Dim n, i, s As Integer
For n = 100 To 1000
i = Int(Sqr(n))
s = 2
w = 0
While s <= i And w = 0
If n Mod s = 0 Then
w = 1
Else
s = s + 1
Wend
If w = o Then
Print n
End If
m = m + 1
If m Mod 10 = 0 Then Print
End Sub
高手帮忙看看那出问题了，就是弄不出来``
帮忙解释下谢谢` 麻烦帮我写下..初学不是很会
Dim n, i, s As Integer
For n = 100 To 1000
i = Int(Sqr(n))
s = 2
w = 0
While s <= i And w = 0
If n Mod s = 0 Then
w = 1
Else
s = s + 1
Wend
If w = o Then
Print n
End If
m = m + 1
If m Mod 10 = 0 Then Print
End Sub
高手帮忙看看那出问题了，就是弄不出来``
帮忙解释下谢谢` 麻烦帮我写下..初学不是很会
Private Sub Command1_Click()
Dim n, i, s As Integer
For n = 100 To 1000
i = Int(Sqr(n))
s = 2
w = 0
While s <= i And w = 0
If n Mod s = 0 Then
w = 1
Else
s = s + 1
End If
Wend
If w = 0 Then
Print n;
m = m + 1
If m Mod 10 = 0 Then Print
End If
Next n
End Sub
对照一下吧。
你用的方法不对,还是麻烦点用for吧, while ...wend 没有退出语句,时间定死的,用for则找到了就可以选择退出,比较灵活!!
你的语句不合理地方多了
后面的End If呢？