Imports System.Numerics
Module Module1
Sub Main()
Dim term As BigInteger
Const Phi As Double = (1 + (5 ^ 0.5)) / 2
Const phi_ As Double = (1 - (5 ^ 0.5)) / 2
For count As BigInteger = 2 To 99999999
term = ((Phi ^ count) - (phi_ ^ count)) / (5 ^ 0.5)
Next
End Sub
End Module
答案 0 :(得分:0)
导入System
名称空间并使用Math.Pow(double x, double y)
函数。详细信息在这里:
https://docs.microsoft.com/en-us/dotnet/api/system.math.pow?view=netframework-4.8