//随机日文名
VBS rw=""
VBS Randomize
For 6
    VBS rw1=Int((2 * Rnd) + 1):rw2=Int((83 * Rnd) + 1)
    VBS rw3=-(rw1*256+rw2+22796)
    VBS rw=rw&Chr(rw3)
EndFor 
//取3-6个文字
VBS rw=Left(rw,(Int((4 * Rnd) + 1)+2))
MessageBox "电脑给你起的随机日文名："&rw