Откройте 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'multiple
add = formatnumber (a*b, d)
Elseifc = 4then '
add = formatnumber (a/b, d)
Эндиф
Конечная функция
Описание параметра: A и B - это значения, которые должны быть рассчитаны, C - тип расчета, а D - десятичная точка, сколько цифр сохраняется
Код файла клиента ASP:
Кода -копия выглядит следующим образом:
setObj = server.createObject ("str.count")
димк
c = obj.add (455,45,4,2)
Response.writec
Приведенный выше результат выполнения кода: Разделите 455 на 45, а десятичная точка точна для процентиля