请把C语言代码翻译成VB代码

Question

float InvSqrt (float x)
{
float xhalf = 0.5f*x;
int i = *(int*)&x;
i = 0x5f3759df - (i >> 1); // 计算第一个近似根
x = *(float*)&i;
x = x*(1.5f - xhalf*x*x); // 牛顿迭代法
return x;
}

Answer 1

John Carmack 常数啊

这种经典的代码还是留给C语言吧

虽然VB勉强可以做到 * & >> 这种操作，不过除了VarPtr()之外都很麻烦，这就失去了代码本身的意义--快速迭代得到平方根 了

VB还是老老实实用Sqr函数吧。。

Answer 2

float invsqrt (float x){
dim xhalf as float =0.5
dim i as int
i=0x5f3759df - - (i >> 1)
x = x*(1.5f - xhalf*x*x)
return x
}

Answer 3

Function InvSqrt(ByVal x As Double) As Double
Dim xhalf As Double
Dim i As Integer

xhalf = 0.5 * x
....
Return x

End Function

省略的我想您一定可以写出来的吧?因为,太急了...她要拔电源了....