免费WEB服务实例参考

WWW.YDCOM.NET雨点免费服务实例参考

我要进入:http://www.ydcom.net/ydcom/wfrmmffw_sysm_dysl.aspx

如何调用服务产生18位关键值

引用位置:http://www.ydcom.net/service/s_comm.asmx

请输入三位数字作为参数值,如"311")

运行结果

结果

如何调用网络计算器

引用位置:http://www.ydcom.net/service/s_calc.asmx

提供方法

1,welcome

定义:

Public Function Welcome() As String

2,CalculateEntry

定义:

Function CalculateEntry(ByVal InputExpression As String, ring, ByVal TxtDecimal As String, ByVal BaseMod As String) As String

参数说明

InputExpression:输入表达式,如1+2+3

TxtDecimal:有效数字精度,可以为空

BaseMod :计算进制,其值有:Dec,Hex,Bin,Oct,默认为Dec

调用实例

CalculateEntry("3+2.56","", "")

实例体验

请输入计算式:

3,StatisticsResult

定义:

Function Statistics(ByVal InputString As String) As StatisticsResult

StatisticsResult结构定义如下

Structure StatisticsResult

Dim Xmean As String '平均值

Dim Xmod As String '模

Dim SumX As String '加和

Dim SumX2 As String '平方和

Dim Sample As String '样本

Dim Var As String '方差

Dim StVar As String '标准方差

Dim Max As String '最大值

Dim Min As String '最小值

Dim Mid As String '中间数

Dim StErr As String ' 标准误差

Dim Div As String '偏差

End Structure

参数说明

InputString:输入的数字串,以","分开,如:5,8,6

调用实例

Statistics("5,8,9")

实例体验

请输入要统计的数字串:

取得最大值结果