sos:请问:怎样得到汉字的ascii,能否给出通用程序? 这样:s = "你好" Dim i For i = 1 To Len(s) Print Hex(Asc(Mid(s, i, 1))) Next 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 private function GetAsc(byval str as string) as long if str<>"" then GetAsc=asc(str) else GetAsc=0 end ifend function dim iByte() as byteibyte=strconv("中",vbfromunicode)第一个字节:ibyte(0)第二个字节:ibyte(1)!!!!!! 请教没看懂的两段话:关于VB指针、API、结构指针的 SQL分组求和难题 急!如何把文本框text内容全部打印出来? 请问:如何实现字符串的后匹配!(在线等) 请问:怎样调试vb网络程序? help!combobox问题! 想学习关于vb检测视觉系统的知识,好比检测连接器产品,找不到啊 如何在编程时将vb窗体上的最大化及最小化按钮隐藏 目前位置,有没有人知道怎么从VB打开本地连接 状态对话框啊? 一个弱智问题。如何获取DataGrid中某行某列中的值???? 很奇怪的问题(关于变量的作用域) 请问怎么在MDI窗口里打印出文字?就像LABEL控件一样,但是MDI窗口不能添加LABEL控件
if str<>"" then
GetAsc=asc(str)
else
GetAsc=0
end if
end function
第二个字节:ibyte(1)!!!!!!