Private Sub Form_Load()s = "2122123"Do While 1
n = n + 1
x = Mid(s, n, 1)
y = Right(s, Len(s) - n)
z = Left(s, n)
s = z & Replace(y, x, "")
If n >= Len(s) Then Exit DoLoopDebug.Print sEnd Sub 你可以将10先转换成16进制 就是A了 s="12345"for i = 1 to len(s)label(i).caption=mid(s,i,1)next... |