vb2008浮點運算測試程序_console

Module Module1

    Sub Main()
        Dim t As Long
        Dim tt As Double
        Dim h As Double
        Dim i As Long
        Console.Title = "vb.net2008浮點運算測試"
        'Console.BackgroundColor = ConsoleColor.Cyan
        Console.WindowWidth = 50
        Console.WindowHeight = 10
        Console.WriteLine("計算1億以內所有自然數開3次方並求和")
        Console.WriteLine("按任意鍵開始計算:")
        Console.ReadKey()
        Console.WriteLine()
        Console.WriteLine("正在計算，請稍候……")

        t = System.Environment.TickCount
        For i = 1 To 99999999
            h = h + Math.Pow(i, 1 / 3)
        Next

        Console.Clear()
        Console.WriteLine("結果：" + h.ToString)
        tt = (System.Environment.TickCount - t) / 1000
        Console.WriteLine("用時：" + tt.ToString + " 秒")
        Console.ReadKey()
    End Sub

End Module