请问，能否用全局变量名的字符串，返回该变量的值？谢谢！

Question

比如以下代码：
public A
Public Bsub XXXX
    A=1
    B=2
    '请问能否编写一个以下功能的函数：
    C=转换("A")
    D=转换("B")
    debug.print C    'C 的结果是 1
    debug.print D    'D 的结果是 2
end subfunction 转换(变量名字符串 as String)
    ???
    ???
    ???
end Function不知能否实现以上功能 谢谢！

Answer 1

Function 转换(变量名字符串 As String)
    Select Case 变量名字符串
        Case "A"
            转换 = A
        Case "B"
            转换 = B
    End Select
End Function

Answer 2

我遇到的问题跟 mansohu  差不多   
Tiger_Zhao的解决方案只适合很少的变量 假如几千上万个的那种  这种效率就非常低了
http://bbs.csdn.net/topics/391818930

Answer 3

楼主 你的问题 解决了  看我这边的解决方案   可以完美解答你的问题
http://bbs.csdn.net/topics/391818930