私有子Cmd1_Click()
Dim S(3)為字符串，n為整數
Dim i為整數，k為整數
k = 1
對於i = 1到3
S(i) = Mid(Text1，k，4)'從Text1中第k位取四個字符串，即當i=1，k=1時，取出101，賦值S (65438+)。當i=2，k=6時，取出0101，賦值S(2)= 0101；當i=3，k=11時，取出0110，賦值S(3)=0110。
k = k + 5
Call Transform(n，S(i))'調用轉換子流程。
文本2 =文本& ampn & ampvbCrLf
接下來我
末端接頭
私有子轉換(n為整數，S為字符串)
Dim k為整數，I為整數，L為整數
L = Len(S)'取S(i)字符串的長度，實際上每次都是4。
如果val (mid (s，1，1)) = 1，則從S(i)字符串的1位中取出1個字符，並將其轉換為數值，以便與1進行比較。如果相等，N =-(2 (l
n = -(2 ^ (L - 1))
其他
n = 0
如果…就會結束
對於i = 2到L
K = Mid(S，I，1)'在下面的語句中從S(i)字符串的第2、3、4位取1個字符進行計算，在循環結束時得到壹個值n返回主程序。
n = n + k * 2 ^ (L - i):調試。打印k；n
接下來我
末端接頭
如果不明白，可以加Debug。打印語句到程序(如Debug。打印k加在程序的倒數第二行；n)在VB中打開視圖菜單中的即時窗口，在調試菜單中點擊“分步”，然後點擊“進程”按鈕，再按F8進行調試。