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 - 1
M