用VB编一道题目:求一个指定整数以内的所有素数 怎么判断素数

Private Sub Command1_Click()
Dim x As Integer, flag As Boolean
Dim i As Integer, j As Integer
x = InputBox("输入一格整数")
For i = 3 To x
flag = True
For j = 2 To i - 1
If (i Mod j) = 0 Then flag = False
Next j
If flag Then Print i
Next i
End Sub

VB常用算法——求素数

--------------------------------------------------------------------------------

http://blog.sina.com.cn 2007年04月29日22:59 超级猫
标签：

求100以内的素数。

Private Sub Form_Click()

Dim i As Integer, m As Integer, flag As Boolean
For m = 2 To 100
flag = True
For i = 2 To m - 1
If (m Mod i) = 0 Then flag = False
Next i
If flag Then Print m
Next m

End Sub

建议参考