1. 延时1000毫秒
2. 用户定义变量 Xing=王 设置姓氏
3. 用户定义变量 nb=2 几个字的名字(不包括姓氏)
4. 用户定义变量 pin=10 几个名字
5. 循环 pin 遍
6.     （VBScript语句） str=""
7.     调用子程序 kk
8.     延时20毫秒
9.     如果表达式 (Len(Xing&str)>4) 为真,则
10.         弹出窗口 "不好意思,中国人的名字最长为4个字"
11.     脚本停止运行
12. 条件结束
13. 输入文本 Xing&str&" "
14. 循环结束
15. 脚本停止运行
16. 子程序 kk
17.     循环 nb 遍
18.         （VBScript语句） Randomize
19.         （VBScript语句） i=int(126*rnd+1)
20.         （VBScript语句） str= str&chr(-12160+i)
21.         延时5毫秒
22.     循环结束
23. 子程序结束,回到调用处