有没有VB反编译程序

VBRezQ v2.4a

下载地址http://st.cnc-gd.com/soft/Software.Asp?id=330

可反编译VB6的EXE文件，得到全部窗体。

vb反编译精灵v4.3

下载地址http://gsdx.driversky.com/down/vbre.zip

但明确告诉你，目前世界上还没有任何一款软件能对稍复杂（注意仅仅是稍复杂）一点的VB6编译过成的EXE进行实用的反编译，且不用说目前的软件EXE文件大都经过加壳这样的保护处芹举理，反编译更是不可能了。我在《问专家》网上看到过专家的解答就是这个意思，上面提到过一嫌罩碧款说是最好的反编译VB软件，也只能把很简单的EXE编译出窗闷纤体文件，代码代码可读性非常差，更不用说稍复杂一点的程序了。

已经完成的代码如下：

Sub ReverseDigit()

Dim number As Integer, digit As Integer

number = Val(InputBox("请输入一个非负整数"))

If (number <0) Then

Debug.Print number"不是非负整数，请输入非负整数"

Exit Sub

End If

Debug.Print number"早巧芹的逆宽手序数为:"

Do

digit = number Mod 10 '（陆毕1）

number = number \ 10 '（2）

Debug.Print Format(digit, "#")

Loop While (number >0) '（3）

Debug.Print

End Sub

---