标题: VBS--随即取12位字母+数字（首位是字母)的表达式 [打印本页]

---

作者: sexfio     时间: 2010-1-22 15:19    标题: VBS--随即取12位字母+数字（首位是字母)的表达式

Randomize
For i=0 to 11
name= name & Chr(((48+Int(Rnd*10))*((Rnd<.5)+1)+((Rnd(0)<.5)^2)*(97+Int(Rnd*26)))*(i<>0)^2+((i<>0)+1)*(97+Int(Rnd*26)))
Next
msgbox name