vb2008浮点运算测试程序_console

Module Module1

    Sub Main()
        
Dim As Long
        
Dim tt As Double
        
Dim As Double
        
Dim 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("正在计算,请稍候……")

        
System.Environment.TickCount
        For To 99999999
            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

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页