Öffnen Sie VB, erstellen Sie eine neue AXDLL, der Projektname ist Str, der Klassenname ist Zählung, und geben Sie den folgenden Code ein:
Die Codekopie lautet wie folgt:
PublicFunctionAdd (Byvalaasdouble, Byvalbasouble, Byvalcainterger, Byvaldainterger) Asdouble
d = cint (d)
Ifc = 1Then'add
add = formatnumber (a+b, d)
Elseifc = 2Then 'reduzieren
add = formatnumber (ab, d)
Elseifc = 3Then'multiple
add = formatnumber (a*b, d)
Elseifc = 4Then '
add = formatnumber (a/b, d)
Endif
Endfunktion
Parameterbeschreibung: A und B sind die zu berechnenden Werte, C ist der Berechnungstyp und D ist der Dezimalpunkt, wie viele Ziffern beibehalten werden
Client ASP -Dateicode:
Die Codekopie lautet wie folgt:
setObj = server.createObject ("Str.Count")
dimc
c = obj.add (455,45,4,2)
Response.writec
Das obige Code -Ausführungsergebnis ist: Divide 455 durch 45, und der Dezimalpunkt ist auf das Perzentil genau