For a=1 to 999
If a>=10
b=a Mod 32
If b>=10
b=Chr(b+55)
End If
c=int(a / 32)
If c=0
c=""
End If
d=c&b
MessageBox d
Else
MessageBox a
End If
Next
//以上纯属个人低级技术算法
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024