【MATLAB】数之间的转换

使用除余法把十进制转换成二进制
    Public Function DecToBin(ByVal InputString As String) As String
        Dim MyResult As String
        Dim MyMod As Integer
        Try
            Dim MyData As Integer = CInt(InputString)
            Do While MyData
                MyMod = MyData Mod 2
                MyData = MyData \ 2
                MyResult = Trim(CStr(MyMod)) & MyResult
            Loop
        Catch ex As Exception
            MsgBox("转换数据出现错误，最大可能是数据输入不符合规范")
        End Try
        Return MyResult
    End Function
    '使用幂乘法将二进制转换成十进制
    Public Function BinToDec(ByVal InputString As String) As String
        Dim MyLength, i, MyResult As Long
        MyLength = InputString.Length
        Try
            For i = 0 To MyLength -