Question

vb程序输入任意一个整数，求1到n的所有质数

Answer 1

 

 

Private Sub Form_Click()

Dim i, j As Integer

Dim flag As Boolean

Dim a As Integer

a = Val(InputBox("请输入一个整数")) 

For i = 2 To a

   flag = False

   For j = 1 To i / 2

      If i Mod j = 0 Then

        flag = True

        Exit For

      End If

   Next

   If flag = False Then

     Print i

   End If

Next

End Sub

Answer 2

Private Sub Command1_Click()
Dim k As Integer, i As Integer, m As Integer
k = Val(InputBox("请输入一个整数"))
For i = 1 To k
If ss(i) Then
Print i;
m = m + 1
If m Mod 8 = 0 Then Print
End If
Next i
End Sub
Function ss(n As Integer) As Boolean
ss = True
If n <= 1 Then
ss = False
Exit Function
End If
For i = 2 To n - 1
If n Mod i = 0 Then
ss = False
Exit Function
End If
Next i
End Function