怎样用VB做一个求10000以内的素数的程序?

都显示再窗体上可能显示不完,你可以显示到文本框里面

Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer
For i = 1 To 10000

If isPrime(i) Then
Print i
End If

Next
End Sub

Function isPrime(num) As Boolean
'判断是否为素数
Dim i As Currency
isPrime = True
For i = 2 To num - 1
If num Mod i = 0 Then
isPrime = False
Exit Function
End If
Next
End Function

Private Sub cmdok_click()
Dim b As Boolean
Dim i, j As Long

For i = 2 To 10000
b = True
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
b = False
Exit For
End If
Next j
If b Then
Print i
'---这样是最简单的显示方法,
'---但是在这里肯定显示不全,
'---可以通过别的方法显示.
End If
Next i
End Sub

'添加