Do//随机两汉字Temp1 = Chr(Int((- 10254 + 20319 + 1) * Rnd - 20319))//有可能是?Do While Temp1="?"Temp1 = Chr(Int((-10254+20319+1)*Rnd-20319))LoopSayString Temp1KeyPress "Enter", 1//KeyPress "`", 1//暂停键,随意Loop你也可以 for 几次,就是几个汉字。