Delay 1000
UserVar Xing=王 设置姓氏
UserVar nb=2 几个字的名字(不包括姓氏)
UserVar pin=10 几个名字
For pin
    VBS str=""
    Gosub kk
    Delay 20
    If Len(Xing&str)>4
        MessageBox "不好意思,中国人的名字最长为4个字"
        EndScript 
    EndIf 
    SayString Xing&str&"  "
EndFor 
EndScript 
Sub kk
    For nb
        VBS Randomize
        VBS i=int(126*rnd+1)
        VBS str= str&chr(-12160+i)
        Delay 5
    EndFor 
Return