VBを開き、新しいaxdllを作成し、プロジェクト名はstr、クラス名はカウント、次のコードを入力してください。
コードコピーは次のとおりです。
publicFunctionAdd（byvalaasdouble、byvalbasdouble、byvalcasinteger、byvaldasinteger）asdouble
d = cint（d）
ifc = 1then'add
add = formatnumber（a+b、d）
elseifc = 2then '減少
add = formatnumber（ab、d）
elseifc = 3then'multipried
add = formatnumber（a*b、d）
elseifc = 4then '
add = formatnumber（a/b、d）
endif
エンド機能
パラメーターの説明：AとBは計算する値、Cは計算型、Dは小数点である桁数が保持される桁数です
クライアントASPファイルコード：
コードコピーは次のとおりです。
setobj = server.createObject（ "str.count"）
DIMC
c = obj.add（455,45,4,2）
Response.Writec
上記のコード実行結果は次のとおりです。455を45で除算し、小数点はパーセンタイルに正確です