1. //随机日文名
2. （VBScript语句） rw=""
3. （VBScript语句） Randomize
4. 循环 6 遍
5.     （VBScript语句） rw1=Int((2 * Rnd) + 1):rw2=Int((83 * Rnd) + 1)
6.     （VBScript语句） rw3=-(rw1*256+rw2+22796)
7.     （VBScript语句） rw=rw&Chr(rw3)
8. 循环结束
9. //取3-6个文字
10. （VBScript语句） rw=Left(rw,(Int((4 * Rnd) + 1)+2))
11. 弹出窗口 "电脑给你起的随机日文名："&rw