对于高精度数值, 目前支持简单的加、减、乘、除、次方以及一些常规的计算
具体可参考如下代码：

Public Sub test()
    '设置计算精度,默认为210,正余弦以及对数有最大精度限制
    HpSetPrecision(200)

    '创建高精度变量
    Dim x As New ClassHPNumber("-582568.365656522565655")
    Dim y As New ClassHPNumber("583.565656")

    '对x,y进行简单的运算
    Dim z As ClassHPNumber = 4.5 + 3 * x / y^2.568 + (5 * y - x^2) * 4 * x

    '将z以字符串形式显示
    MessageBox.Show(z.ToString)

    '开方计算
    Dim sy As ClassHPNumber = HPSqrt(y * 5 - 6);

    '取对数计算
    Dim lny As ClassHPNumber = HPLog(y);

    '指数计算
    Dim expy As ClassHPNumber = HPExp(y);

    '求绝对值
    Dim absx As ClassHPNumber = HPAbs(x);

    '求正弦
    Dim sinx As ClassHPNumber = HPSin(x);

    '求余弦
    Dim cosx As ClassHPNumber = HPCos(x);

    '求正切
    Dim tanx As ClassHPNumber = HPTan(x);

    '求余切
    Dim cotx As ClassHPNumber = HPCot(x);

    '求反正弦
    Dim asinx As ClassHPNumber = HPASin(x);

    '求反余弦
    Dim acosx As ClassHPNumber = HPACos(x);

    '求反正切
    Dim atanx As ClassHPNumber = HPATan(x);

    '求反余切
    Dim acotx As ClassHPNumber = HPACot(x);

    '求双曲正弦
    Dim a1 As ClassHPNumber = HPSinh(x);

    '求双曲余弦
    Dim a2 As ClassHPNumber = HPCosh(x);

    '求双曲正切
    Dim a3 As ClassHPNumber = HPTanh(x);

    '求双曲余切
    Dim a4 As ClassHPNumber = HPCoth(x);

    '求反双曲正弦
    Dim a5 As ClassHPNumber = HPASinh(x);

    '求反双曲余弦
    Dim a6 As ClassHPNumber = HPACosh(x);

    '求反双曲正切
    Dim a7 As ClassHPNumber = HPATanh(x);

    '求反双曲余切
    Dim a8 As ClassHPNumber = HPACoth(x);

    '取x整数部分
    Dim a9 As ClassHPNumber = HPToInt(x);

    'x取反,即 a10 = -x
    Dim a10 As ClassHPNumber = HPNot(x);
    
    'x是否为负数
    Dim flag0 As Boolean = HPIsNegative(x);

    'x是否为正数
    Dim flag1 As Boolean = HPIsPositive(x);

    'x是否为0
    Dim flag2 As Boolean = HPIsZero(x);
End Sub