████vb 写一个密码转换器██高手来！！！██

显示全部楼层 · 2008-6-19 20:28:37

点击command1,将text1.text(十六进制)的内容通过一系列的的转换(将十六进制转换为二进制)复制到label1.caption中。
高手写一下代码
谢谢

千问 · 2008-6-19 20:28:37

Private Function Sixteen2(ByVal X As String) As String'把十六进制数转化为二进制数Do While Len(X) > 0
Select Case Right(X, 1)
Case "0"
Sixteen2 = "0000" + Sixteen2
Case "1"
Sixteen2 = "0001" + Sixteen2
Case "2"
Sixteen2 = "0010" + Sixteen2
Case "3"
Sixteen2 = "0011" + Sixteen2