Private Sub Command1_Click()
strtmp = Text1.Text
a = CLng(Text1.Text)
b = a Xor &H30D8BCC0
Text2.Text = b
End Sub
CLng的问题，比如我要算2304775829应该怎么改？各位大侠帮帮忙！在线等，我急啊~直接给我代码吧···
你们自己可以试试，按照你们说的都是会溢出的
&H30D8BCC0 就是819510464
如何用万进制法
Dim strtmp As StringDim aDim b
strtmp = Text1.Text
a = CDec(strtmp)'不会溢出'
b = a Xor &H30D8BCC0'会溢出'
Text2.Text = b这个 &H30D8BCC0 那里来的，搞小点吧，否则就没法子了或3楼说的用万进制算法！！！！=================================================呵呵，这里有个（ 10万进制的大数乘方）的例子可去参考下，不过是C的：http://blog.csdn.net/jixingzhong/archive/2...
