<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

(责任编辑：admin)

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换