哪位大侠可以帮我编个VB程序：数字0到5和字母A到F随机生成一个12位的组合……

Private Sub Command1_Click()
Randomize
Dim s As String
Dim n As Integer
For i = 0 To 11
n = 48 + Int(Rnd * 11)
Select Case n
Case 48 To 52
s = s & Chr(n)
Case 53 To 58
s = s & Chr(n + 12)
End Select
Next
MsgBox s
End Sub
不包括复重位检测