求助，这段代码用VB如何实现
#include <stdio.h>
typedef unsigned long u32 ;
int main()//
{
const static u32 a1 = 0x3CA44FB3;
for ( u32 z = 0; z < 0xFFFFFFFF; ++z )
{
u32 s =~z;
s*= z;
u32 a = s + (z & 0x0346A231);
__int64 b = (__int64)0x05003555 * (__int64) z;
u32 c = (u32)(b >> 32);
c >>= 3;
if ( a1 == a + c )
{
printf("%08x", z );
return 0;
}
}
return 0;//返回
}
vb.net
用delphi该如何实现呢
哇塞，这是什么代码，眼花~
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
