使程序具有通用性的问题

Question

请问
    dim a , b
    a = "6 / 12"   '但a是字符型的
    b = a       '用什么函数或方法才能使b=0.5
谢谢。

Answer 1

Dim a, b
a = "6 / 12"
b = Left(a, 1) / Right(a, 2)
Text1 = b

Answer 2

'引用Microsoft Script Control 1.0对象
Dim sc As New ScriptControlPrivate Sub Command1_Click()
Dim a, b
a = "6/12"
sc.Language = "VBscript"
b = sc.Eval(a)
Debug.Print b
End Sub

Answer 3

支持，用Microsoft Script Control 1.0对象