竞赛[中1]如果在Access中显示和输入化学符号

tmtony

如果在Access中显示和输入化学符号
(CH₃)₂CHCH₂COOC₂H₅
同时类推,也可输入分数形式

最佳答案可获得30分

答案一个星期后公布

tmtony

呵呵,给忘了,谢谢提醒, 使用下面的swo网友的函数来实现
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

tmtony

原帖由 liwen 于 2008-3-20 11:56 发表
这个函数没能考虑输入的数字中不必转为下标的情况，在使用时会受到限制，或许要做一个变通处理，增加转义字符才行。

是的,所以还需改善才行

tmtony

非常好的思路,不能不佩服.结贴,马上散分