1、新建项目，决定类名。如图：
补充说明：因为要进行计算，所以名称定为数学类“Math”。
2、决定库名。此例从实际意义上，决定库名定为计算器库“calcLib”。
3、引入服务。
弹出如下对话框，添加自己需要的服务。在com组件中选择。
下图是我选用成功后的样子。
4、功能代码：
Imports VBScript_RegExp_55‘导入正则类
Imports MSScriptControl ’导入微软的脚本控件 可对“标准的字符串算式”进行解析并求值
Public Class calcLib‘规范算式 Function repl(str As String) As String
str = str.Replace(" ", "")
str = str.Replace(" ", "")
str = str.Replace("（", "(")
str = str.Replace("）", ")")
str = str.Replace("×", "*")
str = str.Replace("÷", "/")
str = str.Replace("=", "") '要想实现更多规在此添加，示例只添加这几个可能出现的不规范的书写 Dim reg As New RegExp
reg.Global = True‘对整个字符串进行查询
reg.IgnoreCase = True ’是否查询多个匹配
reg.Pattern = "/\s/g" ’去掉所有类型的空格，如回车符……等五种空格
Return reg.Replace(str, "")
End Function ’进行求值计算 Function calc(str As String) As String
str = repl(str)
Dim caculor As New ScriptControl
caculor.Language = "VBScript" ‘指定脚本语言
Return caculor.Eval(str) ’返回计算结果
End FunctionEnd Class
5、配置文件属性。 目的让其通用，在所有的window系统上可运行。
6、生成dll文件
菜单---生成---生成Math。
7、dll文件位置：我的系统是win7的，路径如下： 复制到自己方便的位置，就可以被需要的程序引用了。
复制到自己方便的位置，就可以被需要的程序引用了。
