'**************************************************'函数名：CreateKeyWord'作  用：由给定的字符串生成关键字'参  数：Constr---要生成关键字的原字符串'返回值：生成的关键字'**************************************************Function CreateKeyWord(byval Constr,Num)   If Constr="" or IsNull...

’函数名：CreateKeyWord’作  用：由给定的字符串生成关键字’参  数：Constr---要生成关键字的原字符串’返回值：生成的关键字’**************************************************Function CreateKeyWord(byval Constr,Num)   If Constr="" or IsNull(Constr)=True or Constr="$False$" Th...