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 BooleanFor m = 2 To 100flag = TrueFor i = 2 To m - 1If (m Mod i) = 0 Then flag = FalseNext iIf flag Then Print mNext mEnd Sub
Private Sub Command1_Click()Dim x As Integer, flag As BooleanDim i As Integer, j As Integerx = 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 iNext iEnd Sub