如何将汉字转化为整数？？

比如对方输入一个人的名字，接受它并将它转化为整数进行某种运算  
   
 

• · 推荐参考文章：
• BEA推出架构集成和SOA管理方面的服务方案
• IBM推新品服务 扩展SOA管理概念
• SOA:Oracle与SAP之战
• BEA成为企业部署SOA的首选合作伙伴
• IBM 建立商业解决方案中心
• BEA提供新服务 增强SOA领导地位
• SOA应用状况分析
• SOA投资回报：至少四大基本收益
• SOA实施关键：构建服务组合
• 面向服务的体系结构SOA概述

· 网友精彩回答：

ascw   函数  
  返回   unicode   字符代码    
   
  debug.print   ascw("你")  
  debug.print   ascw("好")  
   
 

private   declare   sub   copymemory   lib   "kernel32"   alias   "rtlmovememory"   (destination   as   any,   source   as   any,   byval   length   as   long)  
   
   
  private   sub   command1_click()  
  dim   strtmp   as   string   *   4  
  dim   bytarr()   as   byte  
  dim   lngnum   as   long  
   
  strtmp   =   text1  
  bytarr   =   strconv(strtmp,   vbfromunicode)  
  copymemory   lngnum,   bytarr(0),   8  
  msgbox   lngnum  
  end   sub