杭州交通信息网五三生物必修二:请各位高手指点一下
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/19 15:30:47
题目是这样的:用VB编写一函数要求求得1-100之间的素数,要编写函数过程和主调过程.小弟是这样编的怎么就死循环了请各位大大指点一下:最好能帮我修改一下:
Public Function sushu(a%) As Integer
Dim i%, m%
For m = 2 To 100
For i = 2 To Int(Sqr(m))
If (m Mod i) = 0 Then
sushu = False
GoTo notnextm
Else
sushu = True
a = m
End If
Next i
notnextm:
Next m
End Function
Private Sub Form_click()
Dim a%, p%
p = 0
For k = 2 To 100
If sushu(a) = True Then
Print k
p = p + 1
End If
If p = 5 Then p = 0: Print
Next k
End Sub
Public Function sushu(a%) As Integer
Dim i%, m%
For m = 2 To 100
For i = 2 To Int(Sqr(m))
If (m Mod i) = 0 Then
sushu = False
GoTo notnextm
Else
sushu = True
a = m
End If
Next i
notnextm:
Next m
End Function
Private Sub Form_click()
Dim a%, p%
p = 0
For k = 2 To 100
If sushu(a) = True Then
Print k
p = p + 1
End If
If p = 5 Then p = 0: Print
Next k
End Sub