Sub兩個4和壹個兩位數（）
k = 1
m = 0
對於a = 0到9
對於b = 0到9
對於c = 0到9
對於d = 0到9
對於e = 0到9
對於f = 0到9
對於g = 0到9
對於h = 0到9
對於i = 0到9
對於j = 0到9
如果不是（a = b或a = c或a = d或a = e或a = f或a = g或a = h或a = i或a = j _
或b = c或b = d或b = e或b = f或b = g或b = h或b = i或b = j _
或c = d或c = e或c = f或c = g或c = h或c = i或c = j _
或者d = e或d = f或d = g或d = h或d = i或d = j _
或者e = f或e = g或e = h或e = i或e = j _
或者f = g或f = h或f = i或f = j _
或g = h或g = i或g = j _
或者h = i或h = j _
或者I = j）_
然後
單元格（k，m+1）= 1000 * a+100 * b+10 * c+d
單元格（k，m+2）= 1000 * e+100 * f+10 * g+h
單元格（k，m+3）= 10 * I+j
k = k + 1
如果k & gt那麽65536
k = 1
m = m + 3
如果…就會結束
如果…就會結束
下壹個j、I、h、g、f、e、d、c、b、a
末端接頭