‘函数名:CreateKeyWord ‘作 用:由给定的字符串生成关键字 ‘参 数:Constr—要生成关键字的原字符串 ‘返回值:生成的关键字 ‘************************************************** Function CreateKeyWord(byval Constr,Num) If Constr=”” or IsNull(Constr)=True or Constr=”$False$” Then CreateKeyWord=”$False$” Exit Function End If If Nu
