Question

VB.NET 编写过程代码 判断一个数是否为素数

编写一个过程用来判断某个整数是否是素数，再编写一个过程用来判断1000以内是否存在连续素数（两数相差为2），如果存在则把他们输出出来。

Answer 1

Public Function IsSushu(ByVal pa As Integer) As Boolean
        Dim pb As Integer = pa - 1
        Dim res As Boolean = True
        For i = 2 To pb
            If pa Mod i = 0 Then
                res = False
                Exit For
            End If
        Next i
        Return res
    End Function

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pre As Integer
        Dim str As String
        str = ""
        pre = 2
        For i = 1 To 1000
            If IsSushu(i) Then
                If i - pre = 2 Then
                    str = str & i & " " & pre & vbCrLf
                End If
                pre = i
            End If
        Next
        TextBox1.Text = str
    End Sub

运行结果：

5 3
7 5
13 11
19 17
31 29
43 41
61 59
73 71
103 101
109 107
139 137
151 149
181 179
193 191
199 197
229 227
241 239
271 269
283 281
313 311
349 347
421 419
433 431
463 461
523 521
571 569
601 599
619 617
643 641
661 659
811 809
823 821
829 827
859 857
883 881