提示：提问和回答别人的问题均可赢得积分
问题:求一种数字加字母的写法?
比如我要生成字节为3位的数字和字母组合 我要限制生成出来的数字是0-9 字母是a-f不分大小写
最后生成出的结果如下
000
001
...
FFF
请问怎么写
提问时间：
2007-5-31 13:11:57 回答次数：
(4) 提问人：
软界网友 我来回答
回答（1）
'1个按钮 1个listbox
Private Sub Command1_Click()
Dim i As Long, s As String
For i = 0 To 4095
s = Hex(i)
s = Right( "000 " & s, 3)
List1.AddItem s
Next
End Sub
回答（3）
日，来晚了，被抢了。更可恶的是思路也一样。
搂主你笨啊，4位就是 16*16*16*16-1=65535
常识啊
回答（4）
直接该循环次数就可以了，
不过还是可以说一楼的回答有一点点小问题，因为他用的是LIST控件来保存结果。
如果搂主想要计算的位数够长，是会放不下的，而且速度也慢下来。
小改一下:
Dim HexStr(4095) as String
Dim I As Long
For I = 0 To 4095
HexStr(I) = Hex(I)
Next
因为十进制从0到4095正好是十六进制从000到FFF，所以直接一一转换就可以了。
关键字：
16,
000,
Dim,
字母,
数字,
sString,
0To4095,
AsLong,
HexStr,
Next,
就可以了,
生成出,
FFF,
For,
我要,
结果