请把C语言代码翻译成VB代码_百度知道
请把C语言代码翻译成VB代码
/ 牛顿迭代法/ 计算第一个近似根
x = *(float*)&i;
int i = *(int*)&x.5f - xhalf*x*x)float InvSqrt (float x){
float xhalf = 0;
i = 0x5f3759df - (i & 1).5f*x;&
提问者采纳
&gt，不过除了VarPtr()之外都很麻烦。; 这种操作，这就失去了代码本身的意义--快速迭代得到平方根 了VB还是老老实实用Sqr函数吧John Carmack 常数啊这种经典的代码还是留给C语言吧虽然VB勉强可以做到 * & &gt
提问者评价
其他类似问题
为您推荐：
c语言的相关知识
其他2条回答
5dim i as inti=0x5f3759df - - (i && 1)x = x*(1float invsqrt (float x){dim xhalf as float =0
Function InvSqrt(ByVal x As Double) As Double Dim xhalf As Double Dim i As Integer
xhalf = 0.5 * x.... Return xEnd Function省略的我想您一定可以写出来的吧?因为,太急了...她要拔电源了....
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁 上传我的文档
 下载
 收藏
论文文档CAD图纸等资料，供大家学习使用特此分享！励志提供更好更全面的的资料给各位网友！！加油！！CAD图纸请在下载论文后联系我发您！谢谢对我的支持！
 下载此文档
正在努力加载中...
vb+access即指即译的翻译器（源代码及全套资料）
下载积分：1000
内容提示：vb+access即指即译的翻译器（源代码及全套资料）
文档格式：DOC|
浏览次数：77|
上传日期： 12:59:16|
文档星级：
该用户还上传了这些文档
vb+access即指即译的翻译器（源代码及全套资料）
官方公共微信VB相关外文翻译_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB相关外文翻译
上传于||文档简介
&&V​B​语​言​相​关​的​外​文​及​翻​译​,​可​以​拿​来​当​做​毕​业​设​计​的​某​一​部​分​。​。​。
阅读已结束，如果下载本文需要使用5下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩7页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢vb语言翻译_百度知道
vb语言翻译
Voice_Obj_media\
Back_Wmp.play'
Back_Wmp.stretchToFit = True&#39, X As Single.PictureGywm_Img, Y As Single)Bjcs_Img.PictureEnd SubPrivate Sub Form_Load()On Error Resume Next&#39.Speak &quot.PictureGgxs_Isound&#92.Picture = Quit_Lst.Picture = Tqyb_L&#39.Picture = Quit_LVoice_Obj_pub.Item(1);
Back_Wmp.Picture = Tjcx_LstDim InButton As BooleanDim First As BooleanPrivate Sub Bjcs_Img_Click()On Error Resume Next' & App.PictureGgxs_Img.PictureMdfb_Img.mid&quot.Picture&#39.Item(1).ListImages.Item(1).ListI 0 Then'显示按钮图片Xywy_Img.Picture = Mdfb_Lst.Item(1).Picture = Tjcx_Lst.Picture = Xywy_Lst.ListI&#39.ListImages.ListImages.ListIloop&quot.Item(2);media&#92.ListImages.Picture = Tqyb_Lst.ListImages.Item(1).PictureMdfb_Img.Picture = Rxsp_Lst.PictureTqyb_Img.Item(1).ListImages.ListIDim soundcard As Long&#39.Item(1).ListImages.Picture = Gywm_Lst.Picture = Rxsp_Lst.ShowEnd SubPrivate Sub Bjcs_Img_MouseDown(Button As Integer.Item(1).ListImages.Item(1);
Back_Wmp.Item(1).PictureTqyb_Img.ListImages.Item(2).ListI.Item(1).setMode &quot.Picture = Bjcs_Lst.PictureRxsp_Img.ListImages, Shift As Integer.Item(1).Item(1), Y As Single)Xywy_Img.settings.ListImages.Item(1).PictureGsjj_Img.Item(1).PictureMdfb_Img.Item(1).PictureQuit_ISet Voice_Obj_pub = New SpVoiceMe.Path & &quot.Picture = Mdfb_Lst.PictureGsjj_Img.Item(1).Item(1).Picture = Ggxs_Lst.ListImages.URL = &quot, True&#39.Picture = Ggxs_LC;touchfront&#92.ListImages.volume = 100&#39.ListI.ListIsoundcard = waveOutGetNumDevs()'PlayClick_Sub_PubBjcs_F&#92.Item(1).Item(1).Item(1).ListImages.Picture&#39.ListImages.Picture = Xywy_Lst.ListImages.Item(1).ListImages.Picture = Rxsp_Lst.ListImages.Item(1).Picture = Ggxs_Lst.ListImages:&#92.ListI&#39.PictureZzgy_Img.Picture = Bjcs_Lst.ListIlReturn = mciExecute(&quot.ListImages.PictureGywm_Img.Picture = Bjcs_Lst.Item(1).PictureZzgy_Img.Picture = Xywy_Lst.PictureEnd SubPrivate Sub Form_GotFocus()&#39.Picture = Mdfb_Lst.PictureGsjj_Img.Item(2).ListImages, X As Single.PictureRxsp_Img.Picture = Bjcs_Lst.PictureBjcs_Img.PictureQuit_IVoice_Obj_pub.PictureBjcs_I&#39.Picture = Gsjj_LIf soundcard &gt.Item(2).PictureTqyb_Img.Picture = Gywm_Lst.Picture = Gsjj_Lst, SVSFlagsAsync&#39.PictureZzgy_I显示按钮图片Xywy_Iback.PictureQuit_Img.Item(1);)&#39.Item(1);click.PictureRxsp_Img.windowlessVideo = True&#39.Rate = 5&#39.PictureGgxs_Img.C欢迎使用&quot, Shift As IEnd IfEnd SubPrivate Sub Form_MouseMove(Button As Integer.Picture = Tjcx_Lst.Item(1).Picture = Tqyb_Lst.ListImages.Picture = Gywm_Lsound&#92.PictureBjcs_Iopen &quot.Item(1).Picture = Quit_Lst.PictureGywm_Img.Picture = Xywy_Lst.Picture = Gsjj_Lst.wav alias OpenFile type WaveAudio&quot.ListImages
命名规则太有才了通过鼠标移动和点击换图片。。最后说一句，但是代码被注释掉了。还有个背景音乐。
其他类似问题
为您推荐：
您可能关注的推广
vb语言的相关知识
其他1条回答
翻译成什么呢？
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁“如果y是整数”这句话能不能翻译成VB语言_百度知道
“如果y是整数”这句话能不能翻译成VB语言
提问者采纳
1 &lt。MyNumber = Int(-99。MyNumber = Fix(-99。MyNumber = Int(-99;请输入要判断的数值&quot.8)
'y不是整数&quot。以上示例可以看出
用Int和Fix来对正负整数判断是不一样的为了正负一致 可以通过这样做 通过整除来判断 y = InputBox(& 返回 -100; 返回 -99; y Then MsgBox &quot.8)&#39。MyNumber = Fix(-99.2)'y是整数&quot.2)
' 返回 -100; 返回 99。MyNumber = Fix(99;&gt.2)
&#39Dim MyNumberMyNumber = Int(99;)If Val(y) \ 返回 99.8)' Else MsgBox & 返回 -99
提问者评价
来自团队：
其他类似问题
为您推荐：
vb语言的相关知识
其他2条回答
if y=fix(y) then
我只会C语言if ( y == 【int】y）希望对你有启发。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁