'二进制转换算法DecimalToBinary

Function DecimalToBinary(decimal)

    Dim binary                              '定义一个变量binary，用于存储二进制表示的变量

    Do While decimal > 0                    '当十进制数大于0时循环执行

        binary = (decimal Mod 2) & binary   '将十进制数对2取余数，并将结果加在二进制表示的左侧

        decimal = Int(decimal / 2)          '将十进制数除以2（整数除法，3.5为3，2.5为2）

    Loop

    DecimalToBinary = binary             '返回二进制表示

End Function

'----------------------------------------------------------------

Sub DataLink2_OnDataChange(val) '二进制转换，二进制转换功能块DecimalToBinary(从自定义函数库引用)

dim s2,t2

t2=form.Tag("tag2")

s2=DecimalToBinary(t2)

Text4.Text=s2

End Sub