用ASP写组件
2017-02-06
18
打开VB,新建AXDLL,工程名为Str,类名count,输入如下代码:复制代码 代码如下:PublicFunctionadd(ByValaAsDouble,ByValbAsDouble,ByValcAsInteger,ByValdAsInteger)AsDouble d=CInt(d) Ifc=1Then"加 add=FormatNumber(a+b,d) ElseIfc=2Then"减 add=FormatNumber(a-b,d) ElseIfc=3...