中科新闻网超新约全书在线看:一个vb问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 14:43:22
求6至100的素数
要填好以下的四个空,不要自己编的
Private Sub pp(_(1)___ As Integer, k As Integer)
Dim i As Integer
i = 2
While k > 1
If __(2)____ 0 Then
Print i;
___(3)____
Else
i = i + 1
End If
Wend
Print
End Sub
Private Sub Form_Click()
For i = 6 To 100
Print ___(4)___
Next a(i)
End Sub
要填好以下的四个空,不要自己编的
Private Sub pp(_(1)___ As Integer, k As Integer)
Dim i As Integer
i = 2
While k > 1
If __(2)____ 0 Then
Print i;
___(3)____
Else
i = i + 1
End If
Wend
End Sub
Private Sub Form_Click()
For i = 6 To 100
Print ___(4)___
Next a(i)
End Sub
题目有错误，或者是你写的有错误，
Sub Form_Click中，怎么也不会是for i而next a(i)呀！
不过根据我的推断，这是筛选法求质数，很简单的。