<P>常常在网上看到有人询问类似化学分子式的数字下标（也有上标）的输入方式，当时回答一是不可能，二是想到拼凑的办法在报表里处理。今天在论坛上逛时看到了goodidea的提示平方和立方的输入方法得到启示，最后悟出一个办法，经多方寻找，原来在Windows的造字程序里的代码表里就有数字下标的代码，不过给的是16进制的代码而不是access认识的ASCI的十进制代码，感谢cg1整理了一个十六进制转十进制的函数，这下就方便了，直接将取得的10个数字下标的代码转换成十进制的代码，代码为8320……8329。
Private Function Myjm(strA As String) As String
Dim A, B As Long
Dim C, E, jm As String
A = Len(strA)
For B = 1 To A
jm = ""
C = Mid(strA, B, 1)
If C >= 0 And C <= 9 Then
If C = 0 Then jm = ChrW(8320)
If C = 1 Then jm = ChrW(8321)
If C = 2 Then jm = ChrW(8322)
If C = 3 Then jm = ChrW(8323)
If C = 4 Then jm = ChrW(8324)
If C = 5 Then jm = ChrW(8325)
If C = 6 Then jm = ChrW(8326)
If C = 7 Then jm = ChrW(8327)
If C = 8 Then jm = ChrW(8328)
If C = 9 Then jm = ChrW(8329)
Else
E = E & C
End If
E = E & jm
Next B
Myjm = E
' Debug.Print E
End Function
