我要用VB求出100-1000之间的所有素数，请问应当怎样去算呢，既算法。

Sub Form_Click()
Dim n As Integer
For n = 100 To 200
k = Int(Sqr(n))
i = 2
swit = 0

While i <= k And swit = 0
If n Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Wend

If swit = 0 Then Print n; "是一个素数"

Next n
End Sub

拿去试一下吧

Option Base 1
Dim num%
Dim Su() As Integer
Private Sub Form_Click()
Dim x%
For x = 101 To 999
Call pan(x)
Next x
End Sub
Private Sub pan(ByVal var As Integer)
flag = 0
For i = 2 To Int(Sqr(var))
If var Mod i = 0 Then
flag = flag + 1
End If
Next i
If flag = 0 Then
num = num + 1
ReDim Preserve Su(num)
Su(num) = var
Print Su(num)
End If
End Sub

这个问题我已经替别人回答了多次。
基本流程的是这样的：
1.初始。即设定一个变量从101开始，然后到999结束
2.在这个变量的递增过程中，进行判断，如果某次输入的整数是素数则把它保留。
3.判断属于素数时，则把它储存到数组中。因