用ASP写组件

　　Public Function add(ByVal a As Double, ByVal b As Double, ByVal c As Integer, ByVal d As Integer) As Double

　　d = CInt(d)

　　If c = 1 Then '加

　　add = FormatNumber(a + b, d)

　　ElseIf c = 2 Then '减

　　add = FormatNumber(a - b, d)

　　ElseIf c = 3 Then '乘

　　add = FormatNumber(a * b, d)

　　ElseIf c = 4 Then '除

　　add = FormatNumber(a / b, d)

　　End If

　　End Function

　　set obj=server.CreateObject("str.count")

　　dim c

　　c=obj.Add(455,45,4,2)

　　Response.Write c