汉字转换成数字代码（汉字转换成数字代码的方法）
汉字转换成数字代码（汉字转换成数字代码的方法）
1)ASCII码转十进制即按二进制转十进制方法，按权展开求和。[1]
例：0110110b
转十进制=0*2^6+1*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0=54
2)十进制整数转二进制数：“除以2取余，逆序排列”（除二取余法）[1]
ASCII（American Standard Code for Information Interchange，美国标准信息交换代码）是基于拉丁字母的一套电脑编码系统。
用vba写个自定函数可以实现。
假设数字在100以内，代码如下：
Function alb(s As String)
Dim ZD
Set ZD = CreateObject("scripting.dictionary")
ZD.Add "一", 1
ZD.Add "二", 2
ZD.Add "三", 3
ZD.Add "四", 4
ZD.Add "五", 5
ZD.Add "六", 6
ZD.Add "七", 7
ZD.Add "八", 8
ZD.Add "九", 9
alb = 0
arr = Split(s, "十")
If UBound(arr) 0 Then
For i = UBound(arr) To 0 Step -1
If i = 1 Then
alb = alb + ZD(arr(i))
Else
If arr(i) = "" Then
alb = alb + 10
Else
alb = alb + 10 * ZD(arr(i))
End If
End If
Next i
Else
alb = alb + ZD(arr(0))
End If
End Function
结果如图：
其实你是输入ASCII码，WINDOWS中可以利用按住ALT同时输入字符对应的ASCII的十进制码的方式输入字符。
字符的ACSII码可从“开始”-“程序”-“附件”-“系统工具”-“字符映射表”中字符集选“WINDOWS 中文（简体）”，选中需要的字符后，在窗口最下方会显示该字符的ACSII码，如█显示为U+2588（0XA880），其中A880即是█的ACSII码，不过是16进制的，转成十进制即为43136，你可用附件中的“计算器”转成十进制的代码后输入。 原理：
输入键盘上没有的字符
按住 ALT 键，然后在数字键盘上按表示要输入字符的十进制代码值的键。
完成输入后，释放 ALT 键。
Windows 2000 生成指定的字符并将它传递到前台程序。
安装或删除代码页转换表
在“控制面板”中打开 区域选项。
单击“常规”选项卡上的“高级”。
在“代码页转换表”下，执行以下操作：
选中要安装的代码页转换表旁的复选框。
清除要删除的代码页转换表旁边的复选框。
注意
必须作为管理员或管理组的成员登录才能完成该步骤。如果计算机与网络连接，则网络策略设置可能也会阻止您完成此过程。
要打开“控制面板”项，请单击“开始”，指向“设置”，单击“控制面板”，然后双击相应的图标。
用其本机语言显示非 Unicode 程序
在“控制面板”中打开 区域选项。
单击“常规”选项卡上的“设置默认值”。
在“请选定恰当的区域设置”下，选择要使用的非 Unicode 程序的语言版本。
注意
必须作为管理员或管理组的成员登录才能完成该步骤。如果计算机与网络连接，则网络策略设置可能也会阻止您完成此过程。
要打开“控制面板”项，请单击“开始”，指向“设置”，单击“控制面板”，然后双击相应的图标。
系统区域设置运行不支持 Unicode 的程序通过安装必要的代码页和字体以本机语言显示菜单和对话框。但是，为其他语言设计的程序可能不能正确地显示字体。
只有非 Unicode 程序才受系统区域设置影响。系统区域设置没有更改 Windows 2000 或 Unicode 程序的菜单和对话框。
可用系统区域设置由计算机上已安装的语言组决定
