1. 首页
  2. 技术
  3. 后台

VB.NET判断质数

    Sub Main()
继续:
        Dim 测时 As New Diagnostics.Stopwatch
        测时.Start()
        '===============================================================================================================
        Dim 数 = 1000000000000000000
        While 数 <= 1000000000000010000
            If 判断质数(数) Then ' And 判断质数(数 + 2)
                Console.Write("{0} ", 数)
            End If
            数 += IIf(数 Mod 2 > 0, 2, 1)
        End While
        '===============================================================================================================
        测时.Stop()
        Console.WriteLine()
        Console.WriteLine("{0}毫秒,按任意键继续,按回车结束。", 测时.Elapsed.TotalMilliseconds)
        If Console.ReadKey(True).Key = ConsoleKey.Enter Then
            Return
        Else
            GoTo 继续
        End If
    End Sub

    Function 判断质数(ByVal 数 As Long) As Boolean
        Dim 除数 As Integer = 2
        Dim 开方 As Double = System.Math.Sqrt(数)
        While 开方 >= 除数
            If 数 Mod 除数 > 0 Then
                除数 = 除数 + IIf(除数 > 2, 2, 1)
            Else
                Return False
            End If
        End While
        Return True
    End Function

无标题.png (上传于2020-02-23 15:56:32)


VB.NET判断质数

无标题.png (上传于2020-02-23 20:30:37)


VB.NET判断质数

原创文章,作者:xianfajushi的博客,如若转载,请注明出处:https://www.zengqueling.com/vb-net%e5%88%a4%e6%96%ad%e8%b4%a8%e6%95%b0/

联系我们

15602395067

在线咨询:点击这里给我发消息

邮件:eden7@qq.com

工作时间:周一至周五,9:30-18:30,节假日休息

QR code