vb2008浮点运算测试程序_console

nxhujiee

于 2020-01-08 12:38:10 发布

阅读量304

点赞数 1

分类专栏： VB.NET2008 文章标签： vb.net 控制台

本文链接：https://blog.csdn.net/nxhujiee/article/details/103889191

版权

VB.NET2008 专栏收录该内容

2 篇文章 1 订阅

订阅专栏

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