Buka VB, Buat AXDLL baru, nama proyek adalah STR, nama kelasnya dihitung, dan masukkan kode berikut:
Salinan kode adalah sebagai berikut:
PublicFunctionAdd (byvalaasdouble, byvalbasdouble, byvalcasinteger, byvaldasinteger) asdouble
D = CINT (D)
Ifc = 1then'add
add = formatNumber (a+b, d)
Elseifc = 2then 'berkurang
add = formatNumber (AB, D)
Elseifc = 3then'multiplied
add = formatNumber (a*b, d)
Elseifc = 4then '
add = formatNumber (a/b, d)
Endif
Fungsi endfungsi
Deskripsi Parameter: A dan B adalah nilai yang akan dihitung, C adalah tipe perhitungan, dan D adalah titik desimal berapa banyak digit yang dipertahankan
Kode file ASP klien:
Salinan kode adalah sebagai berikut:
setobj = server.createObject ("str.count")
DIMC
c = obj.add (455,45,4,2)
Response.writec
Hasil eksekusi kode di atas adalah: Divide 455 dengan 45, dan titik desimal akurat dengan persentil