Question

我需要一个程序来计算确定一个数字是否为质数所需的时间。

我尝试测量该时间，但是该函数似乎无法产生所用的时间。

这是我的代码。我需要做什么来解决它？

Function primeNumber()
    Dim Start_Time As DateTime
    Dim Stop_Time As DateTime
    Dim Elapsed_Time As TimeSpan
    Start_Time = Now
    Dim Check As Integer
    Check = 1
    Dim num As Long
    Console.WriteLine("Please enter the number you would like to determine if it is a Prime Number or not")
    num = Long.Parse(Console.ReadLine())
    If (num > 0) Then
        For i = 2 To (num - 1)
            If num Mod i = 0 Then
                Check = 0
                Exit For
            End If
        Next
        If Check = 0 Then
            Console.WriteLine(num & " is not a Prime Number!")
        Else
            Console.WriteLine(num & " is a Prime Number!")
        End If
    Else
        Console.WriteLine("Invalid Number!")
    End If
    Stop_Time = Now
    Elapsed_Time = Stop_Time.Subtract(Start_Time)
    Return Elapsed_Time.TotalSeconds.ToString("0.000000")
End Function

Answer 1

用函数表示不产生时间是什么意思？您是说产生错误的结果还是没有产生任何结果？

在代码中，您可以测量函数执行的时间（包括用户输入回车所需的时间）。如果您只想测量计算，则需要移动以下行

Start_Time = Now

之后

num = Long.Parse(Console.ReadLine())

要查看结果，请使用：

Dim time = primeNumber()
Console.WriteLine(time)

测量执行代码所花费的时间

1 个答案: